hg/stx-libtool: NewLauncher.st@f58b047b892c (annotated)

1406 60e6a7d07c93 initial checkin tz parents: diff changeset	1	"
1430 c3a8341ecd43 copyright changed tz parents: 1429 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3	All Rights Reserved
60e6a7d07c93 initial checkin tz parents: diff changeset	4
60e6a7d07c93 initial checkin tz parents: diff changeset	5	This software is furnished under a license and may be used
60e6a7d07c93 initial checkin tz parents: diff changeset	6	only in accordance with the terms of that license and with the
60e6a7d07c93 initial checkin tz parents: diff changeset	7	inclusion of the above copyright notice. This software may not
60e6a7d07c93 initial checkin tz parents: diff changeset	8	be provided or otherwise made available to, or used by, any
60e6a7d07c93 initial checkin tz parents: diff changeset	9	other person. No title to or ownership of the software is
60e6a7d07c93 initial checkin tz parents: diff changeset	10	hereby transferred.
60e6a7d07c93 initial checkin tz parents: diff changeset	11	"
60e6a7d07c93 initial checkin tz parents: diff changeset	12
60e6a7d07c93 initial checkin tz parents: diff changeset	13
60e6a7d07c93 initial checkin tz parents: diff changeset	14
60e6a7d07c93 initial checkin tz parents: diff changeset	15	ToolApplicationModel subclass:#NewLauncher
1429 aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	16	instanceVariableNames:'transcript isMainLauncher settingsSelection settingsAspects
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	17	helpIsOn'
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	18	classVariableNames:'OpenLaunchers NotifyingEmergencyHandler'
60e6a7d07c93 initial checkin tz parents: diff changeset	19	poolDictionaries:''
60e6a7d07c93 initial checkin tz parents: diff changeset	20	category:'Interface-Advanced-Tools'
60e6a7d07c93 initial checkin tz parents: diff changeset	21	!
60e6a7d07c93 initial checkin tz parents: diff changeset	22
60e6a7d07c93 initial checkin tz parents: diff changeset	23	!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin tz parents: diff changeset	24
60e6a7d07c93 initial checkin tz parents: diff changeset	25	copyright
60e6a7d07c93 initial checkin tz parents: diff changeset	26	"
1430 c3a8341ecd43 copyright changed tz parents: 1429 diff changeset	27	COPYRIGHT (c) 1997 by eXept Software AG
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	28	All Rights Reserved
60e6a7d07c93 initial checkin tz parents: diff changeset	29
60e6a7d07c93 initial checkin tz parents: diff changeset	30	This software is furnished under a license and may be used
60e6a7d07c93 initial checkin tz parents: diff changeset	31	only in accordance with the terms of that license and with the
60e6a7d07c93 initial checkin tz parents: diff changeset	32	inclusion of the above copyright notice. This software may not
60e6a7d07c93 initial checkin tz parents: diff changeset	33	be provided or otherwise made available to, or used by, any
60e6a7d07c93 initial checkin tz parents: diff changeset	34	other person. No title to or ownership of the software is
60e6a7d07c93 initial checkin tz parents: diff changeset	35	hereby transferred.
60e6a7d07c93 initial checkin tz parents: diff changeset	36	"
60e6a7d07c93 initial checkin tz parents: diff changeset	37
60e6a7d07c93 initial checkin tz parents: diff changeset	38
60e6a7d07c93 initial checkin tz parents: diff changeset	39	!
60e6a7d07c93 initial checkin tz parents: diff changeset	40
60e6a7d07c93 initial checkin tz parents: diff changeset	41	documentation
60e6a7d07c93 initial checkin tz parents: diff changeset	42	"
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	43	The future launcher.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	44
da20bf21fb13 first offical release tz parents: 1406 diff changeset	45	[start with:]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	46	NewLauncher open
da20bf21fb13 first offical release tz parents: 1406 diff changeset	47
da20bf21fb13 first offical release tz parents: 1406 diff changeset	48	[see also:]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	49	Launcher
da20bf21fb13 first offical release tz parents: 1406 diff changeset	50
da20bf21fb13 first offical release tz parents: 1406 diff changeset	51	[author:]
1453 6abe92727df3 info bars redesigned tz parents: 1449 diff changeset	52	Thomas Zwick, eXept Software AG
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	53	"
60e6a7d07c93 initial checkin tz parents: diff changeset	54	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	55
60e6a7d07c93 initial checkin tz parents: diff changeset	56	!NewLauncher class methodsFor:'accessing'!
60e6a7d07c93 initial checkin tz parents: diff changeset	57
60e6a7d07c93 initial checkin tz parents: diff changeset	58	current
60e6a7d07c93 initial checkin tz parents: diff changeset	59	"return the launcher running on the current screen.
60e6a7d07c93 initial checkin tz parents: diff changeset	60	(for access via addMenu/ removeMenu)"
60e6a7d07c93 initial checkin tz parents: diff changeset	61
1434 8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	62	OpenLaunchers notNil ifTrue:[
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	63	OpenLaunchers do:[:aLauncher \|
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	64	aLauncher window graphicsDevice == Screen current ifTrue:[
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	65	^ aLauncher
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	66	]
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	67	].
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	68	].
60e6a7d07c93 initial checkin tz parents: diff changeset	69	^ nil
60e6a7d07c93 initial checkin tz parents: diff changeset	70
1434 8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	71	"Modified: / 29.1.1998 / 22:08:12 / cg"
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	72	!
60e6a7d07c93 initial checkin tz parents: diff changeset	73
60e6a7d07c93 initial checkin tz parents: diff changeset	74	label
60e6a7d07c93 initial checkin tz parents: diff changeset	75
60e6a7d07c93 initial checkin tz parents: diff changeset	76	^'Launcher'
60e6a7d07c93 initial checkin tz parents: diff changeset	77
60e6a7d07c93 initial checkin tz parents: diff changeset	78
1434 8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	79	!
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	80
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	81	openLaunchers
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	82
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	83	^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	84	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	85
60e6a7d07c93 initial checkin tz parents: diff changeset	86	!NewLauncher class methodsFor:'defaults'!
60e6a7d07c93 initial checkin tz parents: diff changeset	87
60e6a7d07c93 initial checkin tz parents: diff changeset	88	notifyingEmergencyHandler
60e6a7d07c93 initial checkin tz parents: diff changeset	89	"return a block (used as an emergency handler
60e6a7d07c93 initial checkin tz parents: diff changeset	90	for exceptions), which does errorNotification before going
60e6a7d07c93 initial checkin tz parents: diff changeset	91	into the debugger."
60e6a7d07c93 initial checkin tz parents: diff changeset	92
60e6a7d07c93 initial checkin tz parents: diff changeset	93	"Remember the handlerBlock, to be able to determine if the current
60e6a7d07c93 initial checkin tz parents: diff changeset	94	handler is the notifying one."
60e6a7d07c93 initial checkin tz parents: diff changeset	95
60e6a7d07c93 initial checkin tz parents: diff changeset	96	^ NotifyingEmergencyHandler ? (NotifyingEmergencyHandler := Exception notifyingEmergencyHandler)
60e6a7d07c93 initial checkin tz parents: diff changeset	97	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	98
60e6a7d07c93 initial checkin tz parents: diff changeset	99	!NewLauncher class methodsFor:'interface specs'!
60e6a7d07c93 initial checkin tz parents: diff changeset	100
60e6a7d07c93 initial checkin tz parents: diff changeset	101	windowSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	102	"this window spec was automatically generated by the ST/X UIPainter"
60e6a7d07c93 initial checkin tz parents: diff changeset	103
60e6a7d07c93 initial checkin tz parents: diff changeset	104	"do not manually edit this - the painter/builder may not be able to
60e6a7d07c93 initial checkin tz parents: diff changeset	105	handle the specification if its corrupted."
60e6a7d07c93 initial checkin tz parents: diff changeset	106
60e6a7d07c93 initial checkin tz parents: diff changeset	107	"
60e6a7d07c93 initial checkin tz parents: diff changeset	108	UIPainter new openOnClass:NewLauncher andSelector:#windowSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	109	NewLauncher new openInterface:#windowSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	110	"
60e6a7d07c93 initial checkin tz parents: diff changeset	111	"NewLauncher open"
60e6a7d07c93 initial checkin tz parents: diff changeset	112
60e6a7d07c93 initial checkin tz parents: diff changeset	113	<resource: #canvas>
60e6a7d07c93 initial checkin tz parents: diff changeset	114
60e6a7d07c93 initial checkin tz parents: diff changeset	115	^
60e6a7d07c93 initial checkin tz parents: diff changeset	116
60e6a7d07c93 initial checkin tz parents: diff changeset	117	#(#FullSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	118	#'window:'
60e6a7d07c93 initial checkin tz parents: diff changeset	119	#(#WindowSpec
1449 575d815f07db help menu item aligned to the right tz parents: 1447 diff changeset	120	#'name:' 'Launcher'
1457 ee9624cd7f4e default size Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	121	#'layout:' #(#LayoutFrame 21 0 46 0 620 0 342 0)
1449 575d815f07db help menu item aligned to the right tz parents: 1447 diff changeset	122	#'label:' 'Launcher'
1442 db512ac5f492 window extent changed to smallest possible extent tz parents: 1441 diff changeset	123	#'min:' #(#Point 320 240)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	124	#'max:' #(#Point 1152 900)
1457 ee9624cd7f4e default size Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	125	#'bounds:' #(#Rectangle 21 46 621 343)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	126	#'menu:' #menu
60e6a7d07c93 initial checkin tz parents: diff changeset	127	#'usePreferredExtent:' false
60e6a7d07c93 initial checkin tz parents: diff changeset	128	)
60e6a7d07c93 initial checkin tz parents: diff changeset	129	#'component:'
60e6a7d07c93 initial checkin tz parents: diff changeset	130	#(#SpecCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	131	#'collection:'
60e6a7d07c93 initial checkin tz parents: diff changeset	132	#(
60e6a7d07c93 initial checkin tz parents: diff changeset	133	#(#MenuPanelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	134	#'name:' 'menuToolbarView'
1420 fadb401ebd9f tool bar enlarged for larger icons tz parents: 1417 diff changeset	135	#'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	136	#'menu:' #menuToolbar
60e6a7d07c93 initial checkin tz parents: diff changeset	137	#'style:' #(#FontDescription #helvetica #medium #roman 10)
60e6a7d07c93 initial checkin tz parents: diff changeset	138	)
60e6a7d07c93 initial checkin tz parents: diff changeset	139	#(#ArbitraryComponentSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	140	#'name:' 'transcriptView'
1453 6abe92727df3 info bars redesigned tz parents: 1449 diff changeset	141	#'layout:' #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	142	#'hasHorizontalScrollBar:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	143	#'hasVerticalScrollBar:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	144	#'miniScrollerHorizontal:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	145	#'component:' #TextCollector
60e6a7d07c93 initial checkin tz parents: diff changeset	146	#'hasBorder:' false
60e6a7d07c93 initial checkin tz parents: diff changeset	147	)
1422 bd1798d4454c exit dialog changed + info bar as subSpec to class ToolApplicationModel moved tz parents: 1420 diff changeset	148	#(#UISubSpecification
bd1798d4454c exit dialog changed + info bar as subSpec to class ToolApplicationModel moved tz parents: 1420 diff changeset	149	#'name:' 'infoBarSubSpec'
1453 6abe92727df3 info bars redesigned tz parents: 1449 diff changeset	150	#'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
1422 bd1798d4454c exit dialog changed + info bar as subSpec to class ToolApplicationModel moved tz parents: 1420 diff changeset	151	#'majorKey:' #ToolApplicationModel
1443 70b765e30ce2 info bar subspec changed tz parents: 1442 diff changeset	152	#'minorKey:' #windowSpecForInfoBarWithClock
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	153	)
60e6a7d07c93 initial checkin tz parents: diff changeset	154	)
60e6a7d07c93 initial checkin tz parents: diff changeset	155	)
60e6a7d07c93 initial checkin tz parents: diff changeset	156	)
1457 ee9624cd7f4e default size Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	157
ee9624cd7f4e default size Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	158	"Modified: / 5.2.1998 / 19:27:33 / cg"
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	159	!
60e6a7d07c93 initial checkin tz parents: diff changeset	160
60e6a7d07c93 initial checkin tz parents: diff changeset	161	windowSpecForApplicationSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	162	"this window spec was automatically generated by the ST/X UIPainter"
60e6a7d07c93 initial checkin tz parents: diff changeset	163
60e6a7d07c93 initial checkin tz parents: diff changeset	164	"do not manually edit this - the painter/builder may not be able to
60e6a7d07c93 initial checkin tz parents: diff changeset	165	handle the specification if its corrupted."
60e6a7d07c93 initial checkin tz parents: diff changeset	166
60e6a7d07c93 initial checkin tz parents: diff changeset	167	"
60e6a7d07c93 initial checkin tz parents: diff changeset	168	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecForApplicationSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	169	NewLauncher new openInterface:#windowSpecForApplicationSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	170	"
60e6a7d07c93 initial checkin tz parents: diff changeset	171
60e6a7d07c93 initial checkin tz parents: diff changeset	172	<resource: #canvas>
60e6a7d07c93 initial checkin tz parents: diff changeset	173
60e6a7d07c93 initial checkin tz parents: diff changeset	174	^
60e6a7d07c93 initial checkin tz parents: diff changeset	175
60e6a7d07c93 initial checkin tz parents: diff changeset	176	#(#FullSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	177	#'window:'
60e6a7d07c93 initial checkin tz parents: diff changeset	178	#(#WindowSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	179	#'name:' 'Application Builder'
60e6a7d07c93 initial checkin tz parents: diff changeset	180	#'layout:' #(#LayoutFrame 86 0 180 0 506 0 782 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	181	#'label:' 'Application Builder'
60e6a7d07c93 initial checkin tz parents: diff changeset	182	#'min:' #(#Point 420 220)
60e6a7d07c93 initial checkin tz parents: diff changeset	183	#'max:' #(#Point 1152 900)
60e6a7d07c93 initial checkin tz parents: diff changeset	184	#'bounds:' #(#Rectangle 86 180 507 783)
60e6a7d07c93 initial checkin tz parents: diff changeset	185	#'usePreferredExtent:' false
60e6a7d07c93 initial checkin tz parents: diff changeset	186	)
60e6a7d07c93 initial checkin tz parents: diff changeset	187	#'component:'
60e6a7d07c93 initial checkin tz parents: diff changeset	188	#(#SpecCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	189	#'collection:'
60e6a7d07c93 initial checkin tz parents: diff changeset	190	#(
60e6a7d07c93 initial checkin tz parents: diff changeset	191	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	192	#'name:' 'applicationNameLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	193	#'layout:' #(#LayoutFrame 4 0 4 0 130 0 26 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	194	#'label:' 'Application Name:'
60e6a7d07c93 initial checkin tz parents: diff changeset	195	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	196	)
60e6a7d07c93 initial checkin tz parents: diff changeset	197	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	198	#'name:' 'applicationNameInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	199	#'layout:' #(#LayoutFrame 140 0 4 0 -4 1 26 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	200	#'model:' #valueOfApplicationName
60e6a7d07c93 initial checkin tz parents: diff changeset	201	)
60e6a7d07c93 initial checkin tz parents: diff changeset	202	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	203	#'name:' 'startupClassLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	204	#'layout:' #(#LayoutFrame 4 0 28 0 130 0 50 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	205	#'label:' 'Startup Class:'
60e6a7d07c93 initial checkin tz parents: diff changeset	206	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	207	)
60e6a7d07c93 initial checkin tz parents: diff changeset	208	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	209	#'name:' 'startupClassInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	210	#'layout:' #(#LayoutFrame 140 0 28 0 -4 1.0 50 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	211	#'model:' #valueOfStartupClass
60e6a7d07c93 initial checkin tz parents: diff changeset	212	)
60e6a7d07c93 initial checkin tz parents: diff changeset	213	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	214	#'name:' 'startupSelectorLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	215	#'layout:' #(#LayoutFrame 4 0 52 0 130 0 74 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	216	#'label:' 'Startup Selector:'
60e6a7d07c93 initial checkin tz parents: diff changeset	217	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	218	)
60e6a7d07c93 initial checkin tz parents: diff changeset	219	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	220	#'name:' 'startupSelectorInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	221	#'layout:' #(#LayoutFrame 140 0 52 0 -4 1.0 74 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	222	#'model:' #valueOfStartupSelector
60e6a7d07c93 initial checkin tz parents: diff changeset	223	)
60e6a7d07c93 initial checkin tz parents: diff changeset	224	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	225	#'name:' 'targetDirectoryLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	226	#'layout:' #(#LayoutFrame 4 0 130 0 130 0 152 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	227	#'label:' 'Target Directory:'
60e6a7d07c93 initial checkin tz parents: diff changeset	228	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	229	)
60e6a7d07c93 initial checkin tz parents: diff changeset	230	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	231	#'name:' 'targetDirectoryInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	232	#'layout:' #(#LayoutFrame 140 0 130 0 -4 1.0 152 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	233	#'model:' #valueOfTargetDirectory
60e6a7d07c93 initial checkin tz parents: diff changeset	234	)
60e6a7d07c93 initial checkin tz parents: diff changeset	235	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	236	#'name:' 'buildDateLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	237	#'layout:' #(#LayoutFrame 4 0 76 0 130 0 98 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	238	#'label:' 'Build Date:'
60e6a7d07c93 initial checkin tz parents: diff changeset	239	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	240	)
60e6a7d07c93 initial checkin tz parents: diff changeset	241	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	242	#'name:' 'buildDateInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	243	#'layout:' #(#LayoutFrame 140 0 76 0 -4 1.0 98 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	244	#'model:' #valueOfBuildDate
60e6a7d07c93 initial checkin tz parents: diff changeset	245	)
60e6a7d07c93 initial checkin tz parents: diff changeset	246	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	247	#'name:' 'configurationLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	248	#'layout:' #(#LayoutFrame 4 0 100 0 130 0 122 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	249	#'label:' 'Configuration:'
60e6a7d07c93 initial checkin tz parents: diff changeset	250	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	251	)
60e6a7d07c93 initial checkin tz parents: diff changeset	252	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	253	#'name:' 'configurationInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	254	#'layout:' #(#LayoutFrame 140 0 100 0 -4 1.0 122 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	255	#'model:' #valueOfConfiguration
60e6a7d07c93 initial checkin tz parents: diff changeset	256	)
60e6a7d07c93 initial checkin tz parents: diff changeset	257	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	258	#'name:' 'startupModulLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	259	#'layout:' #(#LayoutFrame 4 0 178 0 130 0 200 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	260	#'label:' 'Startup Modul:'
60e6a7d07c93 initial checkin tz parents: diff changeset	261	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	262	)
60e6a7d07c93 initial checkin tz parents: diff changeset	263	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	264	#'name:' 'startupModulInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	265	#'layout:' #(#LayoutFrame 140 0 178 0 -4 1.0 200 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	266	#'model:' #valueOfStartupModule
60e6a7d07c93 initial checkin tz parents: diff changeset	267	)
60e6a7d07c93 initial checkin tz parents: diff changeset	268	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	269	#'name:' 'topDirectoryInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	270	#'layout:' #(#LayoutFrame 140 0 154 0 -4 1.0 176 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	271	#'model:' #valueOfTopDirectory
60e6a7d07c93 initial checkin tz parents: diff changeset	272	)
60e6a7d07c93 initial checkin tz parents: diff changeset	273	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	274	#'name:' 'topDirectoryLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	275	#'layout:' #(#LayoutFrame 4 0 154 0 130 0 176 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	276	#'label:' 'Top Directory:'
60e6a7d07c93 initial checkin tz parents: diff changeset	277	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	278	)
60e6a7d07c93 initial checkin tz parents: diff changeset	279	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	280	#'name:' 'librariesLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	281	#'layout:' #(#LayoutFrame 3 0 208 0 129 0 230 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	282	#'label:' 'System Libraries:'
60e6a7d07c93 initial checkin tz parents: diff changeset	283	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	284	)
60e6a7d07c93 initial checkin tz parents: diff changeset	285	#(#ViewSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	286	#'name:' 'view2'
60e6a7d07c93 initial checkin tz parents: diff changeset	287	#'layout:' #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1.0)
60e6a7d07c93 initial checkin tz parents: diff changeset	288	#'component:'
60e6a7d07c93 initial checkin tz parents: diff changeset	289	#(#SpecCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	290	#'collection:'
60e6a7d07c93 initial checkin tz parents: diff changeset	291	#(
60e6a7d07c93 initial checkin tz parents: diff changeset	292	#(#ActionButtonSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	293	#'name:' 'buildButton'
60e6a7d07c93 initial checkin tz parents: diff changeset	294	#'layout:' #(#LayoutFrame 10 0.5 10 0 -10 1 -10 1)
60e6a7d07c93 initial checkin tz parents: diff changeset	295	#'label:' 'Build'
60e6a7d07c93 initial checkin tz parents: diff changeset	296	#'model:' #buildApplication
60e6a7d07c93 initial checkin tz parents: diff changeset	297	)
60e6a7d07c93 initial checkin tz parents: diff changeset	298	#(#ActionButtonSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	299	#'name:' 'closeButton'
60e6a7d07c93 initial checkin tz parents: diff changeset	300	#'layout:' #(#LayoutFrame 10 0.0 10 0 -10 0.5 -10 1)
60e6a7d07c93 initial checkin tz parents: diff changeset	301	#'label:' 'Close'
60e6a7d07c93 initial checkin tz parents: diff changeset	302	#'model:' #accept
60e6a7d07c93 initial checkin tz parents: diff changeset	303	)
60e6a7d07c93 initial checkin tz parents: diff changeset	304	)
60e6a7d07c93 initial checkin tz parents: diff changeset	305	)
60e6a7d07c93 initial checkin tz parents: diff changeset	306	)
60e6a7d07c93 initial checkin tz parents: diff changeset	307	#(#DividerSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	308	#'name:' 'divider1'
60e6a7d07c93 initial checkin tz parents: diff changeset	309	#'layout:' #(#LayoutFrame 0 0 202 0 0 1 205 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	310	#'orientation:' #horizontal
60e6a7d07c93 initial checkin tz parents: diff changeset	311	)
60e6a7d07c93 initial checkin tz parents: diff changeset	312	#(#DividerSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	313	#'name:' 'divider3'
60e6a7d07c93 initial checkin tz parents: diff changeset	314	#'layout:' #(#LayoutFrame 0 0 124 0 0 1 127 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	315	#'orientation:' #horizontal
60e6a7d07c93 initial checkin tz parents: diff changeset	316	)
60e6a7d07c93 initial checkin tz parents: diff changeset	317	#(#FramedBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	318	#'name:' 'framedBox1'
60e6a7d07c93 initial checkin tz parents: diff changeset	319	#'layout:' #(#LayoutFrame 0 0 281 0 0 0.5 -44 1)
60e6a7d07c93 initial checkin tz parents: diff changeset	320	#'component:'
60e6a7d07c93 initial checkin tz parents: diff changeset	321	#(#SpecCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	322	#'collection:'
60e6a7d07c93 initial checkin tz parents: diff changeset	323	#(
60e6a7d07c93 initial checkin tz parents: diff changeset	324	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	325	#'name:' 'librunCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	326	#'layout:' #(#LayoutFrame 10 0 22 0 10 0.5 44 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	327	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	328	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	329	#'label:' 'librun'
60e6a7d07c93 initial checkin tz parents: diff changeset	330	)
60e6a7d07c93 initial checkin tz parents: diff changeset	331	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	332	#'name:' 'libbasicCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	333	#'layout:' #(#LayoutFrame 10 0 48 0 10 0.5 70 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	334	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	335	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	336	#'label:' 'libbasic'
60e6a7d07c93 initial checkin tz parents: diff changeset	337	)
60e6a7d07c93 initial checkin tz parents: diff changeset	338	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	339	#'name:' 'libbasic2CheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	340	#'layout:' #(#LayoutFrame 10 0 74 0 10 0.5 96 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	341	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	342	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	343	#'label:' 'libbasic2'
60e6a7d07c93 initial checkin tz parents: diff changeset	344	)
60e6a7d07c93 initial checkin tz parents: diff changeset	345	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	346	#'name:' 'libbasic3CheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	347	#'layout:' #(#LayoutFrame 10 0 100 0 10 1 122 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	348	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	349	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	350	#'label:' 'libbasic3'
60e6a7d07c93 initial checkin tz parents: diff changeset	351	)
60e6a7d07c93 initial checkin tz parents: diff changeset	352	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	353	#'name:' 'libviewCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	354	#'layout:' #(#LayoutFrame 10 0 126 0 10 1 148 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	355	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	356	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	357	#'label:' 'libview'
60e6a7d07c93 initial checkin tz parents: diff changeset	358	)
60e6a7d07c93 initial checkin tz parents: diff changeset	359	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	360	#'name:' 'libview2CheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	361	#'layout:' #(#LayoutFrame 10 0 152 0 10 1 174 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	362	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	363	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	364	#'label:' 'libview2'
60e6a7d07c93 initial checkin tz parents: diff changeset	365	)
60e6a7d07c93 initial checkin tz parents: diff changeset	366	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	367	#'name:' 'ObjectFileLoaderCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	368	#'layout:' #(#LayoutFrame 10 0 178 0 10 1 202 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	369	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	370	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	371	#'label:' 'ObjectFileLoader'
60e6a7d07c93 initial checkin tz parents: diff changeset	372	)
60e6a7d07c93 initial checkin tz parents: diff changeset	373	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	374	#'name:' 'GLXWorkstationCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	375	#'layout:' #(#LayoutFrame 10 0 232 0 10 1 254 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	376	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	377	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	378	#'label:' 'GLXWorkstation'
60e6a7d07c93 initial checkin tz parents: diff changeset	379	)
60e6a7d07c93 initial checkin tz parents: diff changeset	380	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	381	#'name:' 'XWorkstationCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	382	#'layout:' #(#LayoutFrame 10 0 206 0 10 1 228 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	383	#'initiallyDisabled:' true
60e6a7d07c93 initial checkin tz parents: diff changeset	384	#'model:' #valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	385	#'label:' 'XWorkstation'
60e6a7d07c93 initial checkin tz parents: diff changeset	386	)
60e6a7d07c93 initial checkin tz parents: diff changeset	387	)
60e6a7d07c93 initial checkin tz parents: diff changeset	388	)
60e6a7d07c93 initial checkin tz parents: diff changeset	389	#'label:' 'Basics'
60e6a7d07c93 initial checkin tz parents: diff changeset	390	#'labelPosition:' #topLeft
60e6a7d07c93 initial checkin tz parents: diff changeset	391	)
60e6a7d07c93 initial checkin tz parents: diff changeset	392	#(#FramedBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	393	#'name:' 'framedBox2'
60e6a7d07c93 initial checkin tz parents: diff changeset	394	#'layout:' #(#LayoutFrame 0 0.5 281 0 0 1 392 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	395	#'component:'
60e6a7d07c93 initial checkin tz parents: diff changeset	396	#(#SpecCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	397	#'collection:'
60e6a7d07c93 initial checkin tz parents: diff changeset	398	#(
60e6a7d07c93 initial checkin tz parents: diff changeset	399	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	400	#'name:' 'libwidgCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	401	#'layout:' #(#LayoutFrame 10 0 22 0 10 1 44 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	402	#'model:' #valueOfLibwidg
60e6a7d07c93 initial checkin tz parents: diff changeset	403	#'label:' 'libwidg'
60e6a7d07c93 initial checkin tz parents: diff changeset	404	)
60e6a7d07c93 initial checkin tz parents: diff changeset	405	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	406	#'name:' 'libwidg2CheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	407	#'layout:' #(#LayoutFrame 10 0 48 0 10 1 70 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	408	#'model:' #valueOfLibwidg2
60e6a7d07c93 initial checkin tz parents: diff changeset	409	#'label:' 'libwidg2'
60e6a7d07c93 initial checkin tz parents: diff changeset	410	)
60e6a7d07c93 initial checkin tz parents: diff changeset	411	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	412	#'name:' 'libuiCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	413	#'layout:' #(#LayoutFrame 10 0 74 0 10 1 96 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	414	#'model:' #valueOfLibui
60e6a7d07c93 initial checkin tz parents: diff changeset	415	#'label:' 'libui'
60e6a7d07c93 initial checkin tz parents: diff changeset	416	)
60e6a7d07c93 initial checkin tz parents: diff changeset	417	)
60e6a7d07c93 initial checkin tz parents: diff changeset	418	)
60e6a7d07c93 initial checkin tz parents: diff changeset	419	#'label:' 'UI'
60e6a7d07c93 initial checkin tz parents: diff changeset	420	#'labelPosition:' #topLeft
60e6a7d07c93 initial checkin tz parents: diff changeset	421	)
60e6a7d07c93 initial checkin tz parents: diff changeset	422	#(#FramedBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	423	#'name:' 'framedBox3'
60e6a7d07c93 initial checkin tz parents: diff changeset	424	#'layout:' #(#LayoutFrame 0 0.5 392 0 0 1 -44 1)
60e6a7d07c93 initial checkin tz parents: diff changeset	425	#'component:'
60e6a7d07c93 initial checkin tz parents: diff changeset	426	#(#SpecCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	427	#'collection:'
60e6a7d07c93 initial checkin tz parents: diff changeset	428	#(
60e6a7d07c93 initial checkin tz parents: diff changeset	429	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	430	#'name:' 'libtoolCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	431	#'layout:' #(#LayoutFrame 10 0 22 0 10 1 44 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	432	#'model:' #valueOfLibtool
60e6a7d07c93 initial checkin tz parents: diff changeset	433	#'label:' 'libtool'
60e6a7d07c93 initial checkin tz parents: diff changeset	434	)
60e6a7d07c93 initial checkin tz parents: diff changeset	435	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	436	#'name:' 'libtool2CheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	437	#'layout:' #(#LayoutFrame 10 0 48 0 10 1 70 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	438	#'model:' #valueOfLibtool2
60e6a7d07c93 initial checkin tz parents: diff changeset	439	#'label:' 'libtool2'
60e6a7d07c93 initial checkin tz parents: diff changeset	440	)
60e6a7d07c93 initial checkin tz parents: diff changeset	441	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	442	#'name:' 'libcompCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	443	#'layout:' #(#LayoutFrame 10 0 74 0 10 1 96 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	444	#'model:' #valueOfLibcomp
60e6a7d07c93 initial checkin tz parents: diff changeset	445	#'label:' 'libcomp'
60e6a7d07c93 initial checkin tz parents: diff changeset	446	)
60e6a7d07c93 initial checkin tz parents: diff changeset	447	#(#CheckBoxSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	448	#'name:' 'libhtmlCheckBox'
60e6a7d07c93 initial checkin tz parents: diff changeset	449	#'layout:' #(#LayoutFrame 10 0 100 0 10 1 122 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	450	#'model:' #valueOfLibhtml
60e6a7d07c93 initial checkin tz parents: diff changeset	451	#'label:' 'libhtml'
60e6a7d07c93 initial checkin tz parents: diff changeset	452	)
60e6a7d07c93 initial checkin tz parents: diff changeset	453	)
60e6a7d07c93 initial checkin tz parents: diff changeset	454	)
60e6a7d07c93 initial checkin tz parents: diff changeset	455	#'label:' 'Optional'
60e6a7d07c93 initial checkin tz parents: diff changeset	456	#'labelPosition:' #topLeft
60e6a7d07c93 initial checkin tz parents: diff changeset	457	)
60e6a7d07c93 initial checkin tz parents: diff changeset	458	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	459	#'name:' 'userLibrariesLabel'
60e6a7d07c93 initial checkin tz parents: diff changeset	460	#'layout:' #(#LayoutFrame 3 0 232 0 129 0 254 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	461	#'label:' 'User Libraries:'
60e6a7d07c93 initial checkin tz parents: diff changeset	462	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	463	)
60e6a7d07c93 initial checkin tz parents: diff changeset	464	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	465	#'name:' 'userLibrariesInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	466	#'layout:' #(#LayoutFrame 139 0 233 0 -5 1.0 255 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	467	#'model:' #valueOfUserLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	468	)
60e6a7d07c93 initial checkin tz parents: diff changeset	469	#(#LabelSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	470	#'name:' 'label1'
60e6a7d07c93 initial checkin tz parents: diff changeset	471	#'layout:' #(#LayoutFrame 3 0 256 0 129 0 278 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	472	#'label:' 'ST/X Libraries:'
60e6a7d07c93 initial checkin tz parents: diff changeset	473	#'adjust:' #right
60e6a7d07c93 initial checkin tz parents: diff changeset	474	)
60e6a7d07c93 initial checkin tz parents: diff changeset	475	#(#InputFieldSpec
60e6a7d07c93 initial checkin tz parents: diff changeset	476	#'name:' 'systemLibrariesInputField'
60e6a7d07c93 initial checkin tz parents: diff changeset	477	#'layout:' #(#LayoutFrame 139 0 208 0 -5 1.0 230 0)
60e6a7d07c93 initial checkin tz parents: diff changeset	478	#'model:' #valueOfSystemLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	479	)
60e6a7d07c93 initial checkin tz parents: diff changeset	480	)
60e6a7d07c93 initial checkin tz parents: diff changeset	481	)
60e6a7d07c93 initial checkin tz parents: diff changeset	482	)
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	483	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	484
da20bf21fb13 first offical release tz parents: 1406 diff changeset	485	windowSpecForStyleSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	486	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	487
da20bf21fb13 first offical release tz parents: 1406 diff changeset	488	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	489	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	490
da20bf21fb13 first offical release tz parents: 1406 diff changeset	491	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	492	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecForStyleSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	493	NewLauncher new openInterface:#windowSpecForStyleSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	494	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	495
da20bf21fb13 first offical release tz parents: 1406 diff changeset	496	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	497
da20bf21fb13 first offical release tz parents: 1406 diff changeset	498	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	499
da20bf21fb13 first offical release tz parents: 1406 diff changeset	500	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	501	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	502	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	503	#'name:' 'Style Settings'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	504	#'layout:' #(#LayoutFrame 238 0 252 0 675 0 678 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	505	#'label:' 'Style Settings'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	506	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	507	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	508	#'bounds:' #(#Rectangle 238 252 676 679)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	509	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	510	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	511	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	512	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	513	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	514	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	515	#(#NoteBookViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	516	#'name:' 'noteBookView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	517	#'layout:' #(#LayoutFrame 2 0.0 0 0.0 -2 1.0 -47 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	518	#'model:' #selectionOfSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	519	#'menu:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	520	#('Views'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	521	'Fonts' 'Language'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	522	'Keyboard' 'Misc'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	523	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	524	#'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	525	#'level:' 1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	526	#'canvas:' #settingsCanvas
da20bf21fb13 first offical release tz parents: 1406 diff changeset	527	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	528	#(#HorizontalPanelViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	529	#'name:' 'horizontalPanelView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	530	#'layout:' #(#LayoutFrame 1 0.0 -47 1 1 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	531	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	532	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	533	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	534	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	535	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	536	#'name:' 'helpButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	537	#'label:' 'Help'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	538	#'style:' #(#FontDescription #helvetica #bold #roman 12)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	539	#'model:' #'doForCurrentSettings:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	540	#'actionValue:' #help
da20bf21fb13 first offical release tz parents: 1406 diff changeset	541	#'extent:' #(#Point 213 24)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	542	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	543	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	544	#'name:' 'closeButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	545	#'label:' 'Close'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	546	#'style:' #(#FontDescription #helvetica #bold #roman 12)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	547	#'model:' #accept
da20bf21fb13 first offical release tz parents: 1406 diff changeset	548	#'extent:' #(#Point 214 24)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	549	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	550	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	551	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	552	#'level:' 1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	553	#'horizontalLayout:' #fitSpace
da20bf21fb13 first offical release tz parents: 1406 diff changeset	554	#'verticalLayout:' #center
da20bf21fb13 first offical release tz parents: 1406 diff changeset	555	#'horizontalSpace:' 3
da20bf21fb13 first offical release tz parents: 1406 diff changeset	556	#'verticalSpace:' 3
da20bf21fb13 first offical release tz parents: 1406 diff changeset	557	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	558	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	559	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	560	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	561	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	562
da20bf21fb13 first offical release tz parents: 1406 diff changeset	563	windowSpecForSystemSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	564	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	565
da20bf21fb13 first offical release tz parents: 1406 diff changeset	566	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	567	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	568
da20bf21fb13 first offical release tz parents: 1406 diff changeset	569	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	570	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecForSystemSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	571	NewLauncher new openInterface:#windowSpecForSystemSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	572	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	573
da20bf21fb13 first offical release tz parents: 1406 diff changeset	574	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	575
da20bf21fb13 first offical release tz parents: 1406 diff changeset	576	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	577
da20bf21fb13 first offical release tz parents: 1406 diff changeset	578	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	579	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	580	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	581	#'name:' 'Style Settings'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	582	#'layout:' #(#LayoutFrame 96 0 317 0 533 0 743 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	583	#'label:' 'Style Settings'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	584	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	585	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	586	#'bounds:' #(#Rectangle 96 317 534 744)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	587	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	588	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	589	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	590	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	591	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	592	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	593	#(#NoteBookViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	594	#'name:' 'noteBookView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	595	#'layout:' #(#LayoutFrame 2 0.0 0 0.0 -2 1.0 -47 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	596	#'model:' #selectionOfSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	597	#'menu:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	598	#('Sources'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	599	'Messages' 'Memory'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	600	'Screen' 'Printer'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	601	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	602	#'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	603	#'level:' 1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	604	#'canvas:' #settingsCanvas
da20bf21fb13 first offical release tz parents: 1406 diff changeset	605	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	606	#(#HorizontalPanelViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	607	#'name:' 'horizontalPanelView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	608	#'layout:' #(#LayoutFrame 1 0.0 -47 1 1 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	609	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	610	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	611	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	612	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	613	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	614	#'name:' 'helpButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	615	#'label:' 'Help'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	616	#'style:' #(#FontDescription #helvetica #bold #roman 12)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	617	#'model:' #'doForCurrentSettings:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	618	#'actionValue:' #help
da20bf21fb13 first offical release tz parents: 1406 diff changeset	619	#'extent:' #(#Point 213 24)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	620	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	621	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	622	#'name:' 'closeButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	623	#'label:' 'Close'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	624	#'style:' #(#FontDescription #helvetica #bold #roman 12)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	625	#'model:' #accept
da20bf21fb13 first offical release tz parents: 1406 diff changeset	626	#'extent:' #(#Point 214 24)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	627	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	628	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	629	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	630	#'level:' 1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	631	#'horizontalLayout:' #fitSpace
da20bf21fb13 first offical release tz parents: 1406 diff changeset	632	#'verticalLayout:' #center
da20bf21fb13 first offical release tz parents: 1406 diff changeset	633	#'horizontalSpace:' 3
da20bf21fb13 first offical release tz parents: 1406 diff changeset	634	#'verticalSpace:' 3
da20bf21fb13 first offical release tz parents: 1406 diff changeset	635	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	636	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	637	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	638	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	639	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	640
da20bf21fb13 first offical release tz parents: 1406 diff changeset	641	windowSpecOfFontsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	642	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	643
da20bf21fb13 first offical release tz parents: 1406 diff changeset	644	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	645	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	646
da20bf21fb13 first offical release tz parents: 1406 diff changeset	647	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	648	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfFontsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	649	NewLauncher new openInterface:#windowSpecOfFontsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	650	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	651
da20bf21fb13 first offical release tz parents: 1406 diff changeset	652	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	653
da20bf21fb13 first offical release tz parents: 1406 diff changeset	654	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	655
da20bf21fb13 first offical release tz parents: 1406 diff changeset	656	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	657	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	658	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	659	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	660	#'layout:' #(#LayoutFrame 234 0 432 0 671 0 811 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	661	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	662	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	663	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	664	#'bounds:' #(#Rectangle 234 432 672 812)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	665	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	666	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	667	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	668	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	669	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	670	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	671	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	672	#'name:' 'preViewFramedBox_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	673	#'layout:' #(#LayoutFrame 0 0.0 -80 1 0 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	674	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	675	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	676	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	677	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	678	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	679	#'name:' 'previewFontLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	680	#'layout:' #(#LayoutFrame 16 0.0 18 0.0 16 1.0 13 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	681	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	682	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	683	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	684	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	685	#'label:' 'Font Preview'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	686	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	687	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	688	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	689	#'name:' 'fontDescriptionFramedBox_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	690	#'layout:' #(#LayoutFrame 0 0.5 95 0.0 0 1 -80 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	691	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	692	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	693	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	694	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	695	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	696	#'name:' 'fontFamilyLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	697	#'layout:' #(#LayoutFrame 15 0.0 22 0 15 1.0 44 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	698	#'level:' -1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	699	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	700	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	701	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	702	#'name:' 'fontFaceLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	703	#'layout:' #(#LayoutFrame 15 0.0 49 0 15 1.0 71 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	704	#'level:' -1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	705	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	706	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	707	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	708	#'name:' 'fontStyleLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	709	#'layout:' #(#LayoutFrame 15 0.0 77 0 15 1.0 99 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	710	#'level:' -1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	711	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	712	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	713	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	714	#'name:' 'fontSizeLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	715	#'layout:' #(#LayoutFrame 15 0.0 105 0 15 1.0 127 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	716	#'level:' -1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	717	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	718	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	719	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	720	#'name:' 'fontEncodingLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	721	#'layout:' #(#LayoutFrame 15 0.0 133 0 15 1.0 155 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	722	#'level:' -1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	723	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	724	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	725	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	726	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	727	#'label:' 'Font Description'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	728	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	729	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	730	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	731	#'name:' 'changeAllButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	732	#'layout:' #(#LayoutFrame 5 0.5 36 0 -5 1 60 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	733	#'label:' 'Change for all View Classes...'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	734	#'translateLabel:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	735	#'model:' #'changeFontFor:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	736	#'actionValue:' 'All'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	737	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	738	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	739	#'name:' 'defaultButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	740	#'layout:' #(#LayoutFrame 5 0.5 64 0 -5 1 88 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	741	#'label:' 'Set Default Fonts'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	742	#'translateLabel:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	743	#'model:' #'changeFontFor:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	744	#'actionValue:' 'Default'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	745	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	746	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	747	#'name:' 'changeFontButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	748	#'layout:' #(#LayoutFrame 5 0.5 8 0 -5 1.0 32 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	749	#'label:' 'Change Font...'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	750	#'translateLabel:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	751	#'model:' #changeFont
da20bf21fb13 first offical release tz parents: 1406 diff changeset	752	#'actionValue:' ''
da20bf21fb13 first offical release tz parents: 1406 diff changeset	753	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	754	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	755	#'name:' 'viewClassesFramedBox_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	756	#'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 0.5 -80 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	757	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	758	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	759	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	760	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	761	#(#SelectionInTreeViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	762	#'name:' 'viewClassesListView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	763	#'layout:' #(#LayoutFrame 15 0.0 17 0.0 15 1.0 17 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	764	#'model:' #selectionOfViewClass
da20bf21fb13 first offical release tz parents: 1406 diff changeset	765	#'hasHorizontalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	766	#'hasVerticalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	767	#'miniScrollerHorizontal:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	768	#'miniScrollerVertical:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	769	#'valueChangeSelector:' #updatePreviewFontLabel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	770	#'hierarchicalList:' #listOfViewClasses
da20bf21fb13 first offical release tz parents: 1406 diff changeset	771	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	772	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	773	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	774	#'label:' 'View Classes'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	775	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	776	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	777	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	778	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	779	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	780	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	781
da20bf21fb13 first offical release tz parents: 1406 diff changeset	782	windowSpecOfKeyboardSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	783	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	784
da20bf21fb13 first offical release tz parents: 1406 diff changeset	785	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	786	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	787
da20bf21fb13 first offical release tz parents: 1406 diff changeset	788	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	789	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfKeyboardSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	790	NewLauncher new openInterface:#windowSpecOfKeyboardSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	791	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	792
da20bf21fb13 first offical release tz parents: 1406 diff changeset	793	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	794
da20bf21fb13 first offical release tz parents: 1406 diff changeset	795	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	796
da20bf21fb13 first offical release tz parents: 1406 diff changeset	797	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	798	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	799	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	800	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	801	#'layout:' #(#LayoutFrame 71 0 497 0 508 0 894 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	802	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	803	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	804	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	805	#'bounds:' #(#Rectangle 71 497 509 895)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	806	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	807	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	808	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	809	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	810	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	811	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	812	#(#SequenceViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	813	#'name:' 'rawKeysListView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	814	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 0.5 0 0.6)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	815	#'model:' #listOfRawKeys
da20bf21fb13 first offical release tz parents: 1406 diff changeset	816	#'hasHorizontalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	817	#'hasVerticalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	818	#'miniScrollerHorizontal:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	819	#'useIndex:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	820	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	821	#(#SequenceViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	822	#'name:' 'functionsListView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	823	#'layout:' #(#LayoutFrame 0 0.5 0 0.0 0 1.0 0 0.6)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	824	#'model:' #listOfFunctions
da20bf21fb13 first offical release tz parents: 1406 diff changeset	825	#'hasHorizontalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	826	#'hasVerticalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	827	#'miniScrollerHorizontal:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	828	#'useIndex:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	829	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	830	#(#TextEditorSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	831	#'name:' 'keyMacroTextEditor_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	832	#'layout:' #(#LayoutFrame 0 0.0 0 0.6 0 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	833	#'model:' #keyMacroText
da20bf21fb13 first offical release tz parents: 1406 diff changeset	834	#'hasHorizontalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	835	#'hasVerticalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	836	#'miniScrollerHorizontal:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	837	#'isReadOnly:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	838	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	839	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	840	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	841	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	842	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	843
da20bf21fb13 first offical release tz parents: 1406 diff changeset	844	windowSpecOfLanguageSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	845	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	846
da20bf21fb13 first offical release tz parents: 1406 diff changeset	847	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	848	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	849
da20bf21fb13 first offical release tz parents: 1406 diff changeset	850	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	851	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfLanguageSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	852	NewLauncher new openInterface:#windowSpecOfLanguageSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	853	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	854
da20bf21fb13 first offical release tz parents: 1406 diff changeset	855	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	856
da20bf21fb13 first offical release tz parents: 1406 diff changeset	857	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	858
da20bf21fb13 first offical release tz parents: 1406 diff changeset	859	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	860	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	861	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	862	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	863	#'layout:' #(#LayoutFrame 255 0 459 0 692 0 838 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	864	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	865	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	866	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	867	#'bounds:' #(#Rectangle 255 459 693 839)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	868	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	869	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	870	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	871	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	872	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	873	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	874	#(#SequenceViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	875	#'name:' 'languagesListView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	876	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	877	#'model:' #selectionOfLanguage
da20bf21fb13 first offical release tz parents: 1406 diff changeset	878	#'hasHorizontalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	879	#'hasVerticalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	880	#'miniScrollerHorizontal:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	881	#'useIndex:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	882	#'sequenceList:' #listOfLanguages
da20bf21fb13 first offical release tz parents: 1406 diff changeset	883	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	884	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	885	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	886	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	887	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	888
da20bf21fb13 first offical release tz parents: 1406 diff changeset	889	windowSpecOfMemorySettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	890	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	891
da20bf21fb13 first offical release tz parents: 1406 diff changeset	892	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	893	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	894
da20bf21fb13 first offical release tz parents: 1406 diff changeset	895	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	896	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	897	NewLauncher new openInterface:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	898	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	899
da20bf21fb13 first offical release tz parents: 1406 diff changeset	900	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	901
da20bf21fb13 first offical release tz parents: 1406 diff changeset	902	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	903
da20bf21fb13 first offical release tz parents: 1406 diff changeset	904	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	905	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	906	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	907	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	908	#'layout:' #(#LayoutFrame 9 0 394 0 446 0 773 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	909	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	910	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	911	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	912	#'bounds:' #(#Rectangle 9 394 447 774)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	913	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	914	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	915	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	916	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	917	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	918	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	919	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	920	#'name:' 'checkBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	921	#'layout:' #(#LayoutFrame 5 0.0 15 0 -5 1.0 37 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	922	#'model:' #shadowsUnderPopupViews
da20bf21fb13 first offical release tz parents: 1406 diff changeset	923	#'label:' 'Shadows under popup views'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	924	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	925	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	926	#'name:' 'checkBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	927	#'layout:' #(#LayoutFrame 5 0.0 43 0 -5 1.0 65 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	928	#'model:' #boxesReturnsFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	929	#'label:' 'Boxes returns focus to previously active view'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	930	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	931	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	932	#'name:' 'checkBox3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	933	#'layout:' #(#LayoutFrame 5 0.0 71 0 -5 1.0 93 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	934	#'model:' #viewsCatchFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	935	#'label:' 'Views catch focus when mapped'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	936	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	937	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	938	#'name:' 'checkBox4_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	939	#'layout:' #(#LayoutFrame 5 0.0 99 0 -5 1.0 121 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	940	#'model:' #hostnameInWindowLabels
da20bf21fb13 first offical release tz parents: 1406 diff changeset	941	#'label:' 'Hostname in window labels.'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	942	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	943	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	944	#'name:' 'checkBox5_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	945	#'layout:' #(#LayoutFrame 5 0.0 127 0 -5 1.0 149 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	946	#'model:' #showAccelerators
da20bf21fb13 first offical release tz parents: 1406 diff changeset	947	#'label:' 'Show accelerator keys in menus'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	948	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	949	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	950	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	951	)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	952	!
60e6a7d07c93 initial checkin tz parents: diff changeset	953
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	954	windowSpecOfMessagesSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	955	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	956
da20bf21fb13 first offical release tz parents: 1406 diff changeset	957	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	958	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	959
da20bf21fb13 first offical release tz parents: 1406 diff changeset	960	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	961	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	962	NewLauncher new openInterface:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	963	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	964
da20bf21fb13 first offical release tz parents: 1406 diff changeset	965	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	966
da20bf21fb13 first offical release tz parents: 1406 diff changeset	967	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	968
da20bf21fb13 first offical release tz parents: 1406 diff changeset	969	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	970	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	971	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	972	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	973	#'layout:' #(#LayoutFrame 9 0 394 0 446 0 773 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	974	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	975	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	976	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	977	#'bounds:' #(#Rectangle 9 394 447 774)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	978	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	979	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	980	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	981	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	982	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	983	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	984	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	985	#'name:' 'checkBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	986	#'layout:' #(#LayoutFrame 5 0.0 15 0 -5 1.0 37 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	987	#'model:' #shadowsUnderPopupViews
da20bf21fb13 first offical release tz parents: 1406 diff changeset	988	#'label:' 'Shadows under popup views'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	989	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	990	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	991	#'name:' 'checkBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	992	#'layout:' #(#LayoutFrame 5 0.0 43 0 -5 1.0 65 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	993	#'model:' #boxesReturnsFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	994	#'label:' 'Boxes returns focus to previously active view'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	995	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	996	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	997	#'name:' 'checkBox3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	998	#'layout:' #(#LayoutFrame 5 0.0 71 0 -5 1.0 93 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	999	#'model:' #viewsCatchFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1000	#'label:' 'Views catch focus when mapped'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1001	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1002	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1003	#'name:' 'checkBox4_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1004	#'layout:' #(#LayoutFrame 5 0.0 99 0 -5 1.0 121 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1005	#'model:' #hostnameInWindowLabels
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1006	#'label:' 'Hostname in window labels.'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1007	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1008	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1009	#'name:' 'checkBox5_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1010	#'layout:' #(#LayoutFrame 5 0.0 127 0 -5 1.0 149 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1011	#'model:' #showAccelerators
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1012	#'label:' 'Show accelerator keys in menus'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1013	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1014	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1015	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1016	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1017	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1018
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1019	windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1020	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1021
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1022	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1023	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1024
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1025	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1026	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1027	NewLauncher new openInterface:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1028	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1029
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1030	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1031
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1032	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1033
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1034	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1035	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1036	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1037	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1038	#'layout:' #(#LayoutFrame 9 0 394 0 446 0 773 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1039	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1040	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1041	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1042	#'bounds:' #(#Rectangle 9 394 447 774)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1043	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1044	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1045	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1046	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1047	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1048	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1049	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1050	#'name:' 'checkBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1051	#'layout:' #(#LayoutFrame 5 0.0 15 0 -5 1.0 37 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1052	#'model:' #shadowsUnderPopupViews
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1053	#'label:' 'Shadows under popup views'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1054	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1055	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1056	#'name:' 'checkBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1057	#'layout:' #(#LayoutFrame 5 0.0 43 0 -5 1.0 65 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1058	#'model:' #boxesReturnsFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1059	#'label:' 'Boxes returns focus to previously active view'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1060	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1061	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1062	#'name:' 'checkBox3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1063	#'layout:' #(#LayoutFrame 5 0.0 71 0 -5 1.0 93 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1064	#'model:' #viewsCatchFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1065	#'label:' 'Views catch focus when mapped'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1066	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1067	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1068	#'name:' 'checkBox4_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1069	#'layout:' #(#LayoutFrame 5 0.0 99 0 -5 1.0 121 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1070	#'model:' #hostnameInWindowLabels
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1071	#'label:' 'Hostname in window labels.'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1072	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1073	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1074	#'name:' 'checkBox5_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1075	#'layout:' #(#LayoutFrame 5 0.0 127 0 -5 1.0 149 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1076	#'model:' #showAccelerators
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1077	#'label:' 'Show accelerator keys in menus'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1078	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1079	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1080	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1081	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1082	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1083
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1084	windowSpecOfPrinterSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1085	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1086
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1087	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1088	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1089
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1090	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1091	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1092	NewLauncher new openInterface:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1093	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1094
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1095	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1096
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1097	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1098
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1099	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1100	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1101	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1102	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1103	#'layout:' #(#LayoutFrame 9 0 394 0 446 0 773 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1104	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1105	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1106	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1107	#'bounds:' #(#Rectangle 9 394 447 774)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1108	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1109	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1110	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1111	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1112	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1113	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1114	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1115	#'name:' 'checkBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1116	#'layout:' #(#LayoutFrame 5 0.0 15 0 -5 1.0 37 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1117	#'model:' #shadowsUnderPopupViews
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1118	#'label:' 'Shadows under popup views'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1119	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1120	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1121	#'name:' 'checkBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1122	#'layout:' #(#LayoutFrame 5 0.0 43 0 -5 1.0 65 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1123	#'model:' #boxesReturnsFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1124	#'label:' 'Boxes returns focus to previously active view'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1125	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1126	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1127	#'name:' 'checkBox3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1128	#'layout:' #(#LayoutFrame 5 0.0 71 0 -5 1.0 93 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1129	#'model:' #viewsCatchFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1130	#'label:' 'Views catch focus when mapped'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1131	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1132	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1133	#'name:' 'checkBox4_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1134	#'layout:' #(#LayoutFrame 5 0.0 99 0 -5 1.0 121 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1135	#'model:' #hostnameInWindowLabels
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1136	#'label:' 'Hostname in window labels.'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1137	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1138	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1139	#'name:' 'checkBox5_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1140	#'layout:' #(#LayoutFrame 5 0.0 127 0 -5 1.0 149 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1141	#'model:' #showAccelerators
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1142	#'label:' 'Show accelerator keys in menus'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1143	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1144	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1145	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1146	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1147	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1148
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1149	windowSpecOfScreenSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1150	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1151
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1152	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1153	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1154
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1155	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1156	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1157	NewLauncher new openInterface:#windowSpecOfMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1158	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1159
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1160	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1161
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1162	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1163
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1164	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1165	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1166	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1167	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1168	#'layout:' #(#LayoutFrame 9 0 394 0 446 0 773 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1169	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1170	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1171	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1172	#'bounds:' #(#Rectangle 9 394 447 774)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1173	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1174	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1175	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1176	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1177	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1178	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1179	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1180	#'name:' 'checkBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1181	#'layout:' #(#LayoutFrame 5 0.0 15 0 -5 1.0 37 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1182	#'model:' #shadowsUnderPopupViews
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1183	#'label:' 'Shadows under popup views'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1184	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1185	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1186	#'name:' 'checkBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1187	#'layout:' #(#LayoutFrame 5 0.0 43 0 -5 1.0 65 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1188	#'model:' #boxesReturnsFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1189	#'label:' 'Boxes returns focus to previously active view'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1190	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1191	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1192	#'name:' 'checkBox3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1193	#'layout:' #(#LayoutFrame 5 0.0 71 0 -5 1.0 93 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1194	#'model:' #viewsCatchFocus
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1195	#'label:' 'Views catch focus when mapped'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1196	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1197	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1198	#'name:' 'checkBox4_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1199	#'layout:' #(#LayoutFrame 5 0.0 99 0 -5 1.0 121 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1200	#'model:' #hostnameInWindowLabels
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1201	#'label:' 'Hostname in window labels.'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1202	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1203	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1204	#'name:' 'checkBox5_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1205	#'layout:' #(#LayoutFrame 5 0.0 127 0 -5 1.0 149 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1206	#'model:' #showAccelerators
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1207	#'label:' 'Show accelerator keys in menus'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1208	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1209	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1210	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1211	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1212	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1213
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1214	windowSpecOfSourcesSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1215	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1216
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1217	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1218	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1219
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1220	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1221	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfSourcesSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1222	NewLauncher new openInterface:#windowSpecOfSourcesSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1223	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1224
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1225	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1226
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1227	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1228
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1229	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1230	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1231	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1232	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1233	#'layout:' #(#LayoutFrame 42 0 472 0 479 0 851 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1234	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1235	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1236	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1237	#'bounds:' #(#Rectangle 42 472 480 852)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1238	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1239	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1240	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1241	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1242	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1243	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1244	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1245	#'name:' 'framedBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1246	#'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 159 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1247	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1248	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1249	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1250	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1251	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1252	#'name:' 'checkBox1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1253	#'layout:' #(#LayoutFrame 17 0.0 21 0 7 1.0 43 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1254	#'model:' #rememberChangedMethods
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1255	#'label:' 'Remember changed methods (for previous method in browser)'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1256	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1257	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1258	#'name:' 'checkBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1259	#'layout:' #(#LayoutFrame 17 0.0 49 0 7 1.0 71 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1260	#'model:' #logCompilesInChangesFile
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1261	#'label:' 'Log compiles in changes file'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1262	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1263	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1264	#'name:' 'checkBox3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1265	#'layout:' #(#LayoutFrame 17 0.0 77 0 7 1.0 99 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1266	#'model:' #logDoItsInChangesFile
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1267	#'label:' 'Log doIts in changes file'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1268	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1269	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1270	#'name:' 'label1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1271	#'layout:' #(#AlignmentOrigin 230 0 123 0 1 0.5)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1272	#'label:' 'Name of changes file:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1273	#'adjust:' #right
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1274	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1275	#(#InputFieldSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1276	#'name:' 'inputField1_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1277	#'layout:' #(#LayoutFrame 233 0.0 109 0 13 1.0 131 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1278	#'model:' #nameOfChangesFile
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1279	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1280	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1281	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1282	#'label:' 'Changes Log'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1283	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1284	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1285	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1286	#'name:' 'framedBox2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1287	#'layout:' #(#LayoutFrame 0 0.0 159 0 0 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1288	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1289	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1290	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1291	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1292	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1293	#'name:' 'checkBox4_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1294	#'layout:' #(#LayoutFrame 17 0.0 26 0 7 1.0 48 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1295	#'enableChannel:' #hasSourceCodeManager
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1296	#'model:' #sourceCodeFromSourceCodeManagement
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1297	#'label:' 'Source code from Source Code Management'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1298	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1299	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1300	#'name:' 'label3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1301	#'layout:' #(#AlignmentOrigin 230 0 95 0 1 0.5)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1302	#'label:' 'Directory of source code cache:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1303	#'adjust:' #right
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1304	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1305	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1306	#'name:' 'label2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1307	#'layout:' #(#AlignmentOrigin 230 0 69 0 1 0.5)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1308	#'label:' 'Directory of repository:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1309	#'adjust:' #right
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1310	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1311	#(#InputFieldSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1312	#'name:' 'inputField2_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1313	#'layout:' #(#LayoutFrame 233 0 55 0 13 1.0 77 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1314	#'enableChannel:' #hasSourceCodeManager
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1315	#'model:' #directoryOfRepository
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1316	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1317	#(#InputFieldSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1318	#'name:' 'inputField3_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1319	#'layout:' #(#LayoutFrame 233 0 81 0 13 1.0 103 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1320	#'model:' #directoryOfSourceCodeCache
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1321	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1322	#(#CheckBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1323	#'name:' 'checkBox5_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1324	#'layout:' #(#LayoutFrame 17 0.0 120 0 7 1.0 142 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1325	#'enableChannel:' #hasSourceCodeManager
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1326	#'model:' #useLocalSourceCode
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1327	#'label:' 'If present, use local source code (suppress checking out)'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1328	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1329	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1330	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1331	#'label:' 'Source Code Management'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1332	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1333	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1334	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1335	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1336	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1337	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1338
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1339	windowSpecOfViewsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1340	"this window spec was automatically generated by the ST/X UIPainter"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1341
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1342	"do not manually edit this - the painter/builder may not be able to
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1343	handle the specification if its corrupted."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1344
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1345	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1346	UIPainter new openOnClass:NewLauncher andSelector:#windowSpecOfViewsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1347	NewLauncher new openInterface:#windowSpecOfViewsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1348	"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1349
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1350	<resource: #canvas>
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1351
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1352	^
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1353
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1354	#(#FullSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1355	#'window:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1356	#(#WindowSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1357	#'name:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1358	#'layout:' #(#LayoutFrame 68 0 262 0 505 0 641 0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1359	#'label:' 'Smalltalk/X'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1360	#'min:' #(#Point 420 220)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1361	#'max:' #(#Point 1152 900)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1362	#'bounds:' #(#Rectangle 68 262 506 642)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1363	#'usePreferredExtent:' false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1364	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1365	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1366	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1367	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1368	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1369	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1370	#'name:' 'styleFramedBox_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1371	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -130 1)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1372	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1373	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1374	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1375	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1376	#(#SequenceViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1377	#'name:' 'viewStylesListView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1378	#'layout:' #(#LayoutFrame 17 0.0 19 0.0 17 1.0 19 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1379	#'model:' #listOfViewStyles
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1380	#'hasHorizontalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1381	#'hasVerticalScrollBar:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1382	#'miniScrollerHorizontal:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1383	#'useIndex:' true
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1384	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1385	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1386	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1387	#'label:' 'Style:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1388	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1389	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1390	#(#FramedBoxSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1391	#'name:' 'descriptionFramedBox_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1392	#'layout:' #(#LayoutFrame 0 0.0 -130 1 -120 1.0 0 1)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1393	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1394	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1395	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1396	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1397	#(#LabelSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1398	#'name:' 'infoLabel_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1399	#'layout:' #(#LayoutFrame 16 0.0 17 0.0 16 1.0 17 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1400	#'labelChannel:' #infoLabel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1401	#'level:' -1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1402	#'adjust:' #left
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1403	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1404	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1405	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1406	#'label:' 'Description'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1407	#'labelPosition:' #topLeft
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1408	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1409	#(#ViewSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1410	#'name:' 'applyButtonView_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1411	#'layout:' #(#LayoutFrame -120 1 -130 1 0 1.0 0 1.0)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1412	#'component:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1413	#(#SpecCollection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1414	#'collection:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1415	#(
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1416	#(#ActionButtonSpec
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1417	#'name:' 'applyButton_Temporal'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1418	#'layout:' #(#LayoutFrame -113 1.0 -125 1 -6 1.0 -97 1)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1419	#'label:' 'Apply'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1420	#'model:' #'doForCurrentSettings:'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1421	#'actionValue:' 'apply'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1422	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1423	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1424	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1425	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1426	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1427	)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	1428	)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	1429	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	1430
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1431	!NewLauncher class methodsFor:'menu specs'!
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1432
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1433	menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1434	"this window spec was automatically generated by the ST/X MenuEditor"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1435
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1436	"do not manually edit this - the builder may not be able to
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1437	handle the specification if its corrupted."
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1438
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1439	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1440	MenuEditor new openOnClass:NewLauncher andSelector:#menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1441	(Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1442	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1443
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1444	<resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1445
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1446	^
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1447
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1448	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1449
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1450	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1451	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1452	#'label:' 'about'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1453	#'translateLabel:' true
1449 575d815f07db help menu item aligned to the right tz parents: 1447 diff changeset	1454	#'labelImage:' #(#ResourceRetriever nil #menuIcon)
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1455	#'submenuChannel:' #menuAbout
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1456	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1457	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1458	#'label:' 'File'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1459	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1460	#'value:' #file
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1461	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1462	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1463
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1464	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1465	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1466	#'label:' 'File Browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1467	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1468	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1469	#'argument:' 'FileBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1470	#'labelImage:' #(#ResourceRetriever nil #startFileBrowserIcon 'File Browser')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1471	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1472	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1473	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1474	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1475	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1476	#'label:' 'Modules...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1477	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1478	#'value:' #objectModuleDialog
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1479	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1480	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1481	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1482	#'label:' 'Build Library...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1483	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1484	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1485	#'enabled:' #valueOfEnablingIfAvailable
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1486	#'argument:' 'LibraryBuilder'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1487	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1488	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1489	#'label:' 'Build Application...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1490	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1491	#'value:' #openApplicationBuilder
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1492	#'enabled:' #valueOfEnablingIfAvailable
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1493	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1494	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1495	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1496	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1497	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1498	#'label:' 'Save Image'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1499	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1500	#'value:' #saveImage
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1501	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1502	#'labelImage:' #(#ResourceRetriever nil #saveIcon 'Save Image')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1503	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1504	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1505	#'label:' 'Save Image As...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1506	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1507	#'value:' #saveImageAs
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1508	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1509	#'labelImage:' #(#ResourceRetriever nil #saveIcon 'Save Image As...')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1510	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1511	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1512	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1513	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1514	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1515	#'label:' 'Exit...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1516	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1517	#'value:' #exit
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1518	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1519	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1520	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1521	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1522	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1523	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1524	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1525	#'label:' 'Classes'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1526	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1527	#'value:' #classes
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1528	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1529	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1530
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1531	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1532	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1533	#'label:' 'System Browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1534	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1535	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1536	#'argument:' 'SystemBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1537	#'labelImage:' #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1538	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1539	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1540	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1541	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1542	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1543	#'label:' 'Class Browser...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1544	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1545	#'value:' #startClassBrowser
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1546	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1547	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1548	#'label:' 'Full Class Browser...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1549	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1550	#'value:' #startFullClassBrowser
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1551	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1552	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1553	#'label:' 'Class Hierarchy Browser...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1554	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1555	#'value:' #startClassHierarchyBrowser
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1556	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1557	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1558	#'label:' 'Class Tree'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1559	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1560	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1561	#'argument:' 'ClassTreeGraphView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1562	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1563	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1564	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1565	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1566	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1567	#'label:' 'Implementors...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1568	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1569	#'value:' #browseImplementors
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1570	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1571	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1572	#'label:' 'Senders...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1573	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1574	#'value:' #browseSenders
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1575	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1576	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1577	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1578	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1579	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1580	#'label:' 'Special'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1581	#'value:' #special
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1582	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1583	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1584
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1585	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1586	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1587	#'label:' 'References To Undeclared'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1588	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1589	#'value:' #browseUndeclared
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1590	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1591	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1592	#'label:' 'Resource Methods...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1593	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1594	#'value:' #browseResources
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1595	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1596	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1597	#'label:' 'Show Break/Trace Points'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1598	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1599	#'value:' #browseAllBreakAndTracePoints
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1600	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1601	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1602	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1603	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1604	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1605	#'label:' 'Remove All Break/Trace Points'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1606	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1607	#'value:' #removeAllBreakAndTracePoints
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1608	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1609	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1610	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1611	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1612	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1613	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1614	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1615	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1616	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1617	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1618	#'label:' 'Tools'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1619	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1620	#'value:' #tools
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1621	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1622	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1623
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1624	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1625	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1626	#'label:' 'Workspace'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1627	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1628	#'argument:' 'Workspace'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1629	#'labelImage:' #(#ResourceRetriever nil #startWorkspaceIcon 'Workspace')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1630	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1631	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1632	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1633	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1634	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1635	#'label:' 'GUI Builder'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1636	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1637	#'argument:' 'UIPainter'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1638	#'labelImage:' #(#ResourceRetriever nil #startUIPainterIcon 'GUI Builder')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1639	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1640	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1641	#'label:' 'Menu Editor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1642	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1643	#'argument:' 'MenuEditor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1644	#'labelImage:' #(#ResourceRetriever nil #startMenuEditorIcon 'Menu Editor')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1645	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1646	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1647	#'label:' 'Image Editor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1648	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1649	#'argument:' 'ImageEditor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1650	#'labelImage:' #(#ResourceRetriever nil #startImageEditorIcon 'Image Editor')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1651	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1652	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1653	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1654	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1655	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1656	#'label:' 'Changes Browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1657	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1658	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1659	#'argument:' 'ChangesBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1660	#'labelImage:' #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1661	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1662	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1663	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1664	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1665	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1666	#'label:' 'Old Launcher'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1667	#'translateLabel:' true
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	1668	#'value:' #'startOldLauncher'
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1669	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1670	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1671	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1672	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1673	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1674	#'label:' 'Monitors'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1675	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1676	#'value:' #monitors
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1677	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1678	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1679
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1680	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1681	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1682	#'label:' 'Processes'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1683	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1684	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1685	#'argument:' 'ProcessMonitor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1686	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1687	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1688	#'label:' 'Semaphores'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1689	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1690	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1691	#'argument:' 'SemaphoreMonitor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1692	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1693	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1694	#'label:' 'Memory'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1695	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1696	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1697	#'argument:' 'MemoryMonitor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1698	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1699	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1700	#'label:' 'Irq Latency'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1701	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1702	#'value:' #startLatencyMonitor
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1703	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1704	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1705	#'label:' 'Event View'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1706	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1707	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1708	#'argument:' 'EventMonitor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1709	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1710	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1711	#'label:' 'Event Trace'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1712	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1713	#'value:' #startStopEventTrace
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1714	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1715	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1716	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1717	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1718	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1719	#'label:' 'Memory Usage'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1720	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1721	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1722	#'argument:' 'MemoryUsageView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1723	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1724	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1725	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1726	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1727	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1728	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1729	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1730	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1731	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1732	#'label:' 'Views'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1733	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1734	#'value:' #views
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1735	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1736	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1737
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1738	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1739	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1740	#'label:' 'Iconify All'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1741	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1742	#'value:' #iconifyAllWindows
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1743	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1744	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1745	#'label:' 'De-iconify All'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1746	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1747	#'value:' #deIconifyAllWindows
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1748	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1749	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1750	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1751	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1752	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1753	#'label:' 'Find And Raise...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1754	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1755	#'value:' #findAndRaiseWindow
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1756	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1757	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1758	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1759	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1760	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1761	#'label:' 'View Tree (all views)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1762	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1763	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1764	#'argument:' 'WindowTreeView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1765	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1766	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1767	#'label:' 'View Tree'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1768	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1769	#'value:' #startWindowTreeView
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1770	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1771	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1772	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1773	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1774	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1775	#'label:' 'Select And Inspect View'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1776	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1777	#'value:' #viewInspect
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1778	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1779	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1780	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1781	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1782	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1783	#'label:' 'Select And Destroy View'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1784	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1785	#'value:' #viewDestroy
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1786	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1787	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1788	#'label:' 'Find And Destroy...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1789	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1790	#'value:' #findAndDestroyWindow
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1791	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1792	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1793	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1794	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1795	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1796	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1797	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1798	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1799	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1800	#'label:' 'Hardcopy'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1801	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1802	#'value:' #hardcopy
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1803	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1804	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1805
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1806	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1807	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1808	#'label:' 'Screen'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1809	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1810	#'value:' #fullScreenHardcopy
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1811	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1812	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1813	#'label:' 'Area'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1814	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1815	#'value:' #screenHardcopy
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1816	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1817	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1818	#'label:' 'View'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1819	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1820	#'value:' #viewHardcopy
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1821	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1822	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1823	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1824	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1825	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1826	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1827	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1828	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1829	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1830	#'label:' 'Misc'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1831	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1832	#'value:' #misc
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1833	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1834	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1835
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1836	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1837	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1838	#'label:' 'Garbage Collect'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1839	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1840	#'value:' #garbageCollect
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1841	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1842	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1843	#'label:' 'Garbage Collect And Compress'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1844	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1845	#'value:' #compressingGarbageCollect
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1846	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1847	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1848	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1849	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1850	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1851	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1852	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1853	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1854	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1855	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1856	#'label:' 'Projects'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1857	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1858	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1859	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1860
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1861	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1862	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1863	#'label:' 'New Project'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1864	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1865	#'value:' #newProject
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1866	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1867	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1868	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1869	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1870	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1871	#'label:' 'Select Project...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1872	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1873	#'value:' #selectProject
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1874	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1875	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1876	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1877	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1878	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1879	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1880	#'label:' 'Settings'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1881	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1882	#'submenuChannel:' #menuSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1883	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1884	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1885	#'label:' 'Demos'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1886	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1887	#'value:' #demos
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1888	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1889	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1890
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1891	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1892	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1893	#'label:' 'Goodies'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1894	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1895	#'value:' #goodies
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1896	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1897	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1898
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1899	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1900	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1901	#'label:' 'Clock'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1902	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1903	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1904	#'argument:' 'Clock'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1905	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1906	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1907	#'label:' 'Digital Clock'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1908	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1909	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1910	#'argument:' 'DigitalClockView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1911	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1912	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1913	#'label:' 'Calendar'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1914	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1915	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1916	#'argument:' 'Calendar'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1917	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1918	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1919	#'label:' 'Calculator'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1920	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1921	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1922	#'argument:' 'CalculatorView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1923	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1924	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1925	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1926	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1927	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1928	#'label:' 'Mail Tool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1929	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1930	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1931	#'argument:' 'MailView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1932	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1933	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1934	#'label:' 'News Tool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1935	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1936	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1937	#'argument:' 'NewsView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1938	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1939	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1940	#'label:' 'FTP Tool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1941	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1942	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1943	#'argument:' 'FTPTool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1944	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1945	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1946	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1947	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1948	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1949	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1950	#'label:' 'Games'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1951	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1952	#'value:' #games
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1953	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1954	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1955
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1956	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1957	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1958	#'label:' 'Tetris'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1959	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1960	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1961	#'argument:' 'Games::Tetris'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1962	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1963	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1964	#'label:' 'Tic Tac Toe'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1965	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1966	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1967	#'argument:' 'TicTacToeGame'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1968	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1969	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1970	#'label:' 'Tic Tac Toe (2 players)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1971	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1972	#'value:' #startTicTacToe2
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1973	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1974	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1975	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1976	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1977	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1978	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1979	#'label:' 'Geometric Designs'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1980	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1981	#'value:' #geometricDesigns
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1982	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1983	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1984
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1985	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1986	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1987	#'label:' 'Pen Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1988	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1989	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1990	#'argument:' 'PenDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1991	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1992	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1993	#'label:' 'Commander Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1994	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1995	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1996	#'argument:' 'CommanderDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1997	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1998	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	1999	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2000	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2001	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2002	#'label:' 'Fractal Plants Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2003	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2004	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2005	#'argument:' 'FractalPlantsDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2006	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2007	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2008	#'label:' 'Fractal Patterns Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2009	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2010	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2011	#'argument:' 'FractalPatternsDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2012	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2013	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2014	#'label:' 'More Fractal Patterns Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2015	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2016	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2017	#'argument:' 'ArmchairUniverseDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2018	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2019	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2020	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2021	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2022	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2023	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2024	#'label:' 'Simple Animations'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2025	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2026	#'value:' #simpleAnimations
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2027	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2028	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2029
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2030	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2031	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2032	#'label:' 'Walking Man'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2033	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2034	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2035	#'argument:' 'Animation'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2036	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2037	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2038	#'label:' 'Globe Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2039	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2040	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2041	#'argument:' 'GlobeDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2042	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2043	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2044	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2045	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2046	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2047	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2048	#'label:' '3D Graphics'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2049	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2050	#'value:' #'3Dgraphics'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2051	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2052	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2053
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2054	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2055	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2056	#'label:' 'Plane'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2057	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2058	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2059	#'argument:' 'GLPlaneDemoView2'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2060	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2061	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2062	#'label:' 'Tetra'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2063	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2064	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2065	#'argument:' 'GLTetraDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2066	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2067	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2068	#'label:' 'Cube (wireframe)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2069	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2070	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2071	#'argument:' 'GLWireCubeDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2072	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2073	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2074	#'label:' 'Cube (solid)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2075	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2076	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2077	#'argument:' 'GLCubeDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2078	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2079	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2080	#'label:' 'Sphere (wireframe)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2081	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2082	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2083	#'argument:' 'GLWireSphereDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2084	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2085	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2086	#'label:' 'Doughnut (wireframe)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2087	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2088	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2089	#'argument:' 'GLDoughnutDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2090	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2091	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2092	#'label:' 'Planet'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2093	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2094	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2095	#'argument:' 'GLPlanetDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2096	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2097	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2098	#'label:' 'Teapot'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2099	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2100	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2101	#'argument:' 'GLTeapotDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2102	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2103	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2104	#'label:' 'Logo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2105	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2106	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2107	#'argument:' 'Logo3DView1'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2108	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2109	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2110	#'label:' 'Rubics Cube'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2111	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2112	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2113	#'argument:' 'RubicsCubeView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2114	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2115	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2116	#'label:' 'X/Y Graph'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2117	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2118	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2119	#'argument:' 'GLXYGraph'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2120	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2121	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2122	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2123	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2124	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2125	#'label:' 'Cube (light)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2126	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2127	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2128	#'argument:' 'GLCubeDemoView2'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2129	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2130	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2131	#'label:' 'Cube (light && texture)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2132	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2133	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2134	#'accessCharacterPosition:' 13
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2135	#'argument:' 'GLBrickCubeDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2136	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2137	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2138	#'label:' 'Sphere (light)'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2139	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2140	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2141	#'argument:' 'GLSphereDemoView2'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2142	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2143	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2144	#'label:' 'Colored Octahedron'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2145	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2146	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2147	#'argument:' 'GLOctaHedronDemoView'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2148	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2149	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2150	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2151	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2152	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2153	#'label:' 'VRML Browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2154	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2155	#'enabled:' #valueOfEnablingIfAvailable
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2156	#'argument:' 'VRMLTestCenter'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2157	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2158	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2159	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2160	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2161	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2162	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2163	#'label:' 'Graphic Editors'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2164	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2165	#'value:' #graphicEditors
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2166	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2167	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2168
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2169	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2170	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2171	#'label:' 'Draw Tool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2172	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2173	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2174	#'argument:' 'DrawTool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2175	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2176	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2177	#'label:' 'Logic Tool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2178	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2179	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2180	#'argument:' 'LogicTool'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2181	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2182	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2183	#'label:' 'Paint Demo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2184	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2185	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2186	#'argument:' 'ColorDrawDemo3'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2187	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2188	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2189	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2190	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2191	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2192	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2193	#'label:' 'GUI'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2194	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2195	#'value:' #graphicEditors
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2196	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2197	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2198
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2199	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2200	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2201	#'label:' 'Widget Gallery'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2202	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2203	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2204	#'argument:' 'CodingExamples_GUI::GUIDemo'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2205	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2206	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2207	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2208	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2209	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2210	#'label:' 'Calculator'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2211	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2212	#'value:' #'openDemo:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2213	#'argument:' 'CodingExamples_GUI::GUIDemoCalculator'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2214	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2215	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2216	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2217	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2218	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2219	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2220	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2221	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2222	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2223	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2224	#'label:' 'Help'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2225	#'translateLabel:' true
1447 39e6892899e6 help-menuitem on the right Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	2226	#'startGroup:' #right
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2227	#'value:' #help
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2228	#'submenu:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2229	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2230
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2231	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2232	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2233	#'label:' 'What''s New'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2234	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2235	#'value:' #startWhatsNewDocumentation
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2236	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2237	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2238	#'label:' 'Index'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2239	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2240	#'value:' #startDocumentationIndex
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2241	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2242	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2243	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2244	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2245	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2246	#'label:' 'ST/X Online Documentation'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2247	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2248	#'value:' #startDocumentationTool
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2249	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2250	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2251	#'label:' 'Class Documentation'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2252	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2253	#'value:' #startClassDocumentation
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2254	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2255	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2256	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2257	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2258	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2259	#'label:' 'Print Documentation...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2260	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2261	#'value:' #showBookPrintDocument
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2262	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2263	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2264	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2265	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2266	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2267	#'label:' 'Active Help'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2268	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2269	#'value:' #'toggleActiveHelp:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2270	#'indication:' #activeHelp
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2271	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2272	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2273	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2274	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2275	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2276	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2277	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2278	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2279
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	2280	"Modified: / 5.2.1998 / 19:33:20 / cg"
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2281	!
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2282
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2283	menuNewSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2284	"this window spec was automatically generated by the ST/X MenuEditor"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2285
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2286	"do not manually edit this - the builder may not be able to
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2287	handle the specification if its corrupted."
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2288
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2289	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2290	MenuEditor new openOnClass:NewLauncher andSelector:#menuNewSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2291	(Menu new fromLiteralArrayEncoding:(NewLauncher menuNewSettings)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2292	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2293
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2294	<resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2295
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2296	^
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2297
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2298	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2299
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2300	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2301	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2302	#'label:' 'Style...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2303	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2304	#'value:' #'openSettingsFor:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2305	#'argument:' 'StyleSettings'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2306	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2307	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2308	#'label:' 'System...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2309	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2310	#'value:' #'openSettingsFor:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2311	#'argument:' 'SystemSettings'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2312	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2313	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2314	#'label:' 'Compilation...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2315	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2316	#'value:' #'openSettingsFor:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2317	#'argument:' 'CompilationSettings'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2318	#'labelImage:' #(#ResourceRetriever nil #'```````````````')
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2319	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2320	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2321	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2322	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2323	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2324	#'label:' 'Save Settings...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2325	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2326	#'value:' #saveSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2327	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2328	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2329	#'label:' 'Restore Settings...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2330	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2331	#'value:' #restoreSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2332	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2333	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2334	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2335	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2336	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2337
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2338	"Modified: / 29.1.1998 / 23:39:06 / cg"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2339	!
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2340
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2341	menuSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2342	"this window spec was automatically generated by the ST/X MenuEditor"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2343
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2344	"do not manually edit this - the builder may not be able to
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2345	handle the specification if its corrupted."
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2346
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2347	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2348	MenuEditor new openOnClass:NewLauncher andSelector:#menuSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2349	(Menu new fromLiteralArrayEncoding:(NewLauncher menuSettings)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2350	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2351
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2352	<resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2353
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2354	^
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2355
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2356	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2357
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2358	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2359	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2360	#'label:' 'View Style...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2361	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2362	#'value:' #viewStyleSetting
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2363	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2364	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2365	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2366	#'label:' 'Fonts...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2367	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2368	#'value:' #fontSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2369	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2370	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2371	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2372	#'label:' 'Language...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2373	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2374	#'value:' #languageSetting
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2375	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2376	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2377	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2378	#'label:' 'Keyboard Mappings...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2379	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2380	#'value:' #keyboardSetting
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2381	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2382	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2383	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2384	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2385	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2386	#'label:' 'Messages...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2387	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2388	#'value:' #messageSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2389	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2390	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2391	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2392	#'label:' 'Compilation...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2393	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2394	#'value:' #compilerSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2395	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2396	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2397	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2398	#'label:' 'Object Memory...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2399	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2400	#'value:' #memorySettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2401	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2402	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2403	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2404	#'label:' 'Source And Debugger...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2405	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2406	#'value:' #sourceAndDebuggerSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2407	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2408	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2409	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2410	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2411	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2412	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2413	#'label:' 'Printer...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2414	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2415	#'value:' #printerSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2416	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2417	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2418	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2419	#'label:' 'Screen...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2420	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2421	#'value:' #displaySettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2422	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2423	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2424	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2425	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2426	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2427	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2428	#'label:' 'Misc...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2429	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2430	#'value:' #miscSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2431	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2432	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2433	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2434	#'label:' '-'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2435	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2436	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2437	#'label:' 'Save Settings...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2438	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2439	#'value:' #saveSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2440	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2441	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2442	#'label:' 'Restore Settings...'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2443	#'translateLabel:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2444	#'value:' #restoreSettings
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2445	#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2446	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2447	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2448	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2449	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2450
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2451	"Modified: / 29.1.1998 / 23:41:51 / cg"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2452	!
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2453
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2454	menuToolbar
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2455	"this window spec was automatically generated by the ST/X MenuEditor"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2456
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2457	"do not manually edit this - the builder may not be able to
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2458	handle the specification if its corrupted."
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2459
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2460	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2461	MenuEditor new openOnClass:NewLauncher andSelector:#menuToolbar
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2462	(Menu new fromLiteralArrayEncoding:(NewLauncher menuToolbar)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2463	"
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2464
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2465	<resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2466
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2467	^
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2468
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2469	#(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2470
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2471	#(
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2472	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2473	#'label:' 'open workspace'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2474	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2475	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2476	#'argument:' 'Workspace'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2477	#'labelImage:' #(#ResourceRetriever nil #startWorkspaceIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2478	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2479	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2480	#'label:' 'open file browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2481	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2482	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2483	#'argument:' 'FileBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2484	#'labelImage:' #(#ResourceRetriever nil #startFileBrowserIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2485	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2486	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2487	#'label:' 'save image'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2488	#'isButton:' true
1454 969bdd045aad saveImg now with confirmation Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	2489	#'value:' #saveImageAs
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2490	#'labelImage:' #(#ResourceRetriever nil #saveImageIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2491	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2492	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2493	#'label:' ''
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2494	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2495	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2496	#'label:' 'open system browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2497	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2498	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2499	#'activeHelpKey:' #'#startSystemBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2500	#'argument:' 'SystemBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2501	#'labelImage:' #(#ResourceRetriever nil #startSystemBrowserIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2502	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2503	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2504	#'label:' 'open changes browser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2505	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2506	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2507	#'argument:' 'ChangesBrowser'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2508	#'labelImage:' #(#ResourceRetriever nil #startChangesBrowserIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2509	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2510	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2511	#'label:' ''
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2512	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2513	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2514	#'label:' 'open GUI Builder'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2515	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2516	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2517	#'argument:' 'UIPainter'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2518	#'labelImage:' #(#ResourceRetriever nil #startUIPainterIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2519	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2520	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2521	#'label:' 'open menu editor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2522	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2523	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2524	#'argument:' 'MenuEditor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2525	#'labelImage:' #(#ResourceRetriever nil #startMenuEditorIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2526	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2527	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2528	#'label:' 'open image editor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2529	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2530	#'value:' #'openApplication:'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2531	#'argument:' 'ImageEditor'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2532	#'labelImage:' #(#ResourceRetriever nil #startImageEditorIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2533	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2534	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2535	#'label:' ''
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2536	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2537	#(#MenuItem
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2538	#'label:' 'garbage collect'
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2539	#'isButton:' true
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2540	#'value:' #compressingGarbageCollect
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2541	#'labelImage:' #(#ResourceRetriever nil #garbageCollectIcon)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2542	)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2543	) nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2544	nil
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2545	)
1454 969bdd045aad saveImg now with confirmation Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	2546
969bdd045aad saveImg now with confirmation Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	2547	"Modified: / 5.2.1998 / 09:33:15 / cg"
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2548	! !
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	2549
1424 0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2550	!NewLauncher class methodsFor:'resources'!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2551
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2552	garbageCollectIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2553	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2554	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2555	ImageEditor openOnClass:self andSelector:#garbageCollectIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2556	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2557
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2558	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2559
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2560	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2561	constantNamed:#'NewLauncher garbageCollectIcon'
1453 6abe92727df3 info bars redesigned tz parents: 1449 diff changeset	2562	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'DQD@@@.;.1D[DQDQD@@QDP@@.;.;,[,@@ADP@ADQ@@.;@@.;.1@@@A@@DQD@B;@@@[.;DCH@D@@QDP@K,@@K.;,Q@2@P@ADQ@K.;@@DQDQDPL @@DQDKB;B0@QDQ@@@C@@@QD[B0B0,ADP@"H"@@@ADQ@@@@@@DQ@P@@@0@@DQ@@@@C 8@@ADQL3@@@Q@@@@;.;.@@DCL0H@@@@@@@@NC @@@PLC@ @@@@@@C.;.8@@A@0LB@@@@@@@@8N@@@@DC@0H@@@@@B (@@AD@@PLC@ @@@@**@LG@@A@0LB@@@@@JB CL3L0@DC@0H@@@B*(@0L@Q@SLCL @@@@(J@L3L3AD@L"H @@@@@QDQC@0QDQD@@@DP@@@ADQD@@@@QD@@@@@@@@ @B@ @B@@HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@H@@@H@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:49.9962); add:(Color grey:66.9978); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G1@@@C>0@@A1=0@@XO^@@FG30@C0@^@AZ@? @)P?8@@@O>@@B#? @C<?8@@TO>@@_#? @B ?8@E@O>@G9S? @)>?8@?JO>@EO3? @APO @@@@@@]7]7\DUUUDAEUUQ@U7]5\EUUUTAUUUU@]U]W\@@a'); yourself); yourself]!
1424 0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2563
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2564	saveImageIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2565	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2566	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2567	ImageEditor openOnClass:self andSelector:#saveImageIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2568	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2569
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2570	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2571
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2572	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2573	constantNamed:#'NewLauncher saveImageIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2574	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UPSL3L0A@ET7L3L0?PAUML3L3OT@US\3L3C5@ET43L3L?PAUM3L3LO4@USSL3L3=@ET7L3L0?PAUML3L3O4@US\3L3C=@ET43L3L?PAUM@@@@O4@US?????=@ET?UUUU?PAUO7??6?4@US=T?=+=@ET?ZO?Z?PAUO4C?6/4@U]U*)WU@ET@@@@@@@AUUUUUUUUU%Y%UUUTE%%UUUUTU)UEUUUUEUUUUUUVYUUTEUTUUUUDUAUUUUUUQUPUUVUUUUUTU%P@a'); colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C??>@@@@@@@@@@@@;9R<H(W)BJE:@S.9R,B)HT)@*REJP:$9R<@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2575
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2576	startChangesBrowserIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2577	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2578	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2579	ImageEditor openOnClass:self andSelector:#startChangesBrowserIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2580	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2581
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2582	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2583
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2584	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2585	constantNamed:#'NewLauncher startChangesBrowserIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2586	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@B**@@@@@@@@@ @@@B*H@@@@@@@@"@@@C????H @@@@@@@2H@@C????L"@@@@@@@3H@@AUUUUL2@@@@@@@SL@@AUUUUD3@@@_=UUQL@@@EUUUTS@@@A]7UUD@@@@U7]5Q@@@@E7]5T@@@@AUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH@@@@@@@@LB@L@@@@@@@@@@@@@@@@J@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@a'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@??8@@O?>@@O?? @C??8@C??>@@??? @???8@O??>@O??? C??? C???8@???8@O??>@C??>@@??? @O?? @C??8@@??8@@O?>@@@@@@@@@@@@@Z.$7LH+-YDBJ+TQ@#.=WHH+UABJ5PPZ$7X@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2587
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2588	startFileBrowserIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2589	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2590	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2591	ImageEditor openOnClass:self andSelector:#startFileBrowserIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2592	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2593
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2594	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2595
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2596	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2597	constantNamed:#'NewLauncher startFileBrowserIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2598	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@CLA&Y&Y&Y&X@@@@@@@@L0F@@@@@@A @@@@@@@@3@XN;.;.8F@@@@@@@@CLA ;.@@@@@@@@@@@@@L0FC.8O[6=/[0@@@@@@3@X@; [6=/[6@@@@@@CLA DNC6<@@F<@@@@@@L0F@A@F= [0= @@@@@@3@X@@P=/[6=/@@@@@@CLA @@A/[6=/X@@@@@@L0FC0@O[6=/[0@@@@@@3@XF<@@@@@@@@@@@@@CLA = @@@@@@@@@@@@@L0FA/[6=/A @@@@@@@@3@XO[6=/XF@@@@@@@@CLA @@@@@@X@@@@@@@@L0FY&Y&Y&Y @@@@@@@@C@Y&Y&Y&Y&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??<@@_??@@G??0@A??<@@_??8@G??>@A??? @_??8@G??>@A??? @_??8@G??>@A??? @_??@@G??0@A??<@@_??@@G??0@@??<@@G??@@@@@@@G.P=0AADHP@PQBD@GDP8 AADHD@PQBA@DN^=0@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2599
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2600	startImageEditorIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2601	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2602	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2603	ImageEditor openOnClass:self andSelector:#startImageEditorIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2604	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2605
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2606	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2607
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2608	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2609	constantNamed:#'NewLauncher startImageEditorIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2610	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@M7]7]7]7]7]7]@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"HDQEUVY @@@@@BH"H3L QDUUY&@@@@@@HA@#L2ADQUU&X@@@@@@"H"H"HH"I&W]0@@@@@BL3L3L "H&Y]7@@@@@@H"H"H"BH"Y%7\@@@@@@#L3L3HDQEUVY @@@@@BH"H"H QDUUY&@@@@@@H3L3L2ADQUU&X@@@@@@"H"H"HH"I&W]0@@@@@BL#L3L "H&Y]7@@@@@@H2L3L2BH"Y%7\@@@@@@"H"H"HBH"H"H @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@0@0@0L@L@@@@@@@@@@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''0???90O??>TC??? ???8HO??>AC??? P???8@O??>@C??? @???8@@@@@@@@@@@@;[7/@D>%J@AJ)P @RK5.@D"%J@AH)R @:JW/@@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2611
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2612	startMenuEditorIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2613	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2614	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2615	ImageEditor openOnClass:self andSelector:#startMenuEditorIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2616	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2617
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2618	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2619
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2620	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2621	constantNamed:#'NewLauncher startMenuEditorIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2622	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@DQDQDQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@QH"H DQHQD"H @@@@@ATBH"@RHBH H"@@@@@@H@H"HAT%UUUUT@@@@@@%H"H D%IRT%IP@@@@@BUQIU@UIRT%IR@@@@@@IRHBHAIRT%IRT@@@@@@%H"H ERT%IRT @@@@@BUQIU@RT%IRT%@@@@@@IRHBHAT%IRT%H@@@@@@%H"H D%IRT%IP@@@@@BUQIU@UIRT%IR@@@@@@H"HBHAIRT%IRT@@@@@@"H"H IRT%IRT @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@APT@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@T@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''0???90O??>TC??? ???8HO??>AC??? P???8@O??>@C??? @???8@@@@@@@@@@@@6=D$@O(YI@B*GRP@"9T$@H(WI@BJD2P@"=D<@@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2623
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2624	startSystemBrowserIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2625	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2626	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2627	ImageEditor openOnClass:self andSelector:#startSystemBrowserIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2628	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2629
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2630	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2631
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2632	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2633	constantNamed:#'NewLauncher startSystemBrowserIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2634	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@ADQDQDQG0@@@@@@@@@@D"H"H"H.@@@@@@@@@@@RH"H"H"8@@@@@@@@@@O;.;.;.; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQDQDQG0@@@@@P;.;.@SL3L3L>@@@@@@@@@@@O;.;.;.8@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQDQDQG0@@@@@P;.;.@VY&Y&Y.@@@@@@@@@@@O;.;.;.8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@N@NC @@8@@@C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@8@C @@@@8b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??0@@O?<@@C??@@@??0@@O?<@@C??@@@@ @@@@H@@@@B@?? A0O?8@_??>@G@?? @ O?8@H@@@@B@?? A0O?8@_??>@G@?? @@O?8@@@@@@@@@@@9O\7\IRTQDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2635
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2636	startUIPainterIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2637	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2638	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2639	ImageEditor openOnClass:self andSelector:#startUIPainterIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2640	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2641
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2642	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2643
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2644	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2645	constantNamed:#'NewLauncher startUIPainterIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2646	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@DQDQDQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@3H"H DQHQD"H @@@@@CLBH"@RHBH H"@@@@@@H@H"HAT%UUUUT@@@@@@%H"H D%IRT%IP@@@@@BUSMU@UIRT%IR@@@@@@IRLBHAIRT%IRT@@@@@@%H"H ERT%IRT @@@@@BUSMU@RT%IRT%@@@@@@IRLBHAT%IRT%H@@@@@@%H"H D%IRT%IP@@@@@BUSMU@UIRT%IR@@@@@@H"LBHAIRT%IRT@@@@@@"H"H IRT%IRT @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@AP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@AP@E@@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''8???90O??>TC??? ???8HO??>A#??? X???8@O??>@C??? @???8@@@@@@@@@@@@>QN@@H$Q@@BADP@@.QD@@H$Q@@BIDP@@>_N@@@@a'); yourself); yourself]!
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2647
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2648	startWorkspaceIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2649	"Generated by the Image Editor"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2650	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2651	ImageEditor openOnClass:self andSelector:#startWorkspaceIcon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2652	"
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2653
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2654	<resource: #image>
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2655
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2656	^Icon
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2657	constantNamed:#'NewLauncher startWorkspaceIcon'
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2658	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@M7]7]7]7]7]7]7]@@@@@@@@@@@@@@@@@@@@@@@QDQDQDQDQDQDQ@0@@@AUPUUUUAUAQDQDB@@@@EUAUUUTE@@DQDPH@@@@P@E@@UPUPTQDQ@ @@@AAPTEAUAUAQDQDB@@@@D@AP@ETET@DQDPH@@@@QDQDQDQDQEADQ@ @@@ADQDQDQDQDTPQDB@@@@DQDQDQDQDQQDDPH@@@@QDQDQDQDQEDDQ@ @@@ADQDQDQDQDQEADB@@@@DQDQDQDQDQDTDPH@@@@QDQDQDQDQDQDQ@0@@@@@@@@@@@@@@@@@@@@@@L"H"H"H"H"H"H0L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@L@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@L@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@@@@@@@@@@@@ //R@HJJT BB"%P@$(/X@IJJU@BR"%H@[O)R@@@a'); yourself); yourself]! !
0312a2765a42 new icon method format applied tz parents: 1423 diff changeset	2659
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	2660	!NewLauncher methodsFor:'action - application building'!
60e6a7d07c93 initial checkin tz parents: diff changeset	2661
60e6a7d07c93 initial checkin tz parents: diff changeset	2662	buildApplication
60e6a7d07c93 initial checkin tz parents: diff changeset	2663
60e6a7d07c93 initial checkin tz parents: diff changeset	2664	\|dir compilerPath compilerFlags\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2665
60e6a7d07c93 initial checkin tz parents: diff changeset	2666	Transcript showCR: (Text string: 'Starting building of application...' color: Color blue); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2667
60e6a7d07c93 initial checkin tz parents: diff changeset	2668	(dir := self getApplicationDirectory) isNil ifTrue: [^self warn: 'Could not create application directory!!'].
60e6a7d07c93 initial checkin tz parents: diff changeset	2669	(compilerPath := ByteCodeCompiler ccPath, ' ') isNil ifTrue: [^self warn:'Define first a system compiler!!'].
60e6a7d07c93 initial checkin tz parents: diff changeset	2670	compilerFlags := self getCompilerFlags.
60e6a7d07c93 initial checkin tz parents: diff changeset	2671
60e6a7d07c93 initial checkin tz parents: diff changeset	2672	(self generateHFileWithSymbolsIn: dir) isNil ifTrue: [^self warn:'Could not generate h-file with symbols!!'].
60e6a7d07c93 initial checkin tz parents: diff changeset	2673	(self generateCFileWithModulesIn: dir) isNil ifTrue: [^self warn:'Select first some libraries!!'].
60e6a7d07c93 initial checkin tz parents: diff changeset	2674
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	2675	(self compileModulListFileWith: compilerPath, compilerFlags inDirectory: dir)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	2676	"isNil ifTrue: [^self warn:'Could not compile modules file!!']".
da20bf21fb13 first offical release tz parents: 1406 diff changeset	2677	(self compileStartupFileWith: compilerPath, compilerFlags inDirectory: dir)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	2678	"isNil ifTrue: [^self warn:'Could not compile startup file!!']".
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	2679
60e6a7d07c93 initial checkin tz parents: diff changeset	2680	self defineSymbolicLinksToTheLibrariesIn: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2681	self linkLibrariesToTheApplicationIn: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2682
60e6a7d07c93 initial checkin tz parents: diff changeset	2683	Transcript showCR: (Text string: 'Application build.' color: Color blue); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2684	Display beep.
60e6a7d07c93 initial checkin tz parents: diff changeset	2685
60e6a7d07c93 initial checkin tz parents: diff changeset	2686
60e6a7d07c93 initial checkin tz parents: diff changeset	2687	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2688
60e6a7d07c93 initial checkin tz parents: diff changeset	2689	compileModulListFileWith: ccPathAndFlags inDirectory: dir
60e6a7d07c93 initial checkin tz parents: diff changeset	2690
60e6a7d07c93 initial checkin tz parents: diff changeset	2691	\|command\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2692	command := ccPathAndFlags , ' -c -fPIC -O6 -fomit-frame-pointer -m486 -DDEBUG -Di386 ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2693	'modulList.c'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2694
60e6a7d07c93 initial checkin tz parents: diff changeset	2695	Transcript cr; showCR: (Text string: 'Starting compilation of modules init file...' color: Color yellow).
60e6a7d07c93 initial checkin tz parents: diff changeset	2696	self executeCommand: command inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2697	Transcript showCR: (Text string: 'Modules init file compiled.' color: Color yellow); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2698
60e6a7d07c93 initial checkin tz parents: diff changeset	2699
60e6a7d07c93 initial checkin tz parents: diff changeset	2700
60e6a7d07c93 initial checkin tz parents: diff changeset	2701
60e6a7d07c93 initial checkin tz parents: diff changeset	2702	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2703
60e6a7d07c93 initial checkin tz parents: diff changeset	2704	compileStartupFileWith: ccPathAndFlags inDirectory: appDir
60e6a7d07c93 initial checkin tz parents: diff changeset	2705
60e6a7d07c93 initial checkin tz parents: diff changeset	2706	\|startupFile command\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2707
60e6a7d07c93 initial checkin tz parents: diff changeset	2708	(startupFile := self valueOfTopDirectory value asFilename construct: self valueOfStartupModule value) exists ifFalse: [^nil].
60e6a7d07c93 initial checkin tz parents: diff changeset	2709	startupFile copyTo: (startupFile := appDir asFilename construct: self valueOfStartupModule value asFilename baseName).
60e6a7d07c93 initial checkin tz parents: diff changeset	2710	command := ccPathAndFlags , ' -o main.o -c -O -O6 -fomit-frame-pointer -m486 -DDEBUG -Di386 ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2711	'-DSTARTUP_CLASS="\"', self valueOfStartupClass value, '\"" ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2712	'-DSTARTUP_SELECTOR="\"', self valueOfStartupSelector value, '\"" ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2713	'-DCONFIGURATION_STRING="\"', self valueOfConfiguration value, '\"" ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2714	'-DBUILD_DATE="\"', self valueOfBuildDate value, '\"" ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2715	startupFile name.
60e6a7d07c93 initial checkin tz parents: diff changeset	2716
60e6a7d07c93 initial checkin tz parents: diff changeset	2717	Transcript cr; showCR: (Text string: 'Starting compilation of startup file...' color: Color yellow).
60e6a7d07c93 initial checkin tz parents: diff changeset	2718	self executeCommand: command inDirectory: appDir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2719	Transcript showCR: (Text string: 'Startup file compiled.' color: Color yellow); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2720
60e6a7d07c93 initial checkin tz parents: diff changeset	2721
60e6a7d07c93 initial checkin tz parents: diff changeset	2722
60e6a7d07c93 initial checkin tz parents: diff changeset	2723
60e6a7d07c93 initial checkin tz parents: diff changeset	2724
60e6a7d07c93 initial checkin tz parents: diff changeset	2725	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2726
60e6a7d07c93 initial checkin tz parents: diff changeset	2727	defineSymbolicLinksToTheLibrariesIn: dir
60e6a7d07c93 initial checkin tz parents: diff changeset	2728
60e6a7d07c93 initial checkin tz parents: diff changeset	2729	Transcript cr; showCR: (Text string: 'Starting defining of symbolic links to the libraries...' color: Color green).
60e6a7d07c93 initial checkin tz parents: diff changeset	2730	self selectionOfLibraries value , (Array with: 'librun')do:
60e6a7d07c93 initial checkin tz parents: diff changeset	2731	[:lib\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2732	self executeCommand: 'ln -s ', ((self valueOfTopDirectory value asFilename construct: 'lib') construct: (lib, '.so ')) name , (lib, '.so') inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2733	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2734	Transcript showCR: (Text string: 'Symbolic links to the libraries defined.' color: Color green); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2735
60e6a7d07c93 initial checkin tz parents: diff changeset	2736
60e6a7d07c93 initial checkin tz parents: diff changeset	2737	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2738
60e6a7d07c93 initial checkin tz parents: diff changeset	2739	executeCommand: aCommand inDirectory: dir
60e6a7d07c93 initial checkin tz parents: diff changeset	2740
60e6a7d07c93 initial checkin tz parents: diff changeset	2741	\|outStream\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2742	Transcript showCR:
60e6a7d07c93 initial checkin tz parents: diff changeset	2743	(Text string: 'Execute: "' color: Color yellow),
60e6a7d07c93 initial checkin tz parents: diff changeset	2744	(Text string: aCommand color: Color white),
60e6a7d07c93 initial checkin tz parents: diff changeset	2745	(Text string: '" in directory: "' color: Color yellow),
60e6a7d07c93 initial checkin tz parents: diff changeset	2746	(Text string: dir color: Color white),
60e6a7d07c93 initial checkin tz parents: diff changeset	2747	(Text string: '"' color: Color yellow).
60e6a7d07c93 initial checkin tz parents: diff changeset	2748
60e6a7d07c93 initial checkin tz parents: diff changeset	2749	outStream:= PipeStream readingFrom: aCommand errorDisposition:#inline inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2750	[
60e6a7d07c93 initial checkin tz parents: diff changeset	2751	outStream canReadWithoutBlocking
60e6a7d07c93 initial checkin tz parents: diff changeset	2752	ifTrue:
60e6a7d07c93 initial checkin tz parents: diff changeset	2753	[
60e6a7d07c93 initial checkin tz parents: diff changeset	2754	outStream readWait.
60e6a7d07c93 initial checkin tz parents: diff changeset	2755	Transcript showCR: (Text string: (outStream upTo: Character cr) color: Color red).
60e6a7d07c93 initial checkin tz parents: diff changeset	2756	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2757	] doWhile:[outStream atEnd not].
60e6a7d07c93 initial checkin tz parents: diff changeset	2758	outStream close
60e6a7d07c93 initial checkin tz parents: diff changeset	2759
60e6a7d07c93 initial checkin tz parents: diff changeset	2760
60e6a7d07c93 initial checkin tz parents: diff changeset	2761
60e6a7d07c93 initial checkin tz parents: diff changeset	2762
60e6a7d07c93 initial checkin tz parents: diff changeset	2763
60e6a7d07c93 initial checkin tz parents: diff changeset	2764	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2765
60e6a7d07c93 initial checkin tz parents: diff changeset	2766	generateCFileWithModulesIn: dir
60e6a7d07c93 initial checkin tz parents: diff changeset	2767
60e6a7d07c93 initial checkin tz parents: diff changeset	2768	\|selectionOfLibraries\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2769	selectionOfLibraries := self selectionOfLibraries remove: #librun; yourself.
60e6a7d07c93 initial checkin tz parents: diff changeset	2770	Transcript cr; showCR: (Text string: 'Starting generation of c-file with modules...' color: Color green).
60e6a7d07c93 initial checkin tz parents: diff changeset	2771	self executeCommand: 'echo "#include <stcIntern.h>" > modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2772	self executeCommand: 'echo "typedef void (*vf)();" >> modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2773	selectionOfLibraries do:
60e6a7d07c93 initial checkin tz parents: diff changeset	2774	[:lib\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2775	self executeCommand: 'echo "extern void _', lib, '_Init();" >> modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2776	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2777	self executeCommand: 'echo "static vf modules[] = {" >> modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2778	selectionOfLibraries do:
60e6a7d07c93 initial checkin tz parents: diff changeset	2779	[:lib\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2780	self executeCommand: 'echo "_', lib, '_Init," >> modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2781	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2782	self executeCommand: 'echo "(vf)0};" >> modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2783	self executeCommand: 'echo "vf *__modules__ = modules;" >> modulList.c' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2784	Transcript showCR: (Text string: 'C-file of modules generated.' color: Color green); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2785
60e6a7d07c93 initial checkin tz parents: diff changeset	2786
60e6a7d07c93 initial checkin tz parents: diff changeset	2787	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2788
60e6a7d07c93 initial checkin tz parents: diff changeset	2789	generateHFileWithSymbolsIn: dir
60e6a7d07c93 initial checkin tz parents: diff changeset	2790
60e6a7d07c93 initial checkin tz parents: diff changeset	2791	\|symbolsFile realInc\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2792	ByteCodeCompiler stcCompilationIncludes asArrayOfSubstrings do:
60e6a7d07c93 initial checkin tz parents: diff changeset	2793	[:inc\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2794	realInc := inc readStream.
60e6a7d07c93 initial checkin tz parents: diff changeset	2795	realInc upTo: $/.
60e6a7d07c93 initial checkin tz parents: diff changeset	2796	realInc := '/', realInc upToEnd.
60e6a7d07c93 initial checkin tz parents: diff changeset	2797	(symbolsFile := realInc asFilename construct: 'symbols.stc') exists
60e6a7d07c93 initial checkin tz parents: diff changeset	2798	ifTrue:
60e6a7d07c93 initial checkin tz parents: diff changeset	2799	[
60e6a7d07c93 initial checkin tz parents: diff changeset	2800	"A guck o mol, i honds gfunda"
60e6a7d07c93 initial checkin tz parents: diff changeset	2801	Transcript cr; showCR: (Text string: 'Starting generation of h-file with symbols...' color: Color green).
60e6a7d07c93 initial checkin tz parents: diff changeset	2802	self executeCommand: 'echo "char *__symbols[] = {" > symbols.h' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2803	self executeCommand: 'sed ''s/^/"/'' < ', symbolsFile name,' \| sed ''s/$/",/'' \| sed ''s/\\/\\\\/g'' >> symbols.h' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2804	self executeCommand: 'echo "0 };" >> symbols.h' inDirectory: dir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2805	Transcript showCR: (Text string: 'H-file of symbols generated.' color: Color green); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2806	^self
60e6a7d07c93 initial checkin tz parents: diff changeset	2807	]
60e6a7d07c93 initial checkin tz parents: diff changeset	2808	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2809	^nil
60e6a7d07c93 initial checkin tz parents: diff changeset	2810
60e6a7d07c93 initial checkin tz parents: diff changeset	2811	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2812
60e6a7d07c93 initial checkin tz parents: diff changeset	2813	getApplicationDirectory
60e6a7d07c93 initial checkin tz parents: diff changeset	2814
60e6a7d07c93 initial checkin tz parents: diff changeset	2815	\|appDir\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2816	(appDir := self valueOfTargetDirectory value asFilename) exists ifFalse:[appDir makeDirectory].
60e6a7d07c93 initial checkin tz parents: diff changeset	2817	(appDir isReadable and:[appDir isWritable])
60e6a7d07c93 initial checkin tz parents: diff changeset	2818	ifFalse:
60e6a7d07c93 initial checkin tz parents: diff changeset	2819	[
60e6a7d07c93 initial checkin tz parents: diff changeset	2820	^nil
60e6a7d07c93 initial checkin tz parents: diff changeset	2821	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2822	^appDir name
60e6a7d07c93 initial checkin tz parents: diff changeset	2823	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2824
60e6a7d07c93 initial checkin tz parents: diff changeset	2825	getCompilerFlags
60e6a7d07c93 initial checkin tz parents: diff changeset	2826
60e6a7d07c93 initial checkin tz parents: diff changeset	2827	\|compilerFlags\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2828	compilerFlags := OperatingSystem getOSDefine ? ''.
60e6a7d07c93 initial checkin tz parents: diff changeset	2829	ByteCodeCompiler stcCompilationDefines notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2830	compilerFlags := compilerFlags , ' ' , ByteCodeCompiler stcCompilationDefines
60e6a7d07c93 initial checkin tz parents: diff changeset	2831	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2832	ByteCodeCompiler stcCompilationIncludes notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2833	compilerFlags := compilerFlags , ' ' , ByteCodeCompiler stcCompilationIncludes.
60e6a7d07c93 initial checkin tz parents: diff changeset	2834	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2835	ByteCodeCompiler ccCompilationOptions notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2836	compilerFlags := compilerFlags , ' ' , ByteCodeCompiler ccCompilationOptions
60e6a7d07c93 initial checkin tz parents: diff changeset	2837	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2838	^compilerFlags
60e6a7d07c93 initial checkin tz parents: diff changeset	2839	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2840
60e6a7d07c93 initial checkin tz parents: diff changeset	2841	linkLibrariesToTheApplicationIn: appDir
60e6a7d07c93 initial checkin tz parents: diff changeset	2842
60e6a7d07c93 initial checkin tz parents: diff changeset	2843	\|mainFile command libs\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2844
60e6a7d07c93 initial checkin tz parents: diff changeset	2845	libs := self selectionOfLibraries value collect: [:lib\| lib, '.so '].
60e6a7d07c93 initial checkin tz parents: diff changeset	2846	libs add: 'librun.so'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2847
60e6a7d07c93 initial checkin tz parents: diff changeset	2848	command := ByteCodeCompiler ccPath,
60e6a7d07c93 initial checkin tz parents: diff changeset	2849	' -L/usr/X11/lib -Llib -Lbinary -L. -L/usr/local/lib -L/usr/lib -L/lib ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2850	'-lm -ldl -lXext -lX11 ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2851	' -o ' , self valueOfApplicationName value,
60e6a7d07c93 initial checkin tz parents: diff changeset	2852	' modulList.o main.o ',
60e6a7d07c93 initial checkin tz parents: diff changeset	2853	((libs, self valueOfSystemLibraries value asArrayOfSubstrings) asStringCollection asStringWith: $ ).
60e6a7d07c93 initial checkin tz parents: diff changeset	2854
60e6a7d07c93 initial checkin tz parents: diff changeset	2855	Transcript cr; showCR: (Text string: 'Starting linking of libraries to the application...' color: Color yellow).
60e6a7d07c93 initial checkin tz parents: diff changeset	2856	self executeCommand: command inDirectory: appDir.
60e6a7d07c93 initial checkin tz parents: diff changeset	2857	Transcript showCR: (Text string: 'Libraries to the application linked.' color: Color yellow); cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	2858
60e6a7d07c93 initial checkin tz parents: diff changeset	2859
60e6a7d07c93 initial checkin tz parents: diff changeset	2860
60e6a7d07c93 initial checkin tz parents: diff changeset	2861
60e6a7d07c93 initial checkin tz parents: diff changeset	2862
60e6a7d07c93 initial checkin tz parents: diff changeset	2863	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2864
60e6a7d07c93 initial checkin tz parents: diff changeset	2865	selectionOfLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	2866
60e6a7d07c93 initial checkin tz parents: diff changeset	2867	\|selectionOfLibraries\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2868
60e6a7d07c93 initial checkin tz parents: diff changeset	2869	selectionOfLibraries := OrderedCollection new.
60e6a7d07c93 initial checkin tz parents: diff changeset	2870
60e6a7d07c93 initial checkin tz parents: diff changeset	2871	selectionOfLibraries addAll: #(librun libbasic libbasic2 libbasic3 libview libview2 ObjectFileLoader XWorkstation GLXWorkstation).
60e6a7d07c93 initial checkin tz parents: diff changeset	2872
60e6a7d07c93 initial checkin tz parents: diff changeset	2873	self valueOfLibwidg value ifTrue: [selectionOfLibraries add: #libwidg].
60e6a7d07c93 initial checkin tz parents: diff changeset	2874	self valueOfLibwidg2 value ifTrue: [selectionOfLibraries add: #libwidg2].
60e6a7d07c93 initial checkin tz parents: diff changeset	2875	self valueOfLibui value ifTrue: [selectionOfLibraries add: #libui].
60e6a7d07c93 initial checkin tz parents: diff changeset	2876
60e6a7d07c93 initial checkin tz parents: diff changeset	2877	self valueOfLibtool value ifTrue: [selectionOfLibraries add: #libtool].
60e6a7d07c93 initial checkin tz parents: diff changeset	2878	self valueOfLibtool2 value ifTrue: [selectionOfLibraries add: #libtool2].
60e6a7d07c93 initial checkin tz parents: diff changeset	2879	self valueOfLibcomp value ifTrue: [selectionOfLibraries add: #libcomp].
60e6a7d07c93 initial checkin tz parents: diff changeset	2880	self valueOfLibhtml value ifTrue: [selectionOfLibraries add: #libhtml].
60e6a7d07c93 initial checkin tz parents: diff changeset	2881
60e6a7d07c93 initial checkin tz parents: diff changeset	2882	selectionOfLibraries addAll: self valueOfUserLibraries value asArrayOfSubstrings.
60e6a7d07c93 initial checkin tz parents: diff changeset	2883
60e6a7d07c93 initial checkin tz parents: diff changeset	2884	^selectionOfLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	2885	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	2886
60e6a7d07c93 initial checkin tz parents: diff changeset	2887	!NewLauncher methodsFor:'action - classes'!
60e6a7d07c93 initial checkin tz parents: diff changeset	2888
60e6a7d07c93 initial checkin tz parents: diff changeset	2889	browseAllBreakAndTracePoints
60e6a7d07c93 initial checkin tz parents: diff changeset	2890	"open a browser showing all breakPointed/traced methods
60e6a7d07c93 initial checkin tz parents: diff changeset	2891	(but, to get rid of them, there is also a menu itme to remove them all)"
60e6a7d07c93 initial checkin tz parents: diff changeset	2892
60e6a7d07c93 initial checkin tz parents: diff changeset	2893	SystemBrowser browseMethods: WrappedMethod allInstances title:'all breakPointed/traced methods'
60e6a7d07c93 initial checkin tz parents: diff changeset	2894
60e6a7d07c93 initial checkin tz parents: diff changeset	2895	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2896
60e6a7d07c93 initial checkin tz parents: diff changeset	2897	browseImplementors
60e6a7d07c93 initial checkin tz parents: diff changeset	2898	"open an implementors- browser after asking for a selector"
60e6a7d07c93 initial checkin tz parents: diff changeset	2899
60e6a7d07c93 initial checkin tz parents: diff changeset	2900	\|enterBox selector\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2901
60e6a7d07c93 initial checkin tz parents: diff changeset	2902	enterBox := EnterBox
60e6a7d07c93 initial checkin tz parents: diff changeset	2903	title:(resources at:'Browse implementors of:') withCRs
60e6a7d07c93 initial checkin tz parents: diff changeset	2904	okText:(resources at:'browse')
60e6a7d07c93 initial checkin tz parents: diff changeset	2905	action:[:acceptedString \| selector := acceptedString].
60e6a7d07c93 initial checkin tz parents: diff changeset	2906	enterBox showAtPointer.
60e6a7d07c93 initial checkin tz parents: diff changeset	2907
60e6a7d07c93 initial checkin tz parents: diff changeset	2908	selector notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2909	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2910	SystemBrowser browseImplementorsOf:selector
60e6a7d07c93 initial checkin tz parents: diff changeset	2911	]
60e6a7d07c93 initial checkin tz parents: diff changeset	2912	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2913
60e6a7d07c93 initial checkin tz parents: diff changeset	2914	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2915
60e6a7d07c93 initial checkin tz parents: diff changeset	2916	browseResources
60e6a7d07c93 initial checkin tz parents: diff changeset	2917	"open a resource- browser after asking for a resource string"
60e6a7d07c93 initial checkin tz parents: diff changeset	2918
60e6a7d07c93 initial checkin tz parents: diff changeset	2919	\|box resourceHolder valueHolder component rsrc value t anyString\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2920
60e6a7d07c93 initial checkin tz parents: diff changeset	2921	anyString := resources string:'* any *'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2922
60e6a7d07c93 initial checkin tz parents: diff changeset	2923	resourceHolder := ValueHolder newString.
60e6a7d07c93 initial checkin tz parents: diff changeset	2924	valueHolder := '*' asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	2925
60e6a7d07c93 initial checkin tz parents: diff changeset	2926	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	2927	box label:(resources at:'Resource search:').
60e6a7d07c93 initial checkin tz parents: diff changeset	2928	component := box addTextLabel:(resources at:'Search for methods which contain a\particular resource specification') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	2929	component adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	2930	box addVerticalSpace:10.
60e6a7d07c93 initial checkin tz parents: diff changeset	2931
60e6a7d07c93 initial checkin tz parents: diff changeset	2932	component := box addTextLabel:(resources at:'Resource symbol (empty for any; no matchPattern allowed):') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	2933	component adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	2934	component := box addComboBoxOn:resourceHolder tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	2935	component list:((Array with:anyString) , #('canvas' 'menu' 'keyboard' 'style' 'image' 'programMenu' nil 'needsFix')).
60e6a7d07c93 initial checkin tz parents: diff changeset	2936
60e6a7d07c93 initial checkin tz parents: diff changeset	2937	component := box addTextLabel:(resources at:'Resource value (* for any; matchPattern is allowed):') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	2938	component adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	2939	box addInputFieldOn:valueHolder tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	2940
60e6a7d07c93 initial checkin tz parents: diff changeset	2941	box addVerticalSpace:10.
60e6a7d07c93 initial checkin tz parents: diff changeset	2942	box addHelpButtonFor:'programming/language.html#RESOURCEDEFS'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2943	box addAbortButton; addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	2944
60e6a7d07c93 initial checkin tz parents: diff changeset	2945	box showAtPointer.
60e6a7d07c93 initial checkin tz parents: diff changeset	2946	box destroy.
60e6a7d07c93 initial checkin tz parents: diff changeset	2947
60e6a7d07c93 initial checkin tz parents: diff changeset	2948	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2949	rsrc := resourceHolder value.
60e6a7d07c93 initial checkin tz parents: diff changeset	2950	value := valueHolder value.
60e6a7d07c93 initial checkin tz parents: diff changeset	2951
60e6a7d07c93 initial checkin tz parents: diff changeset	2952	(rsrc isNil or:[rsrc isEmpty or:[rsrc = '*' or:[rsrc = anyString]]]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2953	t := 'methods with any resource'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2954	rsrc := nil
60e6a7d07c93 initial checkin tz parents: diff changeset	2955	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2956	t := 'methods with #' , rsrc , '-resource'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2957	rsrc := rsrc withoutSeparators asSymbol
60e6a7d07c93 initial checkin tz parents: diff changeset	2958	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2959	(value isNil or:[value isEmpty or:[value = '*']]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2960	t := t , ' and any value'.
60e6a7d07c93 initial checkin tz parents: diff changeset	2961	value := nil
60e6a7d07c93 initial checkin tz parents: diff changeset	2962	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2963	t := t , ' and value ' , value.
60e6a7d07c93 initial checkin tz parents: diff changeset	2964	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2965	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2966	SystemBrowser browseForResource:rsrc
60e6a7d07c93 initial checkin tz parents: diff changeset	2967	containing:value
60e6a7d07c93 initial checkin tz parents: diff changeset	2968	in:(Smalltalk allClasses)
60e6a7d07c93 initial checkin tz parents: diff changeset	2969	title:t
60e6a7d07c93 initial checkin tz parents: diff changeset	2970	]
60e6a7d07c93 initial checkin tz parents: diff changeset	2971	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2972
60e6a7d07c93 initial checkin tz parents: diff changeset	2973	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2974
60e6a7d07c93 initial checkin tz parents: diff changeset	2975	browseSenders
60e6a7d07c93 initial checkin tz parents: diff changeset	2976	"open a senders- browser after asking for a selector"
60e6a7d07c93 initial checkin tz parents: diff changeset	2977
60e6a7d07c93 initial checkin tz parents: diff changeset	2978	\|enterBox selector\|
60e6a7d07c93 initial checkin tz parents: diff changeset	2979
60e6a7d07c93 initial checkin tz parents: diff changeset	2980	enterBox := EnterBox
60e6a7d07c93 initial checkin tz parents: diff changeset	2981	title:(resources at:'Browse senders of:') withCRs
60e6a7d07c93 initial checkin tz parents: diff changeset	2982	okText:(resources at:'browse')
60e6a7d07c93 initial checkin tz parents: diff changeset	2983	action:[:acceptedString \| selector := acceptedString].
60e6a7d07c93 initial checkin tz parents: diff changeset	2984	enterBox showAtPointer.
60e6a7d07c93 initial checkin tz parents: diff changeset	2985
60e6a7d07c93 initial checkin tz parents: diff changeset	2986	selector notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2987	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2988	SystemBrowser browseAllCallsOn:selector
60e6a7d07c93 initial checkin tz parents: diff changeset	2989	]
60e6a7d07c93 initial checkin tz parents: diff changeset	2990	].
60e6a7d07c93 initial checkin tz parents: diff changeset	2991
60e6a7d07c93 initial checkin tz parents: diff changeset	2992	!
60e6a7d07c93 initial checkin tz parents: diff changeset	2993
60e6a7d07c93 initial checkin tz parents: diff changeset	2994	browseUndeclared
60e6a7d07c93 initial checkin tz parents: diff changeset	2995	"open a browser on methods refering to undeclared variables"
60e6a7d07c93 initial checkin tz parents: diff changeset	2996
60e6a7d07c93 initial checkin tz parents: diff changeset	2997	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	2998	SystemBrowser
60e6a7d07c93 initial checkin tz parents: diff changeset	2999	browseReferendsOf:(Smalltalk underclaredPrefix , '*')
60e6a7d07c93 initial checkin tz parents: diff changeset	3000	title:(resources string:'references to undeclared variables')
60e6a7d07c93 initial checkin tz parents: diff changeset	3001	warnIfNone:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3002	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3003
60e6a7d07c93 initial checkin tz parents: diff changeset	3004	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3005
60e6a7d07c93 initial checkin tz parents: diff changeset	3006	startClassBrowser
60e6a7d07c93 initial checkin tz parents: diff changeset	3007	"open a classBrowser; asks for class"
60e6a7d07c93 initial checkin tz parents: diff changeset	3008
60e6a7d07c93 initial checkin tz parents: diff changeset	3009	SystemBrowser askThenBrowseClass
60e6a7d07c93 initial checkin tz parents: diff changeset	3010
60e6a7d07c93 initial checkin tz parents: diff changeset	3011	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3012
60e6a7d07c93 initial checkin tz parents: diff changeset	3013	startClassHierarchyBrowser
60e6a7d07c93 initial checkin tz parents: diff changeset	3014	"open a classHierarchyBrowser; asks for class"
60e6a7d07c93 initial checkin tz parents: diff changeset	3015
60e6a7d07c93 initial checkin tz parents: diff changeset	3016	SystemBrowser askThenBrowseClassHierarchy
60e6a7d07c93 initial checkin tz parents: diff changeset	3017
60e6a7d07c93 initial checkin tz parents: diff changeset	3018	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3019
60e6a7d07c93 initial checkin tz parents: diff changeset	3020	startFullClassBrowser
60e6a7d07c93 initial checkin tz parents: diff changeset	3021	"open a fullClass systemBrowser; asks for class"
60e6a7d07c93 initial checkin tz parents: diff changeset	3022
60e6a7d07c93 initial checkin tz parents: diff changeset	3023	SystemBrowser askThenBrowseFullClassProtocol
60e6a7d07c93 initial checkin tz parents: diff changeset	3024
60e6a7d07c93 initial checkin tz parents: diff changeset	3025	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	3026
60e6a7d07c93 initial checkin tz parents: diff changeset	3027	!NewLauncher methodsFor:'action - demos'!
60e6a7d07c93 initial checkin tz parents: diff changeset	3028
60e6a7d07c93 initial checkin tz parents: diff changeset	3029	openDemo:className
60e6a7d07c93 initial checkin tz parents: diff changeset	3030	"open a demo, given its name.
60e6a7d07c93 initial checkin tz parents: diff changeset	3031	Looks in both the Smalltalk- and the Demos-Namespace
60e6a7d07c93 initial checkin tz parents: diff changeset	3032	for that class."
60e6a7d07c93 initial checkin tz parents: diff changeset	3033
60e6a7d07c93 initial checkin tz parents: diff changeset	3034	self openApplication:className nameSpace:Demos
60e6a7d07c93 initial checkin tz parents: diff changeset	3035
60e6a7d07c93 initial checkin tz parents: diff changeset	3036	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3037
60e6a7d07c93 initial checkin tz parents: diff changeset	3038	startTicTacToe2
60e6a7d07c93 initial checkin tz parents: diff changeset	3039	"opens a 2-user ticTacToe game"
60e6a7d07c93 initial checkin tz parents: diff changeset	3040
60e6a7d07c93 initial checkin tz parents: diff changeset	3041	self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
60e6a7d07c93 initial checkin tz parents: diff changeset	3042	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	3043
60e6a7d07c93 initial checkin tz parents: diff changeset	3044	!NewLauncher methodsFor:'action - file'!
60e6a7d07c93 initial checkin tz parents: diff changeset	3045
60e6a7d07c93 initial checkin tz parents: diff changeset	3046	exit
60e6a7d07c93 initial checkin tz parents: diff changeset	3047	"saves a snapshot image and exits, after asking for a fileName"
60e6a7d07c93 initial checkin tz parents: diff changeset	3048
60e6a7d07c93 initial checkin tz parents: diff changeset	3049	\|fileName saveAndExit box\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3050
60e6a7d07c93 initial checkin tz parents: diff changeset	3051	box := EnterBox2 title:'Save image before exiting?'
1422 bd1798d4454c exit dialog changed + info bar as subSpec to class ToolApplicationModel moved tz parents: 1420 diff changeset	3052	okText:' Save & Exit '
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3053	abortText:'Cancel'
1422 bd1798d4454c exit dialog changed + info bar as subSpec to class ToolApplicationModel moved tz parents: 1420 diff changeset	3054	action:[:str\|fileName := str. saveAndExit := true].
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3055	box label: 'Exiting ST/X'.
60e6a7d07c93 initial checkin tz parents: diff changeset	3056	box initialText: ObjectMemory nameForSnapshot.
1422 bd1798d4454c exit dialog changed + info bar as subSpec to class ToolApplicationModel moved tz parents: 1420 diff changeset	3057	box okText2:'Exit' action2:[:str\|saveAndExit := false]; showAtPointer.
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3058
60e6a7d07c93 initial checkin tz parents: diff changeset	3059	saveAndExit notNil
60e6a7d07c93 initial checkin tz parents: diff changeset	3060	ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3061	saveAndExit
60e6a7d07c93 initial checkin tz parents: diff changeset	3062	ifTrue:
60e6a7d07c93 initial checkin tz parents: diff changeset	3063	[
60e6a7d07c93 initial checkin tz parents: diff changeset	3064	self saveImageAs: fileName
60e6a7d07c93 initial checkin tz parents: diff changeset	3065	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3066	Smalltalk exit
60e6a7d07c93 initial checkin tz parents: diff changeset	3067	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3068
60e6a7d07c93 initial checkin tz parents: diff changeset	3069
60e6a7d07c93 initial checkin tz parents: diff changeset	3070
60e6a7d07c93 initial checkin tz parents: diff changeset	3071	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3072
60e6a7d07c93 initial checkin tz parents: diff changeset	3073	objectModuleDialog
60e6a7d07c93 initial checkin tz parents: diff changeset	3074	"opens a moduleInfo dialog"
60e6a7d07c93 initial checkin tz parents: diff changeset	3075
60e6a7d07c93 initial checkin tz parents: diff changeset	3076	\|allModules moduleNames
60e6a7d07c93 initial checkin tz parents: diff changeset	3077	allObjects methodObjects methodNames
60e6a7d07c93 initial checkin tz parents: diff changeset	3078	cObjects cObjectNames
60e6a7d07c93 initial checkin tz parents: diff changeset	3079	otherObjects otherObjectNames
60e6a7d07c93 initial checkin tz parents: diff changeset	3080	box l handles unloadButton
60e6a7d07c93 initial checkin tz parents: diff changeset	3081	list1 list2 listView1 listView2
60e6a7d07c93 initial checkin tz parents: diff changeset	3082	y panel
60e6a7d07c93 initial checkin tz parents: diff changeset	3083	showBuiltIn showModules showMethods showCObjects showOthers
60e6a7d07c93 initial checkin tz parents: diff changeset	3084	moduleListUpdater check canDoIt menu\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3085
60e6a7d07c93 initial checkin tz parents: diff changeset	3086	showBuiltIn := true asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3087	canDoIt := ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles].
60e6a7d07c93 initial checkin tz parents: diff changeset	3088
60e6a7d07c93 initial checkin tz parents: diff changeset	3089	showModules := canDoIt asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3090	showMethods := canDoIt asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3091	showCObjects := canDoIt asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3092	showOthers := canDoIt asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3093
60e6a7d07c93 initial checkin tz parents: diff changeset	3094	list1 := SelectionInList new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3095	list2 := SelectionInList new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3096
60e6a7d07c93 initial checkin tz parents: diff changeset	3097	moduleListUpdater := [
60e6a7d07c93 initial checkin tz parents: diff changeset	3098	\|l\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3099
60e6a7d07c93 initial checkin tz parents: diff changeset	3100	list2 list:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3101
60e6a7d07c93 initial checkin tz parents: diff changeset	3102	l := Array new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3103	handles := Array new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3104
60e6a7d07c93 initial checkin tz parents: diff changeset	3105	(showModules value or:[showBuiltIn value]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3106	allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
60e6a7d07c93 initial checkin tz parents: diff changeset	3107	(showBuiltIn value and:[showModules value]) ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3108	allModules := allModules select:[:i \|
60e6a7d07c93 initial checkin tz parents: diff changeset	3109	\|wantToSee\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3110
60e6a7d07c93 initial checkin tz parents: diff changeset	3111	wantToSee := i dynamic.
60e6a7d07c93 initial checkin tz parents: diff changeset	3112	showBuiltIn value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3113	wantToSee := wantToSee not
60e6a7d07c93 initial checkin tz parents: diff changeset	3114	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3115	wantToSee
60e6a7d07c93 initial checkin tz parents: diff changeset	3116	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3117	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3118
60e6a7d07c93 initial checkin tz parents: diff changeset	3119	"/ sorting by reverse id brings newest ones to the top (a side effect)
60e6a7d07c93 initial checkin tz parents: diff changeset	3120	allModules sort:[:a :b \| (a id) > (b id)].
60e6a7d07c93 initial checkin tz parents: diff changeset	3121	moduleNames := allModules collect:[:entry \| entry name].
60e6a7d07c93 initial checkin tz parents: diff changeset	3122	l := l , moduleNames.
60e6a7d07c93 initial checkin tz parents: diff changeset	3123	handles := handles , allModules.
60e6a7d07c93 initial checkin tz parents: diff changeset	3124	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3125
60e6a7d07c93 initial checkin tz parents: diff changeset	3126	showMethods value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3127	allObjects := ObjectFileLoader loadedObjectHandles.
60e6a7d07c93 initial checkin tz parents: diff changeset	3128	methodObjects := (allObjects select:[:h \| h isMethodHandle]) asArray.
60e6a7d07c93 initial checkin tz parents: diff changeset	3129	methodNames := methodObjects collect:[:mH \| mH method isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3130	'compiled method - removed' , ' (in ' , mH pathName , ')'
60e6a7d07c93 initial checkin tz parents: diff changeset	3131	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3132	'compiled method ' , mH method whoString , ' (in ' , mH pathName , ')'
60e6a7d07c93 initial checkin tz parents: diff changeset	3133	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3134	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3135	l := l , methodNames.
60e6a7d07c93 initial checkin tz parents: diff changeset	3136	handles := handles , methodObjects.
60e6a7d07c93 initial checkin tz parents: diff changeset	3137	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3138
60e6a7d07c93 initial checkin tz parents: diff changeset	3139	showCObjects value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3140	allObjects := ObjectFileLoader loadedObjectHandles.
60e6a7d07c93 initial checkin tz parents: diff changeset	3141	cObjects := (allObjects select:[:h \| h isFunctionObjectHandle]) asArray.
60e6a7d07c93 initial checkin tz parents: diff changeset	3142	cObjectNames := cObjects collect:[:entry \| entry pathName].
60e6a7d07c93 initial checkin tz parents: diff changeset	3143	l := l , cObjectNames.
60e6a7d07c93 initial checkin tz parents: diff changeset	3144	handles := handles , cObjects.
60e6a7d07c93 initial checkin tz parents: diff changeset	3145	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3146
60e6a7d07c93 initial checkin tz parents: diff changeset	3147	showOthers value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3148	allObjects := ObjectFileLoader loadedObjectHandles.
60e6a7d07c93 initial checkin tz parents: diff changeset	3149	otherObjects := (allObjects select:[:h \| (h isFunctionObjectHandle
60e6a7d07c93 initial checkin tz parents: diff changeset	3150	or:[h isMethodHandle
60e6a7d07c93 initial checkin tz parents: diff changeset	3151	or:[h isClassLibHandle]]) not]) asArray.
60e6a7d07c93 initial checkin tz parents: diff changeset	3152	otherObjectNames := otherObjects collect:[:entry \| entry pathName].
60e6a7d07c93 initial checkin tz parents: diff changeset	3153	l := l , otherObjectNames.
60e6a7d07c93 initial checkin tz parents: diff changeset	3154	handles := handles , otherObjects.
60e6a7d07c93 initial checkin tz parents: diff changeset	3155	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3156
60e6a7d07c93 initial checkin tz parents: diff changeset	3157	list1 list:l.
60e6a7d07c93 initial checkin tz parents: diff changeset	3158	unloadButton disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3159	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3160
60e6a7d07c93 initial checkin tz parents: diff changeset	3161	showBuiltIn onChangeSend:#value to:moduleListUpdater.
60e6a7d07c93 initial checkin tz parents: diff changeset	3162	showModules onChangeSend:#value to:moduleListUpdater.
60e6a7d07c93 initial checkin tz parents: diff changeset	3163	showMethods onChangeSend:#value to:moduleListUpdater.
60e6a7d07c93 initial checkin tz parents: diff changeset	3164	showCObjects onChangeSend:#value to:moduleListUpdater.
60e6a7d07c93 initial checkin tz parents: diff changeset	3165	showOthers onChangeSend:#value to:moduleListUpdater.
60e6a7d07c93 initial checkin tz parents: diff changeset	3166
60e6a7d07c93 initial checkin tz parents: diff changeset	3167	box := Dialog new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3168	box label:(resources string:'Module dialog').
60e6a7d07c93 initial checkin tz parents: diff changeset	3169
60e6a7d07c93 initial checkin tz parents: diff changeset	3170	listView1 := HVScrollableView for:SelectionInListView miniScrollerH:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3171	listView1 model:list1.
60e6a7d07c93 initial checkin tz parents: diff changeset	3172	listView1 origin:0.0@0.0 corner:1.0@0.4. "/ ; inset:2.
60e6a7d07c93 initial checkin tz parents: diff changeset	3173	listView1 action:[:sel \|
60e6a7d07c93 initial checkin tz parents: diff changeset	3174	\|info classNames tabs module\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3175
60e6a7d07c93 initial checkin tz parents: diff changeset	3176	listView1 middleButtonMenu:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3177
60e6a7d07c93 initial checkin tz parents: diff changeset	3178	box withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3179	\|nm fileName addr entry1 entry2 entry3 method\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3180
60e6a7d07c93 initial checkin tz parents: diff changeset	3181	tabs := TabulatorSpecification unit:#inch positions:#(0 2.6).
60e6a7d07c93 initial checkin tz parents: diff changeset	3182
60e6a7d07c93 initial checkin tz parents: diff changeset	3183	(showModules value or:[showBuiltIn value]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3184	info := allModules at:sel ifAbsent:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3185	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3186	info isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3187	"/ selected a method, cObject or unknown
60e6a7d07c93 initial checkin tz parents: diff changeset	3188
60e6a7d07c93 initial checkin tz parents: diff changeset	3189	module := handles at:sel.
60e6a7d07c93 initial checkin tz parents: diff changeset	3190	fileName := module pathName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3191
60e6a7d07c93 initial checkin tz parents: diff changeset	3192	module isMethodHandle ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3193
60e6a7d07c93 initial checkin tz parents: diff changeset	3194	(method := module method) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3195	nm := ' removed '.
60e6a7d07c93 initial checkin tz parents: diff changeset	3196	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3197	menu := PopUpMenu
60e6a7d07c93 initial checkin tz parents: diff changeset	3198	labels:#('inspect' 'browse')
60e6a7d07c93 initial checkin tz parents: diff changeset	3199	selectors:#(inspect browse).
60e6a7d07c93 initial checkin tz parents: diff changeset	3200	menu actionAt:#inspect put:[ method inspect ].
60e6a7d07c93 initial checkin tz parents: diff changeset	3201	menu actionAt:#browse put:[ \|who\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3202	who := method who.
60e6a7d07c93 initial checkin tz parents: diff changeset	3203	SystemBrowser
60e6a7d07c93 initial checkin tz parents: diff changeset	3204	openInClass:(who methodClass)
60e6a7d07c93 initial checkin tz parents: diff changeset	3205	selector:(who methodSelector)
60e6a7d07c93 initial checkin tz parents: diff changeset	3206	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3207	listView1 middleButtonMenu:menu.
60e6a7d07c93 initial checkin tz parents: diff changeset	3208
60e6a7d07c93 initial checkin tz parents: diff changeset	3209	nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
60e6a7d07c93 initial checkin tz parents: diff changeset	3210	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3211	entry1 := MultiColListEntry new:2 tabulatorSpecification:tabs.
60e6a7d07c93 initial checkin tz parents: diff changeset	3212	entry1 colAt:1 put:'compiled method'; colAt:2 put:nm.
60e6a7d07c93 initial checkin tz parents: diff changeset	3213
60e6a7d07c93 initial checkin tz parents: diff changeset	3214	entry2 := MultiColListEntry new:2 tabulatorSpecification:tabs.
60e6a7d07c93 initial checkin tz parents: diff changeset	3215	entry2 colAt:1 put:'path'; colAt:2 put:fileName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3216
60e6a7d07c93 initial checkin tz parents: diff changeset	3217	entry3 := MultiColListEntry new:2 tabulatorSpecification:tabs.
60e6a7d07c93 initial checkin tz parents: diff changeset	3218	entry3 colAt:1 put:'address'; colAt:2 put:('(16r) ' , (method code hexPrintString leftPaddedTo:8 with:$0)).
60e6a7d07c93 initial checkin tz parents: diff changeset	3219
60e6a7d07c93 initial checkin tz parents: diff changeset	3220	list2 list:(Array with:entry1 with:entry2 with:entry3).
60e6a7d07c93 initial checkin tz parents: diff changeset	3221	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3222	(module isFunctionObjectHandle
60e6a7d07c93 initial checkin tz parents: diff changeset	3223	and:[module functions notEmpty]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3224
60e6a7d07c93 initial checkin tz parents: diff changeset	3225	menu := PopUpMenu
60e6a7d07c93 initial checkin tz parents: diff changeset	3226	labels:#('inspect')
60e6a7d07c93 initial checkin tz parents: diff changeset	3227	selectors:#(inspect).
60e6a7d07c93 initial checkin tz parents: diff changeset	3228	menu actionAt:#inspect put:[ module functions inspect ].
60e6a7d07c93 initial checkin tz parents: diff changeset	3229	listView1 middleButtonMenu:menu.
60e6a7d07c93 initial checkin tz parents: diff changeset	3230
60e6a7d07c93 initial checkin tz parents: diff changeset	3231	list2 list:((module functions select:[:f \| f notNil])
60e6a7d07c93 initial checkin tz parents: diff changeset	3232	collect:[:f \| \|entry\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3233	entry := MultiColListEntry new:2 tabulatorSpecification:tabs.
60e6a7d07c93 initial checkin tz parents: diff changeset	3234	entry colAt:1 put:(f name asText emphasizeAllWith:(#color->Color blue)).
60e6a7d07c93 initial checkin tz parents: diff changeset	3235	entry colAt:2 put:('address: (16r) ' , (f code hexPrintString leftPaddedTo:8 with:$0)).
60e6a7d07c93 initial checkin tz parents: diff changeset	3236	entry
60e6a7d07c93 initial checkin tz parents: diff changeset	3237	]).
60e6a7d07c93 initial checkin tz parents: diff changeset	3238	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3239	list2 list:#('nothing known about contents (no functions have been extracted)').
60e6a7d07c93 initial checkin tz parents: diff changeset	3240	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3241	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3242
60e6a7d07c93 initial checkin tz parents: diff changeset	3243	unloadButton enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3244	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3245	"/ selected a package
60e6a7d07c93 initial checkin tz parents: diff changeset	3246
60e6a7d07c93 initial checkin tz parents: diff changeset	3247	"/ fill bottom list with class-info
60e6a7d07c93 initial checkin tz parents: diff changeset	3248
60e6a7d07c93 initial checkin tz parents: diff changeset	3249	classNames := info classNames asSortedCollection.
60e6a7d07c93 initial checkin tz parents: diff changeset	3250	classNames := classNames collect:[:cName \|
60e6a7d07c93 initial checkin tz parents: diff changeset	3251	\|cls entry rev listEntry\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3252
60e6a7d07c93 initial checkin tz parents: diff changeset	3253	listEntry := MultiColListEntry new:2 tabulatorSpecification:tabs.
60e6a7d07c93 initial checkin tz parents: diff changeset	3254	listEntry colAt:1 put:cName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3255
60e6a7d07c93 initial checkin tz parents: diff changeset	3256	cls := Smalltalk classNamed:cName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3257	cls isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3258	listEntry colAt:2 put:'(class removed)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	3259	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3260	rev := cls binaryRevision.
60e6a7d07c93 initial checkin tz parents: diff changeset	3261	rev notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3262	cls isLoaded ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3263	entry := '(stub for: ' , rev.
60e6a7d07c93 initial checkin tz parents: diff changeset	3264	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3265	entry :='(bin: ' , rev.
60e6a7d07c93 initial checkin tz parents: diff changeset	3266	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3267	cls revision ~= rev ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3268	entry := entry , ' / src: ' , cls revision
60e6a7d07c93 initial checkin tz parents: diff changeset	3269	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3270	listEntry colAt:2 put:entry , ')'
60e6a7d07c93 initial checkin tz parents: diff changeset	3271	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3272	cls revision notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3273	listEntry colAt:2 put:'(overloaded by: ' , cls revision , ')'
60e6a7d07c93 initial checkin tz parents: diff changeset	3274	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3275	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3276	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3277	listEntry
60e6a7d07c93 initial checkin tz parents: diff changeset	3278	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3279	list2 list:classNames.
60e6a7d07c93 initial checkin tz parents: diff changeset	3280	info dynamic ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3281	unloadButton enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3282	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3283	unloadButton disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3284	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3285	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3286	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3287	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3288
60e6a7d07c93 initial checkin tz parents: diff changeset	3289
60e6a7d07c93 initial checkin tz parents: diff changeset	3290	panel := HorizontalPanelView new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3291
60e6a7d07c93 initial checkin tz parents: diff changeset	3292	panel add:(l := Label label:'show:').
60e6a7d07c93 initial checkin tz parents: diff changeset	3293	l adjust:#left; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	3294	panel add:(check := CheckBox label:'builtin' model:showBuiltIn).
60e6a7d07c93 initial checkin tz parents: diff changeset	3295	box makeTabable:check.
60e6a7d07c93 initial checkin tz parents: diff changeset	3296	panel add:(check := CheckBox label:'classLibs' model:showModules).
60e6a7d07c93 initial checkin tz parents: diff changeset	3297	canDoIt ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3298	check disable
60e6a7d07c93 initial checkin tz parents: diff changeset	3299	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3300	box makeTabable:check.
60e6a7d07c93 initial checkin tz parents: diff changeset	3301	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3302	panel add:(check := CheckBox label:'methods' model:showMethods).
60e6a7d07c93 initial checkin tz parents: diff changeset	3303	canDoIt ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3304	check disable
60e6a7d07c93 initial checkin tz parents: diff changeset	3305	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3306	box makeTabable:check.
60e6a7d07c93 initial checkin tz parents: diff changeset	3307	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3308	panel add:(check := CheckBox label:'c-objects' model:showCObjects).
60e6a7d07c93 initial checkin tz parents: diff changeset	3309	canDoIt ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3310	check disable
60e6a7d07c93 initial checkin tz parents: diff changeset	3311	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3312	box makeTabable:check.
60e6a7d07c93 initial checkin tz parents: diff changeset	3313	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3314	panel add:(check := CheckBox label:'others' model:showOthers).
60e6a7d07c93 initial checkin tz parents: diff changeset	3315	canDoIt ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3316	check disable
60e6a7d07c93 initial checkin tz parents: diff changeset	3317	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3318	box makeTabable:check.
60e6a7d07c93 initial checkin tz parents: diff changeset	3319	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3320
60e6a7d07c93 initial checkin tz parents: diff changeset	3321	panel horizontalLayout:#fitSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3322	"/ panel horizontalLayout:#leftSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3323
60e6a7d07c93 initial checkin tz parents: diff changeset	3324	box addComponent:panel tabable:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	3325
60e6a7d07c93 initial checkin tz parents: diff changeset	3326	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3327	box addComponent:listView1 tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3328	listView1 topInset:(View viewSpacing + panel preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3329	listView1 origin:0.0@0.0 corner:1.0@0.4. "/ ; inset:2.
60e6a7d07c93 initial checkin tz parents: diff changeset	3330
60e6a7d07c93 initial checkin tz parents: diff changeset	3331	l := box addTextLabel:(resources string:'contained classes/subsets:').
60e6a7d07c93 initial checkin tz parents: diff changeset	3332	l adjust:#left; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	3333	l origin:0.0@0.4 corner:1.0@0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3334	l topInset:(View viewSpacing).
60e6a7d07c93 initial checkin tz parents: diff changeset	3335	l bottomInset:((l preferredExtent y) negated - View viewSpacing).
60e6a7d07c93 initial checkin tz parents: diff changeset	3336
60e6a7d07c93 initial checkin tz parents: diff changeset	3337	listView2 := HVScrollableView for:SelectionInListView miniScrollerH:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3338	listView2 model:list2; printItems:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	3339	box addComponent:listView2 tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3340	listView2 origin:0.0@0.4 corner:1.0@1.0. "/ ; inset:2.
60e6a7d07c93 initial checkin tz parents: diff changeset	3341	listView2 disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3342
60e6a7d07c93 initial checkin tz parents: diff changeset	3343	unloadButton := Button label:(resources string:'unload').
60e6a7d07c93 initial checkin tz parents: diff changeset	3344	unloadButton action:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3345	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3346	box withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3347	\|info idx pathName\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3348
60e6a7d07c93 initial checkin tz parents: diff changeset	3349	idx := list1 selectionIndex.
60e6a7d07c93 initial checkin tz parents: diff changeset	3350	info := allModules at:idx ifAbsent:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3351
60e6a7d07c93 initial checkin tz parents: diff changeset	3352	list1 selectionIndex:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3353
60e6a7d07c93 initial checkin tz parents: diff changeset	3354	info isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3355	"/ selected a method
60e6a7d07c93 initial checkin tz parents: diff changeset	3356	"/ idx := idx - allModules size.
60e6a7d07c93 initial checkin tz parents: diff changeset	3357	pathName := (handles at:idx) pathName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3358
60e6a7d07c93 initial checkin tz parents: diff changeset	3359	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3360	"/ selected a package
60e6a7d07c93 initial checkin tz parents: diff changeset	3361	pathName := info pathName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3362	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3363	ObjectFileLoader unloadObjectFile:pathName.
60e6a7d07c93 initial checkin tz parents: diff changeset	3364	moduleListUpdater value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3365	unloadButton disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3366	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3367	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3368	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3369	moduleListUpdater value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3370
60e6a7d07c93 initial checkin tz parents: diff changeset	3371	box addButton:unloadButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	3372	box addAbortButtonLabelled:(resources string:'dismiss').
60e6a7d07c93 initial checkin tz parents: diff changeset	3373
60e6a7d07c93 initial checkin tz parents: diff changeset	3374	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3375	listView2 topInset:(l preferredExtent y + 5).
60e6a7d07c93 initial checkin tz parents: diff changeset	3376	listView2 bottomInset:(box preferredExtent y - y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3377
60e6a7d07c93 initial checkin tz parents: diff changeset	3378	"/ box width:(400 min:(box device width * 2 // 3));
60e6a7d07c93 initial checkin tz parents: diff changeset	3379	"/ height:(450 min:(box device height - 50));
60e6a7d07c93 initial checkin tz parents: diff changeset	3380	"/ sizeFixed:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3381	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	3382
60e6a7d07c93 initial checkin tz parents: diff changeset	3383	box destroy.
60e6a7d07c93 initial checkin tz parents: diff changeset	3384
60e6a7d07c93 initial checkin tz parents: diff changeset	3385	"Modified: 17.9.1995 / 16:47:50 / claus"
60e6a7d07c93 initial checkin tz parents: diff changeset	3386	"Modified: 18.10.1997 / 03:43:39 / cg"
60e6a7d07c93 initial checkin tz parents: diff changeset	3387
60e6a7d07c93 initial checkin tz parents: diff changeset	3388
60e6a7d07c93 initial checkin tz parents: diff changeset	3389	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3390
60e6a7d07c93 initial checkin tz parents: diff changeset	3391	openApplicationBuilder
60e6a7d07c93 initial checkin tz parents: diff changeset	3392
60e6a7d07c93 initial checkin tz parents: diff changeset	3393	self valueOfBuildDate value: Date today printString, ' ', Time now printString.
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	3394	self openDialogInterface:#windowSpecForApplicationSettings.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3395
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3396	LibraryBuilder UserLibraries: self valueOfUserLibraries value
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3397
60e6a7d07c93 initial checkin tz parents: diff changeset	3398	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3399
60e6a7d07c93 initial checkin tz parents: diff changeset	3400	saveImage
60e6a7d07c93 initial checkin tz parents: diff changeset	3401	"save image"
60e6a7d07c93 initial checkin tz parents: diff changeset	3402
60e6a7d07c93 initial checkin tz parents: diff changeset	3403	self showCursor:Cursor write.
60e6a7d07c93 initial checkin tz parents: diff changeset	3404	[
60e6a7d07c93 initial checkin tz parents: diff changeset	3405	(ObjectMemory snapShotOn:ObjectMemory nameForSnapshot) ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3406	self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
60e6a7d07c93 initial checkin tz parents: diff changeset	3407	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3408	] valueNowOrOnUnwindDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3409	self restoreCursors.
60e6a7d07c93 initial checkin tz parents: diff changeset	3410	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3411
60e6a7d07c93 initial checkin tz parents: diff changeset	3412	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3413
60e6a7d07c93 initial checkin tz parents: diff changeset	3414	saveImageAs
60e6a7d07c93 initial checkin tz parents: diff changeset	3415	"save image, after asking for a file name"
60e6a7d07c93 initial checkin tz parents: diff changeset	3416
60e6a7d07c93 initial checkin tz parents: diff changeset	3417	self saveImageAs: (
60e6a7d07c93 initial checkin tz parents: diff changeset	3418	FileSelectionBrowser
60e6a7d07c93 initial checkin tz parents: diff changeset	3419	request: 'Save Image As'
60e6a7d07c93 initial checkin tz parents: diff changeset	3420	fileName: ObjectMemory nameForSnapshot
60e6a7d07c93 initial checkin tz parents: diff changeset	3421	inDirectory: Filename currentDirectory name
60e6a7d07c93 initial checkin tz parents: diff changeset	3422	withFileFilters: #('*.img'))
60e6a7d07c93 initial checkin tz parents: diff changeset	3423
60e6a7d07c93 initial checkin tz parents: diff changeset	3424	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3425
60e6a7d07c93 initial checkin tz parents: diff changeset	3426	saveImageAs: aFileName
60e6a7d07c93 initial checkin tz parents: diff changeset	3427
60e6a7d07c93 initial checkin tz parents: diff changeset	3428	aFileName notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3429	self showCursor:Cursor write.
60e6a7d07c93 initial checkin tz parents: diff changeset	3430	[
60e6a7d07c93 initial checkin tz parents: diff changeset	3431	(ObjectMemory snapShotOn:aFileName) ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3432	self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
60e6a7d07c93 initial checkin tz parents: diff changeset	3433	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3434	] valueNowOrOnUnwindDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3435	self restoreCursors.
60e6a7d07c93 initial checkin tz parents: diff changeset	3436	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3437	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3438	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	3439
60e6a7d07c93 initial checkin tz parents: diff changeset	3440	!NewLauncher methodsFor:'action - help'!
60e6a7d07c93 initial checkin tz parents: diff changeset	3441
1429 aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3442	activeHelp
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3443
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3444	^helpIsOn ? (helpIsOn := false)
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3445	!
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3446
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	3447	showBookPrintDocument
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3448	"open an HTML browser on the 'book'-printing document"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3449
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3450	self showDocumentation:'BOOK.html'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3451	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3452
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3453	showDocumentation:aRelativeDocFilePath
60e6a7d07c93 initial checkin tz parents: diff changeset	3454	"open an HTML browser on some document"
60e6a7d07c93 initial checkin tz parents: diff changeset	3455
60e6a7d07c93 initial checkin tz parents: diff changeset	3456	"
60e6a7d07c93 initial checkin tz parents: diff changeset	3457	although that one is not yet finished,
60e6a7d07c93 initial checkin tz parents: diff changeset	3458	its better than nothing ...
60e6a7d07c93 initial checkin tz parents: diff changeset	3459	"
60e6a7d07c93 initial checkin tz parents: diff changeset	3460	HTMLDocumentView notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3461	"
60e6a7d07c93 initial checkin tz parents: diff changeset	3462	temporary kludge;
60e6a7d07c93 initial checkin tz parents: diff changeset	3463	not all machines can autoload binaries;
60e6a7d07c93 initial checkin tz parents: diff changeset	3464	however, on my SGI (which can) we want it
60e6a7d07c93 initial checkin tz parents: diff changeset	3465	to load automatically.
60e6a7d07c93 initial checkin tz parents: diff changeset	3466	"
60e6a7d07c93 initial checkin tz parents: diff changeset	3467	HTMLDocumentView isLoaded ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3468	ErrorSignal catch:[HTMLDocumentView autoload]
60e6a7d07c93 initial checkin tz parents: diff changeset	3469	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3470	HTMLDocumentView isLoaded ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3471	HTMLDocumentView openFullOnDocumentationFile:aRelativeDocFilePath.
60e6a7d07c93 initial checkin tz parents: diff changeset	3472	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	3473	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3474	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3475
60e6a7d07c93 initial checkin tz parents: diff changeset	3476	self warn:'Sorry, the ST/X HTML reader is not
60e6a7d07c93 initial checkin tz parents: diff changeset	3477	included in this release.
60e6a7d07c93 initial checkin tz parents: diff changeset	3478
60e6a7d07c93 initial checkin tz parents: diff changeset	3479	Please use Mosaic, netscape, chimera or any
60e6a7d07c93 initial checkin tz parents: diff changeset	3480	other HTML viewer to see the documentation.
60e6a7d07c93 initial checkin tz parents: diff changeset	3481
60e6a7d07c93 initial checkin tz parents: diff changeset	3482	The documentation is found in the ''doc/online'' directory.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	3483	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3484
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	3485	startClassDocumentation
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3486	"open an HTML browser on the 'classDoc/TOP' document"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3487
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3488	self showDocumentation:'classDoc/TOP.html'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3489
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3490	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3491
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3492	startDocumentationIndex
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3493	"open an HTML browser on the 'index' document"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3494
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3495	self showDocumentation:'index.html'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3496	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3497
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3498	startDocumentationTool
60e6a7d07c93 initial checkin tz parents: diff changeset	3499	"open an HTML browser on the 'TOP' document"
60e6a7d07c93 initial checkin tz parents: diff changeset	3500
60e6a7d07c93 initial checkin tz parents: diff changeset	3501	self showDocumentation:'TOP.html'
60e6a7d07c93 initial checkin tz parents: diff changeset	3502
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	3503	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3504
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3505	startWhatsNewDocumentation
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3506	"open an HTML browser on the 'whatsNew.html' document"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3507
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3508	self showDocumentation:'whatsNew.html'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3509
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3510	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3511
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3512	toggleActiveHelp:aBoolean
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3513	"turn on/off active help"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	3514
1429 aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3515	ActiveHelp notNil ifTrue:[
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3516	helpIsOn := aBoolean.
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3517	helpIsOn ifTrue:[
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3518	ActiveHelp start
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3519	] ifFalse:[
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3520	ActiveHelp stop
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3521	]
aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	3522	].
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	3523
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3524	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	3525
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	3526	!NewLauncher methodsFor:'action - old settings'!
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	3527
60e6a7d07c93 initial checkin tz parents: diff changeset	3528	compilerSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	3529	"open a dialog on compiler related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	3530
60e6a7d07c93 initial checkin tz parents: diff changeset	3531	\|box warnings warnSTX warnUnderscore warnDollar warnOldStyle
60e6a7d07c93 initial checkin tz parents: diff changeset	3532	allowDollar allowUnderscore immutableArrays
60e6a7d07c93 initial checkin tz parents: diff changeset	3533	warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
60e6a7d07c93 initial checkin tz parents: diff changeset	3534	warnCompatibility warnCompatibilityBox warnDollarBox
60e6a7d07c93 initial checkin tz parents: diff changeset	3535	stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
60e6a7d07c93 initial checkin tz parents: diff changeset	3536	stcLibraries stcLibraryPath cc ccOptions historyLines fullHistoryUpdate catchRedefs keepSourceOptions keepSource
60e6a7d07c93 initial checkin tz parents: diff changeset	3537	constantFoldingOptions constantFolding justInTimeCompilation
60e6a7d07c93 initial checkin tz parents: diff changeset	3538	warnEnabler check component oldIndent t supportsJustInTimeCompilation y
60e6a7d07c93 initial checkin tz parents: diff changeset	3539	y2 fullDebugSupport yMax
60e6a7d07c93 initial checkin tz parents: diff changeset	3540	compileLazy loadBinaries canLoadBinaries\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3541
60e6a7d07c93 initial checkin tz parents: diff changeset	3542	canLoadBinaries := ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles].
60e6a7d07c93 initial checkin tz parents: diff changeset	3543	loadBinaries := Smalltalk loadBinaries asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3544	compileLazy := Autoload compileLazy asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3545
60e6a7d07c93 initial checkin tz parents: diff changeset	3546
60e6a7d07c93 initial checkin tz parents: diff changeset	3547	warnings := Compiler warnings asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3548
60e6a7d07c93 initial checkin tz parents: diff changeset	3549	warnSTX := Compiler warnSTXSpecials asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3550	warnUnderscore := Compiler warnUnderscoreInIdentifier asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3551	warnDollar := Compiler warnDollarInIdentifier asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3552	warnOldStyle := Compiler warnOldStyleAssignment asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3553	warnCommonMistakes := Compiler warnCommonMistakes asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3554	warnCompatibility := Compiler warnPossibleIncompatibilities asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3555	allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3556	allowDollar := Compiler allowDollarInIdentifier asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3557	immutableArrays := Compiler arraysAreImmutable asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3558
60e6a7d07c93 initial checkin tz parents: diff changeset	3559	constantFoldingOptions := #( nil #level1 #level2 #full ).
60e6a7d07c93 initial checkin tz parents: diff changeset	3560	constantFolding := SelectionInList new list:(resources array:#('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')).
60e6a7d07c93 initial checkin tz parents: diff changeset	3561	constantFolding selectionIndex:3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3562
60e6a7d07c93 initial checkin tz parents: diff changeset	3563	stcCompilationOptions := #( always default never).
60e6a7d07c93 initial checkin tz parents: diff changeset	3564	stcCompilation := SelectionInList new
60e6a7d07c93 initial checkin tz parents: diff changeset	3565	list:(resources array:#('always'
60e6a7d07c93 initial checkin tz parents: diff changeset	3566	'primitive code only'
60e6a7d07c93 initial checkin tz parents: diff changeset	3567	'never'
60e6a7d07c93 initial checkin tz parents: diff changeset	3568	)).
60e6a7d07c93 initial checkin tz parents: diff changeset	3569	stcCompilation selectionIndex:2.
60e6a7d07c93 initial checkin tz parents: diff changeset	3570	(supportsJustInTimeCompilation := ObjectMemory supportsJustInTimeCompilation)
60e6a7d07c93 initial checkin tz parents: diff changeset	3571	ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3572	justInTimeCompilation := ObjectMemory justInTimeCompilation:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3573	fullDebugSupport := ObjectMemory fullSingleStepSupport:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	3574	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3575	justInTimeCompilation := false.
60e6a7d07c93 initial checkin tz parents: diff changeset	3576	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3577	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3578	justInTimeCompilation := justInTimeCompilation asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3579	fullDebugSupport := fullDebugSupport asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3580
60e6a7d07c93 initial checkin tz parents: diff changeset	3581	stcIncludes := Compiler stcCompilationIncludes asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3582	stcDefines := Compiler stcCompilationDefines asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3583	stcOptions := Compiler stcCompilationOptions asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3584	ccOptions := Compiler ccCompilationOptions asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3585	cc := Compiler ccPath asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3586
60e6a7d07c93 initial checkin tz parents: diff changeset	3587	ObjectFileLoader notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3588	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3589	stcLibraries := (String fromStringCollection:t separatedBy:' ') asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3590	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3591	(t := ObjectFileLoader libPath) notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3592	stcLibraryPath := t asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3593	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3594	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3595
60e6a7d07c93 initial checkin tz parents: diff changeset	3596	catchRedefs := Class catchMethodRedefinitions asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3597	historyLines := HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]].
60e6a7d07c93 initial checkin tz parents: diff changeset	3598	historyLines ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3599	fullHistoryUpdate := false
60e6a7d07c93 initial checkin tz parents: diff changeset	3600	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3601	fullHistoryUpdate := HistoryManager fullHistoryUpdate asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3602	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3603	historyLines := historyLines asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3604
60e6a7d07c93 initial checkin tz parents: diff changeset	3605	keepSourceOptions := #( keep reference absReference sourceReference discard ).
60e6a7d07c93 initial checkin tz parents: diff changeset	3606	keepSource := SelectionInList new list:(resources array:#('keep as string' 'reference to filename' 'reference to full path' 'append and ref in `st.src''' 'discard' )).
60e6a7d07c93 initial checkin tz parents: diff changeset	3607	keepSource selectionIndex:1.
60e6a7d07c93 initial checkin tz parents: diff changeset	3608
60e6a7d07c93 initial checkin tz parents: diff changeset	3609	warnEnabler := [
60e6a7d07c93 initial checkin tz parents: diff changeset	3610	warnings value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3611	warnSTXBox enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3612	warnOldStyleBox enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3613	warnCommonMistakesBox enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3614	warnCompatibilityBox enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3615	allowUnderscore value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3616	warnUnderscoreBox enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3617	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3618	warnUnderscoreBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3619	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3620	allowDollar value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3621	warnDollarBox enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3622	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3623	warnDollarBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3624	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3625	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3626	warnSTXBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3627	warnUnderscoreBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3628	warnDollarBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3629	warnOldStyleBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3630	warnCommonMistakesBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3631	warnCompatibilityBox disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3632	]].
60e6a7d07c93 initial checkin tz parents: diff changeset	3633
60e6a7d07c93 initial checkin tz parents: diff changeset	3634	warnings onChangeSend:#value to:warnEnabler.
60e6a7d07c93 initial checkin tz parents: diff changeset	3635	allowUnderscore onChangeSend:#value to:warnEnabler.
60e6a7d07c93 initial checkin tz parents: diff changeset	3636	allowDollar onChangeSend:#value to:warnEnabler.
60e6a7d07c93 initial checkin tz parents: diff changeset	3637
60e6a7d07c93 initial checkin tz parents: diff changeset	3638	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3639	box label:(resources string:'Compiler settings').
60e6a7d07c93 initial checkin tz parents: diff changeset	3640
60e6a7d07c93 initial checkin tz parents: diff changeset	3641	box addCheckBox:(resources string:'catch method redefinitions') on:catchRedefs.
60e6a7d07c93 initial checkin tz parents: diff changeset	3642	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3643	check := box addCheckBox:(resources string:'keep history line in methods') on:historyLines.
60e6a7d07c93 initial checkin tz parents: diff changeset	3644	HistoryManager isNil ifTrue:[check disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3645	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3646	check := box addCheckBox:(resources string:'keep full class history') on:fullHistoryUpdate.
60e6a7d07c93 initial checkin tz parents: diff changeset	3647	check left:0.5.
60e6a7d07c93 initial checkin tz parents: diff changeset	3648	HistoryManager isNil ifTrue:[check disable] ifFalse:[check enableChannel:historyLines].
60e6a7d07c93 initial checkin tz parents: diff changeset	3649
60e6a7d07c93 initial checkin tz parents: diff changeset	3650	box addPopUpList:(resources string:'fileIn source mode:') on:keepSource.
60e6a7d07c93 initial checkin tz parents: diff changeset	3651	keepSource selectionIndex:( keepSourceOptions indexOf:(ClassCategoryReader sourceMode) ifAbsent:1).
60e6a7d07c93 initial checkin tz parents: diff changeset	3652
60e6a7d07c93 initial checkin tz parents: diff changeset	3653	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3654
60e6a7d07c93 initial checkin tz parents: diff changeset	3655	box addCheckBox:(resources string:'lazy compilation when autoloading') on:compileLazy.
60e6a7d07c93 initial checkin tz parents: diff changeset	3656	check := box addCheckBox:(resources string:'if present, load binary objects when autoloading') on:loadBinaries.
60e6a7d07c93 initial checkin tz parents: diff changeset	3657	canLoadBinaries ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3658	loadBinaries value:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	3659	check disable
60e6a7d07c93 initial checkin tz parents: diff changeset	3660	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3661	supportsJustInTimeCompilation ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3662	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3663	addCheckBox:(resources string:'just in time compilation to machine code')
60e6a7d07c93 initial checkin tz parents: diff changeset	3664	on:justInTimeCompilation.
60e6a7d07c93 initial checkin tz parents: diff changeset	3665	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3666
60e6a7d07c93 initial checkin tz parents: diff changeset	3667	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3668
60e6a7d07c93 initial checkin tz parents: diff changeset	3669	ObjectFileLoader notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3670	compilationList := box addPopUpList:(resources string:'stc compilation to machine code') on:stcCompilation.
60e6a7d07c93 initial checkin tz parents: diff changeset	3671	stcCompilation selectionIndex:( stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
60e6a7d07c93 initial checkin tz parents: diff changeset	3672
60e6a7d07c93 initial checkin tz parents: diff changeset	3673	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3674	addLabelledInputField:(resources string:'include directories:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3675	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3676	on:stcIncludes
60e6a7d07c93 initial checkin tz parents: diff changeset	3677	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3678	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3679	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3680	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3681	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3682
60e6a7d07c93 initial checkin tz parents: diff changeset	3683	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3684
60e6a7d07c93 initial checkin tz parents: diff changeset	3685	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3686	addLabelledInputField:(resources string:'defines:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3687	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3688	on:stcDefines
60e6a7d07c93 initial checkin tz parents: diff changeset	3689	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3690	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3691	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3692	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3693	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3694
60e6a7d07c93 initial checkin tz parents: diff changeset	3695	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3696
60e6a7d07c93 initial checkin tz parents: diff changeset	3697	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3698	addLabelledInputField:(resources string:'stc options:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3699	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3700	on:stcOptions
60e6a7d07c93 initial checkin tz parents: diff changeset	3701	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3702	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3703	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3704	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3705	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3706
60e6a7d07c93 initial checkin tz parents: diff changeset	3707	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3708
60e6a7d07c93 initial checkin tz parents: diff changeset	3709	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3710	addLabelledInputField:(resources string:'cc command:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3711	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3712	on:cc
60e6a7d07c93 initial checkin tz parents: diff changeset	3713	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3714	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3715	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3716	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3717	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3718
60e6a7d07c93 initial checkin tz parents: diff changeset	3719	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3720	addLabelledInputField:(resources string:'cc options:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3721	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3722	on:ccOptions
60e6a7d07c93 initial checkin tz parents: diff changeset	3723	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3724	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3725	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3726	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3727	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3728
60e6a7d07c93 initial checkin tz parents: diff changeset	3729	stcLibraries notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3730	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3731
60e6a7d07c93 initial checkin tz parents: diff changeset	3732	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3733	addLabelledInputField:(resources string:'C-libraries:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3734	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3735	on:stcLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	3736	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3737	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3738	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3739	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3740	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3741	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3742
60e6a7d07c93 initial checkin tz parents: diff changeset	3743	stcLibraryPath notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3744	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3745
60e6a7d07c93 initial checkin tz parents: diff changeset	3746	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	3747	addLabelledInputField:(resources string:'stc libPath:')
60e6a7d07c93 initial checkin tz parents: diff changeset	3748	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	3749	on:stcLibraryPath
60e6a7d07c93 initial checkin tz parents: diff changeset	3750	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3751	separateAtX:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3752	component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3753	component preferredExtent:(250 @ component preferredExtent y).
60e6a7d07c93 initial checkin tz parents: diff changeset	3754	canLoadBinaries ifFalse:[component disable].
60e6a7d07c93 initial checkin tz parents: diff changeset	3755	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3756
60e6a7d07c93 initial checkin tz parents: diff changeset	3757	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3758	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3759
60e6a7d07c93 initial checkin tz parents: diff changeset	3760	"/ if there is no compiler around,
60e6a7d07c93 initial checkin tz parents: diff changeset	3761	"/ change to compile nothing, and disable the checkBoxes
60e6a7d07c93 initial checkin tz parents: diff changeset	3762	Compiler canCreateMachineCode ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3763	stcCompilation selectionIndex:3.
60e6a7d07c93 initial checkin tz parents: diff changeset	3764	compilationList disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	3765	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3766	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3767
60e6a7d07c93 initial checkin tz parents: diff changeset	3768	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3769
60e6a7d07c93 initial checkin tz parents: diff changeset	3770	component := box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
60e6a7d07c93 initial checkin tz parents: diff changeset	3771	component width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3772
60e6a7d07c93 initial checkin tz parents: diff changeset	3773	component := box addCheckBox:(resources string:'allow dollar in identifiers') on:allowDollar.
60e6a7d07c93 initial checkin tz parents: diff changeset	3774	component width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3775
60e6a7d07c93 initial checkin tz parents: diff changeset	3776	component := box addCheckBox:(resources string:'literal arrays are immutable') on:immutableArrays.
60e6a7d07c93 initial checkin tz parents: diff changeset	3777	component width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3778	y2 := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3779
60e6a7d07c93 initial checkin tz parents: diff changeset	3780	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3781	box leftIndent:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	3782
60e6a7d07c93 initial checkin tz parents: diff changeset	3783	component :=box addPopUpList:(resources string:'constant folding:') on:constantFolding.
60e6a7d07c93 initial checkin tz parents: diff changeset	3784	component superView left:0.5; width:0.5.
60e6a7d07c93 initial checkin tz parents: diff changeset	3785	constantFolding selectionIndex:( constantFoldingOptions indexOf:(Compiler foldConstants) ifAbsent:1).
60e6a7d07c93 initial checkin tz parents: diff changeset	3786
60e6a7d07c93 initial checkin tz parents: diff changeset	3787	component := box addCheckBox:(resources string:'full debug info') on:fullDebugSupport.
60e6a7d07c93 initial checkin tz parents: diff changeset	3788	component left:0.5; width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3789	box yPosition:(box yPosition max:y2).
60e6a7d07c93 initial checkin tz parents: diff changeset	3790
60e6a7d07c93 initial checkin tz parents: diff changeset	3791
60e6a7d07c93 initial checkin tz parents: diff changeset	3792	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	3793
60e6a7d07c93 initial checkin tz parents: diff changeset	3794	box addCheckBox:(resources string:'warnings') on:warnings.
60e6a7d07c93 initial checkin tz parents: diff changeset	3795	"/ box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	3796	oldIndent := box leftIndent.
60e6a7d07c93 initial checkin tz parents: diff changeset	3797	box leftIndent:30.
60e6a7d07c93 initial checkin tz parents: diff changeset	3798
60e6a7d07c93 initial checkin tz parents: diff changeset	3799	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3800
60e6a7d07c93 initial checkin tz parents: diff changeset	3801	warnSTXBox := box addCheckBox:(resources string:'ST/X extensions') on:warnSTX.
60e6a7d07c93 initial checkin tz parents: diff changeset	3802	warnSTXBox width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3803
60e6a7d07c93 initial checkin tz parents: diff changeset	3804	warnUnderscoreBox := box addCheckBox:(resources string:'underscores in identifiers') on:warnUnderscore.
60e6a7d07c93 initial checkin tz parents: diff changeset	3805	warnUnderscoreBox width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3806
60e6a7d07c93 initial checkin tz parents: diff changeset	3807	warnDollarBox := box addCheckBox:(resources string:'dollars in identifiers') on:warnDollar.
60e6a7d07c93 initial checkin tz parents: diff changeset	3808	warnDollarBox width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3809
60e6a7d07c93 initial checkin tz parents: diff changeset	3810	yMax := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3811
60e6a7d07c93 initial checkin tz parents: diff changeset	3812	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3813	box leftIndent:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	3814	warnOldStyleBox := box addCheckBox:(resources string:'oldStyle assignment') on:warnOldStyle.
60e6a7d07c93 initial checkin tz parents: diff changeset	3815	warnOldStyleBox left:0.5; width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3816
60e6a7d07c93 initial checkin tz parents: diff changeset	3817	warnCommonMistakesBox := box addCheckBox:(resources string:'common mistakes') on:warnCommonMistakes.
60e6a7d07c93 initial checkin tz parents: diff changeset	3818	warnCommonMistakesBox left:0.5; width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3819
60e6a7d07c93 initial checkin tz parents: diff changeset	3820	warnCompatibilityBox := box addCheckBox:(resources string:'possible incompatibilities') on:warnCompatibility.
60e6a7d07c93 initial checkin tz parents: diff changeset	3821	warnCompatibilityBox left:0.5; width:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	3822
60e6a7d07c93 initial checkin tz parents: diff changeset	3823	box leftIndent:oldIndent.
60e6a7d07c93 initial checkin tz parents: diff changeset	3824	box yPosition:(yMax max: box yPosition).
60e6a7d07c93 initial checkin tz parents: diff changeset	3825
60e6a7d07c93 initial checkin tz parents: diff changeset	3826	box
60e6a7d07c93 initial checkin tz parents: diff changeset	3827	addHelpButtonFor:'Launcher/compilerSettings.html';
60e6a7d07c93 initial checkin tz parents: diff changeset	3828	addAbortButton;
60e6a7d07c93 initial checkin tz parents: diff changeset	3829	addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	3830
60e6a7d07c93 initial checkin tz parents: diff changeset	3831	warnEnabler value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3832	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	3833
60e6a7d07c93 initial checkin tz parents: diff changeset	3834	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3835	HistoryManager notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3836	HistoryManager fullHistoryUpdate:fullHistoryUpdate value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3837	historyLines value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3838	HistoryManager activate
60e6a7d07c93 initial checkin tz parents: diff changeset	3839	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3840	HistoryManager deactivate
60e6a7d07c93 initial checkin tz parents: diff changeset	3841	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3842	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3843	Class catchMethodRedefinitions:catchRedefs value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3844	ClassCategoryReader sourceMode:(keepSourceOptions at:keepSource selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	3845	Compiler warnings:warnings value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3846	Compiler warnSTXSpecials:warnSTX value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3847	Compiler warnOldStyleAssignment:warnOldStyle value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3848	Compiler warnUnderscoreInIdentifier:warnUnderscore value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3849	Compiler warnDollarInIdentifier:warnDollar value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3850	Compiler warnCommonMistakes:warnCommonMistakes value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3851	Compiler warnPossibleIncompatibilities:warnCompatibility value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3852	Compiler allowUnderscoreInIdentifier:allowUnderscore value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3853	Compiler allowDollarInIdentifier:allowDollar value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3854	Compiler arraysAreImmutable:immutableArrays value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3855	fullDebugSupport value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3856	Compiler lineNumberInfo:#full.
60e6a7d07c93 initial checkin tz parents: diff changeset	3857	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3858	Compiler lineNumberInfo:true
60e6a7d07c93 initial checkin tz parents: diff changeset	3859	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3860
60e6a7d07c93 initial checkin tz parents: diff changeset	3861	Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	3862	Compiler stcCompilationIncludes:stcIncludes value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3863	Compiler stcCompilationDefines:stcDefines value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3864	Compiler stcCompilationOptions:stcOptions value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3865	Compiler ccCompilationOptions:ccOptions value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3866	Compiler ccPath:cc value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3867	Compiler foldConstants:(constantFoldingOptions at:constantFolding selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	3868
60e6a7d07c93 initial checkin tz parents: diff changeset	3869	supportsJustInTimeCompilation ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3870	justInTimeCompilation value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3871	Method allInstancesDo:[:m \| m checked:false].
60e6a7d07c93 initial checkin tz parents: diff changeset	3872	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3873	ObjectMemory justInTimeCompilation:justInTimeCompilation value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3874	ObjectMemory fullSingleStepSupport:fullDebugSupport value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3875	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3876	ObjectFileLoader notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3877	stcLibraries notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3878	ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
60e6a7d07c93 initial checkin tz parents: diff changeset	3879	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3880	stcLibraryPath notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3881	ObjectFileLoader libPath:(stcLibraryPath value).
60e6a7d07c93 initial checkin tz parents: diff changeset	3882	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3883	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3884	Autoload compileLazy:compileLazy value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3885	Smalltalk loadBinaries:loadBinaries value.
60e6a7d07c93 initial checkin tz parents: diff changeset	3886	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3887	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	3888
60e6a7d07c93 initial checkin tz parents: diff changeset	3889	!
60e6a7d07c93 initial checkin tz parents: diff changeset	3890
60e6a7d07c93 initial checkin tz parents: diff changeset	3891	displaySettings
60e6a7d07c93 initial checkin tz parents: diff changeset	3892	"open a dialog on display related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	3893
60e6a7d07c93 initial checkin tz parents: diff changeset	3894	\|box listOfSizes sizeInfos
60e6a7d07c93 initial checkin tz parents: diff changeset	3895	sizes sizeNames sizeList sizeX sizeY deepIcons
60e6a7d07c93 initial checkin tz parents: diff changeset	3896	isColorMonitor useFixPalette useFixGrayPalette idx ditherStyles ditherSyms ditherList
60e6a7d07c93 initial checkin tz parents: diff changeset	3897	y component screen visual clipEncodings clipEncodingSyms clipEncodingList\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3898
60e6a7d07c93 initial checkin tz parents: diff changeset	3899	listOfSizes := resources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
60e6a7d07c93 initial checkin tz parents: diff changeset	3900	listOfSizes == #default ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3901	"/ nothing in resource file; offer at least some.
60e6a7d07c93 initial checkin tz parents: diff changeset	3902	sizeInfos := #(
60e6a7d07c93 initial checkin tz parents: diff changeset	3903	( '11.3'' (235mm x 175mm) LCD' (235 175) )
60e6a7d07c93 initial checkin tz parents: diff changeset	3904	( '17'' (325mm x 245mm)' (325 245) )
60e6a7d07c93 initial checkin tz parents: diff changeset	3905	( '19'' (340mm x 270mm)' (340 270) )
60e6a7d07c93 initial checkin tz parents: diff changeset	3906	( '20'' (350mm x 280mm)' (350 280) )
60e6a7d07c93 initial checkin tz parents: diff changeset	3907	( '21'' (365mm x 285mm)' (365 285) )
60e6a7d07c93 initial checkin tz parents: diff changeset	3908	).
60e6a7d07c93 initial checkin tz parents: diff changeset	3909	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3910	sizeInfos := resources array:listOfSizes.
60e6a7d07c93 initial checkin tz parents: diff changeset	3911	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3912	sizeNames := sizeInfos collect:[:entry \| entry at:1].
60e6a7d07c93 initial checkin tz parents: diff changeset	3913	sizes := sizeInfos collect:[:entry \| entry at:2].
60e6a7d07c93 initial checkin tz parents: diff changeset	3914
60e6a7d07c93 initial checkin tz parents: diff changeset	3915	screen := Screen current.
60e6a7d07c93 initial checkin tz parents: diff changeset	3916	visual := screen visualType.
60e6a7d07c93 initial checkin tz parents: diff changeset	3917
60e6a7d07c93 initial checkin tz parents: diff changeset	3918	isColorMonitor := screen hasColors asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3919	deepIcons := screen supportsDeepIcons asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3920	useFixPalette := screen fixColors notNil asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3921	useFixGrayPalette := screen fixGrayColors notNil asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3922
60e6a7d07c93 initial checkin tz parents: diff changeset	3923	sizeList := SelectionInList with:sizeNames.
60e6a7d07c93 initial checkin tz parents: diff changeset	3924	sizeX := screen widthInMillimeter asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3925	sizeY := screen heightInMillimeter asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	3926
60e6a7d07c93 initial checkin tz parents: diff changeset	3927	clipEncodingSyms := #(nil #iso8859 #jis #jis7 #sjis #euc #big5).
60e6a7d07c93 initial checkin tz parents: diff changeset	3928	clipEncodings := resources array:#('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5').
60e6a7d07c93 initial checkin tz parents: diff changeset	3929	clipEncodingList := SelectionInList new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3930	clipEncodingList list:clipEncodings.
60e6a7d07c93 initial checkin tz parents: diff changeset	3931	clipEncodingList selectionIndex:(clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1).
60e6a7d07c93 initial checkin tz parents: diff changeset	3932
60e6a7d07c93 initial checkin tz parents: diff changeset	3933	ditherList := SelectionInList new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3934
60e6a7d07c93 initial checkin tz parents: diff changeset	3935	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3936	ditherStyles := #('threshold' 'ordered dither' 'error diffusion').
60e6a7d07c93 initial checkin tz parents: diff changeset	3937	ditherSyms := #(threshold ordered floydSteinberg).
60e6a7d07c93 initial checkin tz parents: diff changeset	3938	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3939	visual ~~ #TrueColor ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3940	ditherStyles := #('nearest color' 'error diffusion').
60e6a7d07c93 initial checkin tz parents: diff changeset	3941	ditherSyms := #(ordered floydSteinberg).
60e6a7d07c93 initial checkin tz parents: diff changeset	3942	]
60e6a7d07c93 initial checkin tz parents: diff changeset	3943	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3944	ditherSyms notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3945	ditherList list:ditherStyles.
60e6a7d07c93 initial checkin tz parents: diff changeset	3946	ditherList selectionIndex:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
60e6a7d07c93 initial checkin tz parents: diff changeset	3947	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3948
60e6a7d07c93 initial checkin tz parents: diff changeset	3949	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	3950	box label:(resources string:'Display screen settings').
60e6a7d07c93 initial checkin tz parents: diff changeset	3951
60e6a7d07c93 initial checkin tz parents: diff changeset	3952	(box addTextLabel:(resources string:'Actual visible screen area:'))
60e6a7d07c93 initial checkin tz parents: diff changeset	3953	adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	3954
60e6a7d07c93 initial checkin tz parents: diff changeset	3955	(box addPopUpList:(resources string:'common sizes:') on:sizeList)
60e6a7d07c93 initial checkin tz parents: diff changeset	3956	label:'monitor size'.
60e6a7d07c93 initial checkin tz parents: diff changeset	3957
60e6a7d07c93 initial checkin tz parents: diff changeset	3958	idx := sizes findFirst:[:entry \|
60e6a7d07c93 initial checkin tz parents: diff changeset	3959	((entry at:1) = sizeX value)
60e6a7d07c93 initial checkin tz parents: diff changeset	3960	and:[((entry at:2) = sizeY value)]
60e6a7d07c93 initial checkin tz parents: diff changeset	3961	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3962	idx ~~ 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3963	sizeList selectionIndex:idx
60e6a7d07c93 initial checkin tz parents: diff changeset	3964	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3965
60e6a7d07c93 initial checkin tz parents: diff changeset	3966	sizeList onChangeSend:#value to:[
60e6a7d07c93 initial checkin tz parents: diff changeset	3967	\|idx\|
60e6a7d07c93 initial checkin tz parents: diff changeset	3968
60e6a7d07c93 initial checkin tz parents: diff changeset	3969	idx := sizeList selectionIndex.
60e6a7d07c93 initial checkin tz parents: diff changeset	3970	sizeX value:((sizes at:idx) at:1).
60e6a7d07c93 initial checkin tz parents: diff changeset	3971	sizeY value:((sizes at:idx) at:2).
60e6a7d07c93 initial checkin tz parents: diff changeset	3972	].
60e6a7d07c93 initial checkin tz parents: diff changeset	3973
60e6a7d07c93 initial checkin tz parents: diff changeset	3974	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	3975	component := box addTextLabel:(resources string:'screen size:').
60e6a7d07c93 initial checkin tz parents: diff changeset	3976	component width:0.3; adjust:#right; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	3977
60e6a7d07c93 initial checkin tz parents: diff changeset	3978	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3979	component := box addInputFieldOn:nil tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3980	component width:0.25; left:0.3;
60e6a7d07c93 initial checkin tz parents: diff changeset	3981	immediateAccept:false; acceptOnLeave:false;
60e6a7d07c93 initial checkin tz parents: diff changeset	3982	cursorMovementWhenUpdating:#beginOfLine;
60e6a7d07c93 initial checkin tz parents: diff changeset	3983	converter:(PrintConverter new initForInteger);
60e6a7d07c93 initial checkin tz parents: diff changeset	3984	model:sizeX.
60e6a7d07c93 initial checkin tz parents: diff changeset	3985
60e6a7d07c93 initial checkin tz parents: diff changeset	3986	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3987	component := box addTextLabel:(' x ').
60e6a7d07c93 initial checkin tz parents: diff changeset	3988	component width:0.1; left:0.55; adjust:#center; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	3989
60e6a7d07c93 initial checkin tz parents: diff changeset	3990	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3991	component := box addInputFieldOn:nil tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	3992	component width:0.25; left:0.65;
60e6a7d07c93 initial checkin tz parents: diff changeset	3993	immediateAccept:false; acceptOnLeave:false;
60e6a7d07c93 initial checkin tz parents: diff changeset	3994	cursorMovementWhenUpdating:#beginOfLine;
60e6a7d07c93 initial checkin tz parents: diff changeset	3995	converter:(PrintConverter new initForInteger);
60e6a7d07c93 initial checkin tz parents: diff changeset	3996	model:sizeY.
60e6a7d07c93 initial checkin tz parents: diff changeset	3997
60e6a7d07c93 initial checkin tz parents: diff changeset	3998	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	3999	component := box addTextLabel:('(mm)').
60e6a7d07c93 initial checkin tz parents: diff changeset	4000	component width:0.1; left:0.9; adjust:#center; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4001
60e6a7d07c93 initial checkin tz parents: diff changeset	4002	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4003	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4004	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4005
60e6a7d07c93 initial checkin tz parents: diff changeset	4006	(box addTextLabel:(resources string:'Screen: depth: %1 visual: %2 (%3)'
60e6a7d07c93 initial checkin tz parents: diff changeset	4007	with:Screen current depth printString
60e6a7d07c93 initial checkin tz parents: diff changeset	4008	with:Screen current visualType
60e6a7d07c93 initial checkin tz parents: diff changeset	4009	with:Screen current serverVendor))
60e6a7d07c93 initial checkin tz parents: diff changeset	4010	adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	4011
60e6a7d07c93 initial checkin tz parents: diff changeset	4012	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4013	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4014	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4015
60e6a7d07c93 initial checkin tz parents: diff changeset	4016	box addCheckBox:(resources string:'color monitor') on:isColorMonitor.
60e6a7d07c93 initial checkin tz parents: diff changeset	4017
60e6a7d07c93 initial checkin tz parents: diff changeset	4018	visual == #PseudoColor ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4019	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4020	component := box addCheckBox:(resources string:'use fix color palette %1' with:'(4x8x4)') on:useFixPalette.
60e6a7d07c93 initial checkin tz parents: diff changeset	4021
60e6a7d07c93 initial checkin tz parents: diff changeset	4022	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4023	component := box addCheckBox:(resources string:'use fix gray color palette %1' with:'(32)') on:useFixGrayPalette.
60e6a7d07c93 initial checkin tz parents: diff changeset	4024	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4025
60e6a7d07c93 initial checkin tz parents: diff changeset	4026	ditherSyms notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4027	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4028	component := box addPopUpList:(resources string:'image display:') on:ditherList.
60e6a7d07c93 initial checkin tz parents: diff changeset	4029	component defaultLabel:'image display'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4030	component superView horizontalLayout:#leftSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4031	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4032
60e6a7d07c93 initial checkin tz parents: diff changeset	4033	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4034	box addCheckBox:(resources string:'allow colored/grayscale icons') on:deepIcons.
60e6a7d07c93 initial checkin tz parents: diff changeset	4035
60e6a7d07c93 initial checkin tz parents: diff changeset	4036	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4037	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4038	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4039
60e6a7d07c93 initial checkin tz parents: diff changeset	4040	component := box addPopUpList:(resources string:'clipBoard encoding:') on:clipEncodingList.
60e6a7d07c93 initial checkin tz parents: diff changeset	4041	component superView horizontalLayout:#leftSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4042
60e6a7d07c93 initial checkin tz parents: diff changeset	4043	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4044	addHelpButtonFor:'Launcher/screenSettings.html';
60e6a7d07c93 initial checkin tz parents: diff changeset	4045	addAbortButton; addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	4046	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	4047
60e6a7d07c93 initial checkin tz parents: diff changeset	4048	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4049	Image flushDeviceImages.
60e6a7d07c93 initial checkin tz parents: diff changeset	4050
60e6a7d07c93 initial checkin tz parents: diff changeset	4051	screen visualType == #PseudoColor ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4052	useFixPalette value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4053	Color colorAllocationFailSignal handle:[:ex \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4054	self warn:(resources string:'Could not allocate colors.').
60e6a7d07c93 initial checkin tz parents: diff changeset	4055	] do:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4056	Color getColorsRed:4 green:8 blue:4 on:screen
60e6a7d07c93 initial checkin tz parents: diff changeset	4057	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4058	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4059	screen releaseFixColors
60e6a7d07c93 initial checkin tz parents: diff changeset	4060	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4061
60e6a7d07c93 initial checkin tz parents: diff changeset	4062	useFixGrayPalette value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4063	Color colorAllocationFailSignal handle:[:ex \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4064	self warn:(resources string:'Could not allocate colors.').
60e6a7d07c93 initial checkin tz parents: diff changeset	4065	] do:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4066	Color getGrayColors:32 on:screen
60e6a7d07c93 initial checkin tz parents: diff changeset	4067	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4068	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4069	screen releaseFixGrayColors
60e6a7d07c93 initial checkin tz parents: diff changeset	4070	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4071	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4072	screen hasColors:isColorMonitor value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4073	screen widthInMillimeter:sizeX value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4074	screen heightInMillimeter:sizeY value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4075
60e6a7d07c93 initial checkin tz parents: diff changeset	4076	screen supportsDeepIcons:deepIcons value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4077	ditherSyms notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4078	Image ditherAlgorithm:(ditherSyms at:ditherList selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	4079	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4080
60e6a7d07c93 initial checkin tz parents: diff changeset	4081	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4082	View defaultStyle:(View defaultStyle).
60e6a7d07c93 initial checkin tz parents: diff changeset	4083	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4084
60e6a7d07c93 initial checkin tz parents: diff changeset	4085	screen clipBoardEncoding:(clipEncodingSyms at:clipEncodingList selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	4086	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4087	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	4088
60e6a7d07c93 initial checkin tz parents: diff changeset	4089	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4090
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	4091	fontBoxForEncoding:encodingMatch
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4092	"open a fontBox, showing fonts which match some encoding
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4093	(used when changing to japanese ...)"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4094
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4095	\|box y b
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4096	labelDef buttonDef listDef menuDef textDef
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4097	models labels allOfThem filter\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4098
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4099	encodingMatch notNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4100	filter := [:f \| f encoding notNil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4101	and:[encodingMatch match:f encoding]].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4102	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4103
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4104	models := OrderedCollection new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4105	labels := OrderedCollection new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4106
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4107	models add:(allOfThem := nil asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4108	models add:(labelDef := Label defaultFont asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4109	models add:(buttonDef := Button defaultFont asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4110	models add:(listDef := SelectionInListView defaultFont asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4111	models add:(menuDef := MenuView defaultFont asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4112	models add:(textDef := TextView defaultFont asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4113
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4114	box := Dialog new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4115	box label:(resources string:'Font settings').
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4116
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4117	models
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4118	with:(resources array:#('all' 'labels' 'buttons' 'lists' 'menus' 'edit text'))
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4119	do:[:model :title \|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4120	\|y2 lbl f i\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4121
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4122	f := model value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4123
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4124	(box addTextLabel:title) adjust:#left.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4125
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4126	y := box yPosition.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4127	b := box addComponent:(Button label:(resources string:'change ...')) tabable:true.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4128	b relativeExtent:nil; extent:(b preferredExtent).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4129	y2 := box yPosition.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4130	box yPosition:y.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4131	i := box leftIndent.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4132	box leftIndent:(b widthIncludingBorder + View viewSpacing).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4133	(lbl := box addTextLabel:'')
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4134	adjust:#left;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4135	font:(model value);
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4136	labelChannel:(BlockValue
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4137	with:[:v \| \|f\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4138	f := v value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4139	f isNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4140	''
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4141	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4142	f userFriendlyName
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4143	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4144	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4145	argument:model).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4146	labels add:lbl.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4147
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4148	box leftIndent:i.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4149	box yPosition:(box yPosition max:y2).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4150	box addVerticalSpace.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4151	box addHorizontalLine.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4152	box addVerticalSpace.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4153
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4154	b action:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4155	\|f\|
1429 aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	4156
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	4157	f := FontPanel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4158	fontFromUserInitial:(model value)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4159	title:(resources string:'font for %1' with:title)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4160	filter:filter.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4161	f notNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4162	model == allOfThem ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4163	models do:[:m \| m value:f].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4164	labels do:[:l \| l font:f]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4165	] ifFalse:[
1429 aa6ce97097dc NewLauncher has got its own (global) active help tz parents: 1424 diff changeset	4166	model value:f.
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	4167	lbl font:f.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4168	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4169	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4170	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4171	model == allOfThem ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4172	box addVerticalSpace
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4173	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4174	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4175
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4176	box addAbortButton; addOkButton.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4177	(box addButton:(Button label:(resources string:'defaults')) before:nil)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4178	action:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4179	"/ fetch defaults
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4180	View updateAllStyleCaches.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4181	labelDef value: Label defaultFont.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4182	buttonDef value: Button defaultFont.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4183	listDef value: SelectionInListView defaultFont.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4184	menuDef value: MenuView defaultFont.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4185	textDef value: TextView defaultFont.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4186	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4187
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4188	box open.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4189	box accepted ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4190	Label defaultFont:labelDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4191	Button defaultFont:buttonDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4192	Toggle defaultFont:buttonDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4193	SelectionInListView defaultFont:listDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4194	MenuView defaultFont:menuDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4195	PullDownMenu defaultFont:menuDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4196	TextView defaultFont:textDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4197	EditTextView defaultFont:textDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4198	CodeView defaultFont:textDef value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4199	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4200	box destroy.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4201	^ box accepted
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4202
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4203
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4204	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	4205
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	4206	fontSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	4207	"open a dialog on font related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4208
60e6a7d07c93 initial checkin tz parents: diff changeset	4209	(self fontBoxForEncoding:nil) ifTrue:[self reOpen]
60e6a7d07c93 initial checkin tz parents: diff changeset	4210
60e6a7d07c93 initial checkin tz parents: diff changeset	4211	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4212
60e6a7d07c93 initial checkin tz parents: diff changeset	4213	keyboardSetting
60e6a7d07c93 initial checkin tz parents: diff changeset	4214	"open a dialog on keyboard related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4215
60e6a7d07c93 initial checkin tz parents: diff changeset	4216	\|mappings listOfRawKeys listOfFunctions
60e6a7d07c93 initial checkin tz parents: diff changeset	4217	box l
60e6a7d07c93 initial checkin tz parents: diff changeset	4218	list1 list2 listView1 listView2
60e6a7d07c93 initial checkin tz parents: diff changeset	4219	frame selectionForwarder macroForwarder macroTextView y\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4220
60e6a7d07c93 initial checkin tz parents: diff changeset	4221	mappings := Screen current keyboardMap.
60e6a7d07c93 initial checkin tz parents: diff changeset	4222
60e6a7d07c93 initial checkin tz parents: diff changeset	4223	listOfRawKeys := (mappings keys asArray collect:[:key \| key asString]) sort.
60e6a7d07c93 initial checkin tz parents: diff changeset	4224	listOfFunctions := (mappings values asSet asArray collect:[:key \| key asString]) sort.
60e6a7d07c93 initial checkin tz parents: diff changeset	4225
60e6a7d07c93 initial checkin tz parents: diff changeset	4226	selectionForwarder := Plug new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4227	selectionForwarder respondTo:#showFunction
60e6a7d07c93 initial checkin tz parents: diff changeset	4228	with:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4229	\|raw\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4230	raw := list1 selection.
60e6a7d07c93 initial checkin tz parents: diff changeset	4231	list2 retractInterestsFor:selectionForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4232	list2 selection:(mappings at:raw asSymbol) asString.
60e6a7d07c93 initial checkin tz parents: diff changeset	4233	list2 onChangeSend:#showRawKey to:selectionForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4234	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4235	selectionForwarder respondTo:#showRawKey
60e6a7d07c93 initial checkin tz parents: diff changeset	4236	with:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4237	\|f raw\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4238
60e6a7d07c93 initial checkin tz parents: diff changeset	4239	f := list2 selection.
60e6a7d07c93 initial checkin tz parents: diff changeset	4240	list1 retractInterestsFor:selectionForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4241	raw := mappings keyAtValue:f asString.
60e6a7d07c93 initial checkin tz parents: diff changeset	4242	raw isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4243	raw := mappings keyAtValue:f first.
60e6a7d07c93 initial checkin tz parents: diff changeset	4244	raw isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4245	raw := mappings keyAtValue:f asSymbol.
60e6a7d07c93 initial checkin tz parents: diff changeset	4246	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4247	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4248	list1 selection:raw.
60e6a7d07c93 initial checkin tz parents: diff changeset	4249	list1 onChangeSend:#showFunction to:selectionForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4250	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4251
60e6a7d07c93 initial checkin tz parents: diff changeset	4252	macroForwarder := [
60e6a7d07c93 initial checkin tz parents: diff changeset	4253	\|f macro indent\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4254	f := list2 selection.
60e6a7d07c93 initial checkin tz parents: diff changeset	4255	(f startsWith:'Cmd') ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4256	f := f copyFrom:4
60e6a7d07c93 initial checkin tz parents: diff changeset	4257	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4258	macro := FunctionKeySequences at:(f asSymbol) ifAbsent:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	4259	macro notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4260	macro := macro asStringCollection.
60e6a7d07c93 initial checkin tz parents: diff changeset	4261	indent := macro
60e6a7d07c93 initial checkin tz parents: diff changeset	4262	inject:99999 into:[:min :element \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4263	\|stripped\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4264
60e6a7d07c93 initial checkin tz parents: diff changeset	4265	stripped := element withoutLeadingSeparators.
60e6a7d07c93 initial checkin tz parents: diff changeset	4266	stripped size == 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4267	min
60e6a7d07c93 initial checkin tz parents: diff changeset	4268	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4269	min min:(element size - stripped size)
60e6a7d07c93 initial checkin tz parents: diff changeset	4270	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4271	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4272	indent ~~ 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4273	macro := macro collect:[:line \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4274	line size > indent ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4275	line copyFrom:indent+1
60e6a7d07c93 initial checkin tz parents: diff changeset	4276	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4277	line
60e6a7d07c93 initial checkin tz parents: diff changeset	4278	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4279	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4280	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4281	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4282	macroTextView contents:macro.
60e6a7d07c93 initial checkin tz parents: diff changeset	4283	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4284
60e6a7d07c93 initial checkin tz parents: diff changeset	4285	list1 := SelectionInList with:listOfRawKeys.
60e6a7d07c93 initial checkin tz parents: diff changeset	4286	list1 onChangeSend:#showFunction to:selectionForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4287
60e6a7d07c93 initial checkin tz parents: diff changeset	4288	list2 := SelectionInList with:listOfFunctions.
60e6a7d07c93 initial checkin tz parents: diff changeset	4289	list2 onChangeSend:#showRawKey to:selectionForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4290	list2 onChangeSend:#value to:macroForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4291
60e6a7d07c93 initial checkin tz parents: diff changeset	4292	box := Dialog new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4293	box label:(resources string:'Keyboard mappings').
60e6a7d07c93 initial checkin tz parents: diff changeset	4294
60e6a7d07c93 initial checkin tz parents: diff changeset	4295	l := box addTextLabel:(resources string:'KEY_MSG') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	4296	l adjust:#left; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4297
60e6a7d07c93 initial checkin tz parents: diff changeset	4298	frame := View new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4299	frame extent:300 @ 300.
60e6a7d07c93 initial checkin tz parents: diff changeset	4300	frame borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4301
60e6a7d07c93 initial checkin tz parents: diff changeset	4302	listView1 := ScrollableView for:SelectionInListView in:frame.
60e6a7d07c93 initial checkin tz parents: diff changeset	4303	listView1 model:list1.
60e6a7d07c93 initial checkin tz parents: diff changeset	4304	listView1 origin:0.0@0.0 corner:0.5@1.0; inset:2.
60e6a7d07c93 initial checkin tz parents: diff changeset	4305
60e6a7d07c93 initial checkin tz parents: diff changeset	4306	listView2 := ScrollableView for:SelectionInListView in:frame.
60e6a7d07c93 initial checkin tz parents: diff changeset	4307	listView2 model:list2.
60e6a7d07c93 initial checkin tz parents: diff changeset	4308	listView2 origin:0.5@0.0 corner:1.0@1.0; inset:2.
60e6a7d07c93 initial checkin tz parents: diff changeset	4309
60e6a7d07c93 initial checkin tz parents: diff changeset	4310	frame topInset:box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4311	box addComponent:frame withExtent:350@200.
60e6a7d07c93 initial checkin tz parents: diff changeset	4312	box makeTabable:listView1.
60e6a7d07c93 initial checkin tz parents: diff changeset	4313	box makeTabable:listView2.
60e6a7d07c93 initial checkin tz parents: diff changeset	4314	frame origin:0.0@0.0 corner:1.0@0.6.
60e6a7d07c93 initial checkin tz parents: diff changeset	4315
60e6a7d07c93 initial checkin tz parents: diff changeset	4316	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4317
60e6a7d07c93 initial checkin tz parents: diff changeset	4318	l := box addTextLabel:(resources string:'Macro text (if any):') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	4319	l adjust:#left; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4320	l origin:0.0@0.6 corner:1.0@0.6.
60e6a7d07c93 initial checkin tz parents: diff changeset	4321	l topInset:(View viewSpacing).
60e6a7d07c93 initial checkin tz parents: diff changeset	4322	l bottomInset:(l preferredExtent y negated - View viewSpacing).
60e6a7d07c93 initial checkin tz parents: diff changeset	4323
60e6a7d07c93 initial checkin tz parents: diff changeset	4324	macroTextView := HVScrollableView for:TextView miniScroller:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4325	box addComponent:macroTextView tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4326	macroTextView origin:0.0@0.6 corner:1.0@1.0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4327	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4328
60e6a7d07c93 initial checkin tz parents: diff changeset	4329	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4330	addHelpButtonFor:'Launcher/keyboardSetting.html';
60e6a7d07c93 initial checkin tz parents: diff changeset	4331	"addAbortButton;"
60e6a7d07c93 initial checkin tz parents: diff changeset	4332	addOkButtonLabelled:(resources string:'dismiss').
60e6a7d07c93 initial checkin tz parents: diff changeset	4333
60e6a7d07c93 initial checkin tz parents: diff changeset	4334	macroTextView topInset:(l preferredExtent y + 5).
60e6a7d07c93 initial checkin tz parents: diff changeset	4335	macroTextView bottomInset:(box preferredExtent y - y).
60e6a7d07c93 initial checkin tz parents: diff changeset	4336
60e6a7d07c93 initial checkin tz parents: diff changeset	4337	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	4338
60e6a7d07c93 initial checkin tz parents: diff changeset	4339	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4340	"no action yet ..."
60e6a7d07c93 initial checkin tz parents: diff changeset	4341	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4342	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	4343
60e6a7d07c93 initial checkin tz parents: diff changeset	4344
60e6a7d07c93 initial checkin tz parents: diff changeset	4345	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4346
60e6a7d07c93 initial checkin tz parents: diff changeset	4347	languageSetting
60e6a7d07c93 initial checkin tz parents: diff changeset	4348	"open a dialog on language related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4349
60e6a7d07c93 initial checkin tz parents: diff changeset	4350	\|listOfLanguages translatedLanguages switch box languageList flags\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4351
60e6a7d07c93 initial checkin tz parents: diff changeset	4352	"
60e6a7d07c93 initial checkin tz parents: diff changeset	4353	get list of supported languages from the launchers resources ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4354	"
60e6a7d07c93 initial checkin tz parents: diff changeset	4355	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
60e6a7d07c93 initial checkin tz parents: diff changeset	4356	listOfLanguages := listOfLanguages asOrderedCollection.
60e6a7d07c93 initial checkin tz parents: diff changeset	4357	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4358	item := resources at:lang.
60e6a7d07c93 initial checkin tz parents: diff changeset	4359	item isString ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4360	item
60e6a7d07c93 initial checkin tz parents: diff changeset	4361	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4362	item at:1
60e6a7d07c93 initial checkin tz parents: diff changeset	4363	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4364	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4365	flags := listOfLanguages collect:[:lang \| \|item\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4366	item := resources at:lang.
60e6a7d07c93 initial checkin tz parents: diff changeset	4367	item isArray ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4368	item at:2
60e6a7d07c93 initial checkin tz parents: diff changeset	4369	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4370	nil
60e6a7d07c93 initial checkin tz parents: diff changeset	4371	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4372	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4373	flags := flags collect:[:nm \| nm notNil ifTrue:[Image fromFile:nm] ifFalse:[nil]].
60e6a7d07c93 initial checkin tz parents: diff changeset	4374
60e6a7d07c93 initial checkin tz parents: diff changeset	4375	languageList := translatedLanguages with:flags collect:[:lang :flag \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4376	LabelAndIcon icon:flag string:lang.
60e6a7d07c93 initial checkin tz parents: diff changeset	4377	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4378
60e6a7d07c93 initial checkin tz parents: diff changeset	4379	box := ListSelectionBox title:(resources string:'LANG_MSG') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	4380	box label:(resources string:'Language selection').
60e6a7d07c93 initial checkin tz parents: diff changeset	4381	box list:languageList.
60e6a7d07c93 initial checkin tz parents: diff changeset	4382	box initialText:(Language).
60e6a7d07c93 initial checkin tz parents: diff changeset	4383	box action:[:newLanguage \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4384	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4385	\|fontPref idx language oldLanguage enc answer matchingFonts\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4386
60e6a7d07c93 initial checkin tz parents: diff changeset	4387	idx := translatedLanguages indexOf:newLanguage withoutSeparators.
60e6a7d07c93 initial checkin tz parents: diff changeset	4388	idx ~~ 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4389	language := listOfLanguages at:idx
60e6a7d07c93 initial checkin tz parents: diff changeset	4390	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4391	language := newLanguage
60e6a7d07c93 initial checkin tz parents: diff changeset	4392	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4393
60e6a7d07c93 initial checkin tz parents: diff changeset	4394	"/ check if the new language needs a differently encoded font;
60e6a7d07c93 initial checkin tz parents: diff changeset	4395	"/ ask user to switch font and allow cancellation.
60e6a7d07c93 initial checkin tz parents: diff changeset	4396	"/ Otherwise, you are left with unreadable menu & button items ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4397
60e6a7d07c93 initial checkin tz parents: diff changeset	4398	oldLanguage := Smalltalk language.
60e6a7d07c93 initial checkin tz parents: diff changeset	4399	Smalltalk language:language asSymbol.
60e6a7d07c93 initial checkin tz parents: diff changeset	4400	ResourcePack flushCachedResourcePacks.
60e6a7d07c93 initial checkin tz parents: diff changeset	4401	fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4402	Smalltalk language:oldLanguage.
60e6a7d07c93 initial checkin tz parents: diff changeset	4403
60e6a7d07c93 initial checkin tz parents: diff changeset	4404	switch := true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4405	enc := MenuView defaultFont encoding.
60e6a7d07c93 initial checkin tz parents: diff changeset	4406	(fontPref match:enc) ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4407	"/ look if there is one at all.
60e6a7d07c93 initial checkin tz parents: diff changeset	4408	matchingFonts := Screen current listOfAvailableFonts select:[:f \| fontPref match:f encoding].
60e6a7d07c93 initial checkin tz parents: diff changeset	4409	matchingFonts size == 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4410	(Dialog
60e6a7d07c93 initial checkin tz parents: diff changeset	4411	confirm:(resources
60e6a7d07c93 initial checkin tz parents: diff changeset	4412	string:'your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
60e6a7d07c93 initial checkin tz parents: diff changeset	4413	with:fontPref) withCRs)
60e6a7d07c93 initial checkin tz parents: diff changeset	4414	ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4415	switch := false
60e6a7d07c93 initial checkin tz parents: diff changeset	4416	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4417	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4418	answer := Dialog
60e6a7d07c93 initial checkin tz parents: diff changeset	4419	confirmWithCancel:(resources
60e6a7d07c93 initial checkin tz parents: diff changeset	4420	string:'menu font is not %1-encoded.\\Change it ?'
60e6a7d07c93 initial checkin tz parents: diff changeset	4421	with:fontPref) withCRs
60e6a7d07c93 initial checkin tz parents: diff changeset	4422	labels:(resources
60e6a7d07c93 initial checkin tz parents: diff changeset	4423	array:#('cancel' 'no' 'yes'))
60e6a7d07c93 initial checkin tz parents: diff changeset	4424	default:3.
60e6a7d07c93 initial checkin tz parents: diff changeset	4425	answer isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4426	switch := false
60e6a7d07c93 initial checkin tz parents: diff changeset	4427	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4428	answer ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4429	switch := (self fontBoxForEncoding:fontPref)
60e6a7d07c93 initial checkin tz parents: diff changeset	4430	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4431	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4432	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4433	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4434
60e6a7d07c93 initial checkin tz parents: diff changeset	4435	switch ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4436	transcript showCR:'change language to ' , newLanguage , ' ...'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4437	Smalltalk language:language asSymbol.
60e6a7d07c93 initial checkin tz parents: diff changeset	4438	ResourcePack flushCachedResourcePacks
60e6a7d07c93 initial checkin tz parents: diff changeset	4439	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4440	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4441	switch ifTrue:[
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	4442	self reOpen.
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	4443	DebugView newDebugger.
60e6a7d07c93 initial checkin tz parents: diff changeset	4444	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4445	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4446	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4447	addHelpButtonFor:'Launcher/languageSetting.html'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4448	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	4449	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	4450
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	4451	"Modified: / 5.2.1998 / 20:02:00 / cg"
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	4452	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4453
60e6a7d07c93 initial checkin tz parents: diff changeset	4454	memorySettings
60e6a7d07c93 initial checkin tz parents: diff changeset	4455	"open a dialog on objectMemory related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4456
60e6a7d07c93 initial checkin tz parents: diff changeset	4457	\|box igcLimit igcFreeLimit igcFreeAmount newSpaceSize
60e6a7d07c93 initial checkin tz parents: diff changeset	4458	compressLimit
60e6a7d07c93 initial checkin tz parents: diff changeset	4459	oldIncr component fields codeLimit codeTrigger stackLimit\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4460
60e6a7d07c93 initial checkin tz parents: diff changeset	4461	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4462	"/ extract relevant system settings ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4463	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4464	igcLimit := ObjectMemory incrementalGCLimit asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4465	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4466	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4467	newSpaceSize := ObjectMemory newSpaceSize asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4468	oldIncr := ObjectMemory oldSpaceIncrement asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4469	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4470	codeLimit := ObjectMemory dynamicCodeLimit asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4471	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4472	stackLimit := Process defaultMaximumStackSize asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4473
60e6a7d07c93 initial checkin tz parents: diff changeset	4474	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4475	"/ create a box on those values ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4476	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4477	fields := OrderedCollection new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4478
60e6a7d07c93 initial checkin tz parents: diff changeset	4479	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4480	box label:(resources string:'Memory manager settings').
60e6a7d07c93 initial checkin tz parents: diff changeset	4481
60e6a7d07c93 initial checkin tz parents: diff changeset	4482	(box addTextLabel:'Warning - invalid settings may result in failures or poor performance
60e6a7d07c93 initial checkin tz parents: diff changeset	4483
60e6a7d07c93 initial checkin tz parents: diff changeset	4484	You have been warned.') adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	4485	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4486
60e6a7d07c93 initial checkin tz parents: diff changeset	4487	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4488	addLabelledInputField:(resources string:'size of newSpace:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4489	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4490	on:nil "/ newSpaceSize
60e6a7d07c93 initial checkin tz parents: diff changeset	4491	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4492	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4493	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4494	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4495	component model:newSpaceSize.
60e6a7d07c93 initial checkin tz parents: diff changeset	4496	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4497
60e6a7d07c93 initial checkin tz parents: diff changeset	4498	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4499
60e6a7d07c93 initial checkin tz parents: diff changeset	4500
60e6a7d07c93 initial checkin tz parents: diff changeset	4501	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4502	addLabelledInputField:(resources string:'incremental GC allocation trigger:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4503	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4504	on:nil "/ igcLimit
60e6a7d07c93 initial checkin tz parents: diff changeset	4505	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4506	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4507	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4508	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4509	component model:igcLimit.
60e6a7d07c93 initial checkin tz parents: diff changeset	4510	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4511
60e6a7d07c93 initial checkin tz parents: diff changeset	4512	box addTextLabel:'(start IGC whenever this amount has been allocated)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4513	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4514
60e6a7d07c93 initial checkin tz parents: diff changeset	4515	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4516	addLabelledInputField:(resources string:'incremental GC freespace trigger:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4517	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4518	on:nil "/ igcFreeLimit
60e6a7d07c93 initial checkin tz parents: diff changeset	4519	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4520	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4521	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4522	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4523	component model:igcFreeLimit.
60e6a7d07c93 initial checkin tz parents: diff changeset	4524	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4525
60e6a7d07c93 initial checkin tz parents: diff changeset	4526	box addTextLabel:'(start IGC whenever freespace drops below this)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4527	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4528
60e6a7d07c93 initial checkin tz parents: diff changeset	4529	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4530	addLabelledInputField:(resources string:'incremental GC amount:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4531	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4532	on:nil "/ igcFreeAmount
60e6a7d07c93 initial checkin tz parents: diff changeset	4533	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4534	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4535	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4536	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4537	component model:igcFreeAmount.
60e6a7d07c93 initial checkin tz parents: diff changeset	4538	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4539
60e6a7d07c93 initial checkin tz parents: diff changeset	4540	box addTextLabel:'(try to keep this amount for peak requests)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4541	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4542
60e6a7d07c93 initial checkin tz parents: diff changeset	4543	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4544	addLabelledInputField:(resources string:'oldspace increment:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4545	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4546	on:nil "/ oldIncr
60e6a7d07c93 initial checkin tz parents: diff changeset	4547	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4548	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4549	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4550	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4551	component model:oldIncr.
60e6a7d07c93 initial checkin tz parents: diff changeset	4552	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4553
60e6a7d07c93 initial checkin tz parents: diff changeset	4554	box addTextLabel:'(increase oldSpace in chunks of this size)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4555	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4556
60e6a7d07c93 initial checkin tz parents: diff changeset	4557	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4558	addLabelledInputField:(resources string:'oldspace compress limit:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4559	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4560	on:nil "/ compressLimit
60e6a7d07c93 initial checkin tz parents: diff changeset	4561	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4562	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4563	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4564	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4565	component model:compressLimit.
60e6a7d07c93 initial checkin tz parents: diff changeset	4566	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4567
60e6a7d07c93 initial checkin tz parents: diff changeset	4568	box addTextLabel:'(suppress compressing GC if more memory is in use)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4569	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4570
60e6a7d07c93 initial checkin tz parents: diff changeset	4571	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4572	addLabelledInputField:(resources string:'stack limit:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4573	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4574	on:nil
60e6a7d07c93 initial checkin tz parents: diff changeset	4575	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4576	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4577	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4578	component converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4579	component model:stackLimit.
60e6a7d07c93 initial checkin tz parents: diff changeset	4580	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4581
60e6a7d07c93 initial checkin tz parents: diff changeset	4582	box addTextLabel:'(trigger recursionInterrupt if more stack is used by a process)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4583	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4584
60e6a7d07c93 initial checkin tz parents: diff changeset	4585	ObjectMemory supportsJustInTimeCompilation ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4586	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4587	addLabelledInputField:(resources string:'dynamic code limit:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4588	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4589	on:nil
60e6a7d07c93 initial checkin tz parents: diff changeset	4590	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4591	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4592	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4593	component converter:(PrintConverter new initForNumberOrNil).
60e6a7d07c93 initial checkin tz parents: diff changeset	4594	component model:codeLimit.
60e6a7d07c93 initial checkin tz parents: diff changeset	4595	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4596
60e6a7d07c93 initial checkin tz parents: diff changeset	4597	box addTextLabel:'(flush dynamic compiled code to stay within this limit)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4598	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4599
60e6a7d07c93 initial checkin tz parents: diff changeset	4600	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4601	addLabelledInputField:(resources string:'dynamic code GC trigger:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4602	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4603	on:nil
60e6a7d07c93 initial checkin tz parents: diff changeset	4604	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4605	separateAtX:0.7.
60e6a7d07c93 initial checkin tz parents: diff changeset	4606	component acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4607	component converter:(PrintConverter new initForNumberOrNil).
60e6a7d07c93 initial checkin tz parents: diff changeset	4608	component model:codeTrigger.
60e6a7d07c93 initial checkin tz parents: diff changeset	4609	fields add:component.
60e6a7d07c93 initial checkin tz parents: diff changeset	4610
60e6a7d07c93 initial checkin tz parents: diff changeset	4611	box addTextLabel:'(start incremental GC whenever this amount of code has been allocated)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4612	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4613	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4614
60e6a7d07c93 initial checkin tz parents: diff changeset	4615	box addAbortButton; addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	4616	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4617	addHelpButtonFor:'Launcher/memorySettings.html'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4618
60e6a7d07c93 initial checkin tz parents: diff changeset	4619	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4620	"/ show the box ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4621	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4622	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	4623
60e6a7d07c93 initial checkin tz parents: diff changeset	4624	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4625	"/ update system settings
60e6a7d07c93 initial checkin tz parents: diff changeset	4626	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4627	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4628	fields do:[:comp \| comp accept].
60e6a7d07c93 initial checkin tz parents: diff changeset	4629
60e6a7d07c93 initial checkin tz parents: diff changeset	4630	igcFreeAmount value ~~ ObjectMemory freeSpaceGCAmount ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4631	ObjectMemory freeSpaceGCAmount:igcFreeAmount value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4632	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4633	igcFreeLimit value ~~ ObjectMemory freeSpaceGCLimit ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4634	ObjectMemory freeSpaceGCLimit:igcFreeLimit value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4635	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4636	igcLimit value ~~ ObjectMemory incrementalGCLimit ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4637	ObjectMemory incrementalGCLimit:igcLimit value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4638	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4639	newSpaceSize value ~~ ObjectMemory newSpaceSize ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4640	ObjectMemory newSpaceSize:newSpaceSize value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4641	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4642	oldIncr value ~~ ObjectMemory oldSpaceIncrement ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4643	ObjectMemory oldSpaceIncrement:oldIncr value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4644	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4645	stackLimit value ~~ Process defaultMaximumStackSize ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4646	Process defaultMaximumStackSize:stackLimit value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4647	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4648	ObjectMemory oldSpaceCompressLimit:compressLimit value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4649	ObjectMemory dynamicCodeLimit:codeLimit value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4650	ObjectMemory dynamicCodeGCTrigger:codeTrigger value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4651	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4652	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	4653	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4654
60e6a7d07c93 initial checkin tz parents: diff changeset	4655	messageSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	4656	"open a dialog on infoMessage related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4657
60e6a7d07c93 initial checkin tz parents: diff changeset	4658	\|box vmInfo vmErrors displayErrors classInfos\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4659
60e6a7d07c93 initial checkin tz parents: diff changeset	4660	vmInfo := ObjectMemory infoPrinting asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4661	vmErrors := ObjectMemory debugPrinting asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4662	classInfos := Object infoPrinting asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4663	displayErrors := DeviceWorkstation errorPrinting asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4664
60e6a7d07c93 initial checkin tz parents: diff changeset	4665	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4666	box label:(resources string:'Messages').
60e6a7d07c93 initial checkin tz parents: diff changeset	4667
60e6a7d07c93 initial checkin tz parents: diff changeset	4668	box addCheckBox:(resources string:'VM info messages') on:vmInfo.
60e6a7d07c93 initial checkin tz parents: diff changeset	4669	box addCheckBox:(resources string:'VM error messages') on:vmErrors.
60e6a7d07c93 initial checkin tz parents: diff changeset	4670	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4671
60e6a7d07c93 initial checkin tz parents: diff changeset	4672	box addCheckBox:(resources string:'Display error messages (Xlib, Xtlib ...)') on:displayErrors.
60e6a7d07c93 initial checkin tz parents: diff changeset	4673	box addCheckBox:(resources string:'Other info messages') on:classInfos.
60e6a7d07c93 initial checkin tz parents: diff changeset	4674
60e6a7d07c93 initial checkin tz parents: diff changeset	4675	box addHelpButtonFor:'Launcher/messageSettings.html'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4676	box addAbortButton; addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	4677	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	4678
60e6a7d07c93 initial checkin tz parents: diff changeset	4679	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4680	ObjectMemory infoPrinting:vmInfo value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4681	ObjectMemory debugPrinting:vmErrors value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4682	Object infoPrinting:classInfos value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4683	DeviceWorkstation errorPrinting:displayErrors value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4684	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4685	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	4686
60e6a7d07c93 initial checkin tz parents: diff changeset	4687
60e6a7d07c93 initial checkin tz parents: diff changeset	4688	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4689
60e6a7d07c93 initial checkin tz parents: diff changeset	4690	miscSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	4691	"open a dialog on misc other settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4692
60e6a7d07c93 initial checkin tz parents: diff changeset	4693	\|box shadows takeFocus returnFocus
60e6a7d07c93 initial checkin tz parents: diff changeset	4694	hostNameInLabel showAccelerators
60e6a7d07c93 initial checkin tz parents: diff changeset	4695	preemptive hostNameInLabelHolder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4696
60e6a7d07c93 initial checkin tz parents: diff changeset	4697	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4698	"/ extract relevant system settings ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4699	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4700	shadows := PopUpView shadows asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4701	hostNameInLabel := StandardSystemView includeHostNameInLabel.
60e6a7d07c93 initial checkin tz parents: diff changeset	4702	hostNameInLabelHolder := hostNameInLabel asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4703	returnFocus := StandardSystemView returnFocusWhenClosingModalBoxes asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4704	takeFocus := StandardSystemView takeFocusWhenMapped asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4705
60e6a7d07c93 initial checkin tz parents: diff changeset	4706	showAccelerators := MenuView showAcceleratorKeys asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4707	preemptive := Processor isTimeSlicing asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4708
60e6a7d07c93 initial checkin tz parents: diff changeset	4709	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4710	"/ create a box on those values ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4711	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4712	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4713	box label:(resources string:'Other settings').
60e6a7d07c93 initial checkin tz parents: diff changeset	4714
60e6a7d07c93 initial checkin tz parents: diff changeset	4715	box addCheckBox:(resources string:'shadows under popup views') on:shadows.
60e6a7d07c93 initial checkin tz parents: diff changeset	4716	box addCheckBox:(resources string:'boxes return focus to previously active view') on:returnFocus.
60e6a7d07c93 initial checkin tz parents: diff changeset	4717	box addCheckBox:(resources string:'views catch focus when mapped') on:takeFocus.
60e6a7d07c93 initial checkin tz parents: diff changeset	4718	box addCheckBox:(resources string:'hostname in window labels') on:hostNameInLabelHolder.
60e6a7d07c93 initial checkin tz parents: diff changeset	4719	box addCheckBox:(resources string:'show accelerator keys in menus') on:showAccelerators.
60e6a7d07c93 initial checkin tz parents: diff changeset	4720
60e6a7d07c93 initial checkin tz parents: diff changeset	4721	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4722
60e6a7d07c93 initial checkin tz parents: diff changeset	4723	box addCheckBox:(resources string:'preemptive scheduling') on:preemptive.
60e6a7d07c93 initial checkin tz parents: diff changeset	4724
60e6a7d07c93 initial checkin tz parents: diff changeset	4725	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4726	addHelpButtonFor:'Launcher/miscSettings.html';
60e6a7d07c93 initial checkin tz parents: diff changeset	4727	addAbortButton;
60e6a7d07c93 initial checkin tz parents: diff changeset	4728	addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	4729
60e6a7d07c93 initial checkin tz parents: diff changeset	4730	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4731	"/ show the box ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4732	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4733	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	4734
60e6a7d07c93 initial checkin tz parents: diff changeset	4735	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4736	"/ update system settings
60e6a7d07c93 initial checkin tz parents: diff changeset	4737	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	4738	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4739	PopUpView shadows:shadows value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4740	hostNameInLabelHolder value ~~ hostNameInLabel ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4741	StandardSystemView includeHostNameInLabel:hostNameInLabelHolder value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4742
60e6a7d07c93 initial checkin tz parents: diff changeset	4743	Screen allScreens do:[:aDisplay \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4744	aDisplay allViewsDo:[:aView \|
60e6a7d07c93 initial checkin tz parents: diff changeset	4745	\|l\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4746
60e6a7d07c93 initial checkin tz parents: diff changeset	4747	aView isTopView ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4748	l := aView label.
60e6a7d07c93 initial checkin tz parents: diff changeset	4749	aView label:(l , ' '); label:l. "/ force a change
60e6a7d07c93 initial checkin tz parents: diff changeset	4750	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4751	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4752	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4753	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4754	StandardSystemView returnFocusWhenClosingModalBoxes:returnFocus value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4755	StandardSystemView takeFocusWhenMapped:takeFocus value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4756	MenuView showAcceleratorKeys:showAccelerators value.
60e6a7d07c93 initial checkin tz parents: diff changeset	4757	Processor isTimeSlicing ~~ preemptive value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4758	preemptive value ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4759	Processor startTimeSlicing
60e6a7d07c93 initial checkin tz parents: diff changeset	4760	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4761	Processor stopTimeSlicing
60e6a7d07c93 initial checkin tz parents: diff changeset	4762	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4763	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4764	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4765	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	4766
60e6a7d07c93 initial checkin tz parents: diff changeset	4767
60e6a7d07c93 initial checkin tz parents: diff changeset	4768	!
60e6a7d07c93 initial checkin tz parents: diff changeset	4769
60e6a7d07c93 initial checkin tz parents: diff changeset	4770	printerSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	4771	"open a dialog on printer related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	4772
60e6a7d07c93 initial checkin tz parents: diff changeset	4773	\|box
60e6a7d07c93 initial checkin tz parents: diff changeset	4774	possiblePrinters possibleTypes printerType printCommand
60e6a7d07c93 initial checkin tz parents: diff changeset	4775	pageFormat landscape updater
60e6a7d07c93 initial checkin tz parents: diff changeset	4776	formatLabel formatComponent landscapeLabel landscapeComponent
60e6a7d07c93 initial checkin tz parents: diff changeset	4777	topMargin leftMargin rightMargin bottomMargin unitList unit
60e6a7d07c93 initial checkin tz parents: diff changeset	4778	topMarginComponent leftMarginComponent
60e6a7d07c93 initial checkin tz parents: diff changeset	4779	rightMarginComponent
60e6a7d07c93 initial checkin tz parents: diff changeset	4780	bottomMarginComponent supportsColor supportsColorComponent
60e6a7d07c93 initial checkin tz parents: diff changeset	4781	y y1 commandListPop component commandList row\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4782
60e6a7d07c93 initial checkin tz parents: diff changeset	4783	possiblePrinters := PrinterStream withAllSubclasses asArray.
60e6a7d07c93 initial checkin tz parents: diff changeset	4784	possibleTypes := possiblePrinters collect:[:cls \| cls printerTypeName].
60e6a7d07c93 initial checkin tz parents: diff changeset	4785
60e6a7d07c93 initial checkin tz parents: diff changeset	4786	printerType := SelectionInList new list:(resources array:possibleTypes).
60e6a7d07c93 initial checkin tz parents: diff changeset	4787	printerType selectionIndex:(possiblePrinters identityIndexOf:Printer).
60e6a7d07c93 initial checkin tz parents: diff changeset	4788	printCommand := Printer printCommand asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4789
60e6a7d07c93 initial checkin tz parents: diff changeset	4790	pageFormat := SelectionInList new list:(Printer defaultPageFormats).
60e6a7d07c93 initial checkin tz parents: diff changeset	4791	pageFormat selection:(Printer pageFormat).
60e6a7d07c93 initial checkin tz parents: diff changeset	4792	landscape := Printer landscape asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4793
60e6a7d07c93 initial checkin tz parents: diff changeset	4794	topMargin := Printer topMargin asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4795	leftMargin := Printer leftMargin asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4796	rightMargin := Printer rightMargin asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4797	bottomMargin := Printer bottomMargin asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4798	supportsColor := Printer supportsColor asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	4799
60e6a7d07c93 initial checkin tz parents: diff changeset	4800	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4801	box label:(resources string:'Printer settings').
60e6a7d07c93 initial checkin tz parents: diff changeset	4802
60e6a7d07c93 initial checkin tz parents: diff changeset	4803	"/ either use a popUpList ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4804	"/ box addPopUpList:(resources string:'printer type:') on:printerType.
60e6a7d07c93 initial checkin tz parents: diff changeset	4805
60e6a7d07c93 initial checkin tz parents: diff changeset	4806	"/ or a comboList;
60e6a7d07c93 initial checkin tz parents: diff changeset	4807	"/ which one looks better ?
60e6a7d07c93 initial checkin tz parents: diff changeset	4808	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4809	component := box addTextLabel:(resources string:'printer type:').
60e6a7d07c93 initial checkin tz parents: diff changeset	4810	component width:0.25; adjust:#right; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4811	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	4812	component := box addComboListOn:printerType tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4813	component aspect:#selectionIndex; changeMessage:#selectionIndex:; useIndex:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4814	component width:0.75; left:0.25.
60e6a7d07c93 initial checkin tz parents: diff changeset	4815	"/ end of question
60e6a7d07c93 initial checkin tz parents: diff changeset	4816
60e6a7d07c93 initial checkin tz parents: diff changeset	4817	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4818	component := box addTextLabel:(resources string:'print command:').
60e6a7d07c93 initial checkin tz parents: diff changeset	4819	component width:0.25; adjust:#right; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4820	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	4821	commandListPop := box addComboBoxOn:printCommand tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4822	"/ commandListPop := box addInputFieldOn:printCommand tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	4823	commandListPop width:0.75; left:0.25; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4824	"/ some common print commands ...
60e6a7d07c93 initial checkin tz parents: diff changeset	4825
60e6a7d07c93 initial checkin tz parents: diff changeset	4826	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	4827	commandList isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4828	commandList := PrinterStream defaultCommands.
60e6a7d07c93 initial checkin tz parents: diff changeset	4829	commandList isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4830	commandList := #('lpr'
60e6a7d07c93 initial checkin tz parents: diff changeset	4831	'lp'
60e6a7d07c93 initial checkin tz parents: diff changeset	4832	).
60e6a7d07c93 initial checkin tz parents: diff changeset	4833	]
60e6a7d07c93 initial checkin tz parents: diff changeset	4834	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4835
60e6a7d07c93 initial checkin tz parents: diff changeset	4836	commandListPop list:commandList.
60e6a7d07c93 initial checkin tz parents: diff changeset	4837	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4838	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4839	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4840
60e6a7d07c93 initial checkin tz parents: diff changeset	4841	row := OrderedCollection new.
60e6a7d07c93 initial checkin tz parents: diff changeset	4842	row add:(formatLabel := Label label:(resources string:'page format:')).
60e6a7d07c93 initial checkin tz parents: diff changeset	4843	formatLabel borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4844	row add:(formatComponent := PopUpList on:pageFormat).
60e6a7d07c93 initial checkin tz parents: diff changeset	4845	formatComponent label:'unknown'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4846
60e6a7d07c93 initial checkin tz parents: diff changeset	4847	row add:(landscapeLabel := Label label:(resources string:'landscape:')).
60e6a7d07c93 initial checkin tz parents: diff changeset	4848	landscapeLabel borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	4849	row add:(landscapeComponent := CheckToggle on:landscape).
60e6a7d07c93 initial checkin tz parents: diff changeset	4850
60e6a7d07c93 initial checkin tz parents: diff changeset	4851	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4852	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4853	addRow:(1 to:2)
60e6a7d07c93 initial checkin tz parents: diff changeset	4854	fromX:0
60e6a7d07c93 initial checkin tz parents: diff changeset	4855	toX:0.5
60e6a7d07c93 initial checkin tz parents: diff changeset	4856	collect:[:idx \| row at:idx]
60e6a7d07c93 initial checkin tz parents: diff changeset	4857	tabable:false
60e6a7d07c93 initial checkin tz parents: diff changeset	4858	horizontalLayout:#leftSpace
60e6a7d07c93 initial checkin tz parents: diff changeset	4859	verticalLayout:#center.
60e6a7d07c93 initial checkin tz parents: diff changeset	4860	y1 := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4861	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	4862
60e6a7d07c93 initial checkin tz parents: diff changeset	4863	box
60e6a7d07c93 initial checkin tz parents: diff changeset	4864	addRow:(3 to:4)
60e6a7d07c93 initial checkin tz parents: diff changeset	4865	fromX:0.5
60e6a7d07c93 initial checkin tz parents: diff changeset	4866	toX:1.0
60e6a7d07c93 initial checkin tz parents: diff changeset	4867	collect:[:idx \| row at:idx]
60e6a7d07c93 initial checkin tz parents: diff changeset	4868	tabable:false
60e6a7d07c93 initial checkin tz parents: diff changeset	4869	horizontalLayout:#leftSpace
60e6a7d07c93 initial checkin tz parents: diff changeset	4870	verticalLayout:#center.
60e6a7d07c93 initial checkin tz parents: diff changeset	4871
60e6a7d07c93 initial checkin tz parents: diff changeset	4872	box yPosition:(box yPosition max:y1).
60e6a7d07c93 initial checkin tz parents: diff changeset	4873
60e6a7d07c93 initial checkin tz parents: diff changeset	4874	box makeTabable:(formatComponent).
60e6a7d07c93 initial checkin tz parents: diff changeset	4875	box makeTabable:(landscapeComponent).
60e6a7d07c93 initial checkin tz parents: diff changeset	4876
60e6a7d07c93 initial checkin tz parents: diff changeset	4877	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4878	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4879	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4880
60e6a7d07c93 initial checkin tz parents: diff changeset	4881	y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4882
60e6a7d07c93 initial checkin tz parents: diff changeset	4883	topMarginComponent := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4884	addLabelledInputField:(resources string:'top margin:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4885	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4886	on:nil "/ topMargin
60e6a7d07c93 initial checkin tz parents: diff changeset	4887	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4888	from:0.0 to:0.5
60e6a7d07c93 initial checkin tz parents: diff changeset	4889	separateAtX:0.6.
60e6a7d07c93 initial checkin tz parents: diff changeset	4890	topMarginComponent converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4891	topMarginComponent model:topMargin.
60e6a7d07c93 initial checkin tz parents: diff changeset	4892	y1 := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	4893
60e6a7d07c93 initial checkin tz parents: diff changeset	4894	box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	4895	unitList := SelectionInList with:#('inch' 'mm').
60e6a7d07c93 initial checkin tz parents: diff changeset	4896	unitList selectionIndex:1.
60e6a7d07c93 initial checkin tz parents: diff changeset	4897
60e6a7d07c93 initial checkin tz parents: diff changeset	4898	component := box addComponent:(PopUpList on:unitList).
60e6a7d07c93 initial checkin tz parents: diff changeset	4899	component
60e6a7d07c93 initial checkin tz parents: diff changeset	4900	left:0.6;
60e6a7d07c93 initial checkin tz parents: diff changeset	4901	width:0.3.
60e6a7d07c93 initial checkin tz parents: diff changeset	4902
60e6a7d07c93 initial checkin tz parents: diff changeset	4903	box yPosition:y1.
60e6a7d07c93 initial checkin tz parents: diff changeset	4904
60e6a7d07c93 initial checkin tz parents: diff changeset	4905	leftMarginComponent := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4906	addLabelledInputField:(resources string:'left margin:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4907	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4908	on:nil "/ leftMargin
60e6a7d07c93 initial checkin tz parents: diff changeset	4909	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4910	from:0.0 to:0.5
60e6a7d07c93 initial checkin tz parents: diff changeset	4911	separateAtX:0.6.
60e6a7d07c93 initial checkin tz parents: diff changeset	4912	leftMarginComponent converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4913	leftMarginComponent model:leftMargin.
60e6a7d07c93 initial checkin tz parents: diff changeset	4914
60e6a7d07c93 initial checkin tz parents: diff changeset	4915	rightMarginComponent := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4916	addLabelledInputField:(resources string:'right margin:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4917	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4918	on:nil "/ rightMargin
60e6a7d07c93 initial checkin tz parents: diff changeset	4919	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4920	from:0.0 to:0.5
60e6a7d07c93 initial checkin tz parents: diff changeset	4921	separateAtX:0.6.
60e6a7d07c93 initial checkin tz parents: diff changeset	4922	rightMarginComponent converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4923	rightMarginComponent model:rightMargin.
60e6a7d07c93 initial checkin tz parents: diff changeset	4924
60e6a7d07c93 initial checkin tz parents: diff changeset	4925	bottomMarginComponent := box
60e6a7d07c93 initial checkin tz parents: diff changeset	4926	addLabelledInputField:(resources string:'bottom margin:')
60e6a7d07c93 initial checkin tz parents: diff changeset	4927	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	4928	on:nil "/ bottomMargin
60e6a7d07c93 initial checkin tz parents: diff changeset	4929	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	4930	from:0.0 to:0.5
60e6a7d07c93 initial checkin tz parents: diff changeset	4931	separateAtX:0.6.
60e6a7d07c93 initial checkin tz parents: diff changeset	4932	bottomMarginComponent converter:(PrintConverter new initForNumber).
60e6a7d07c93 initial checkin tz parents: diff changeset	4933	bottomMarginComponent model:bottomMargin.
60e6a7d07c93 initial checkin tz parents: diff changeset	4934
60e6a7d07c93 initial checkin tz parents: diff changeset	4935	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	4936	supportsColorComponent := box addCheckBox:(resources string:'Color printer') on:supportsColor.
60e6a7d07c93 initial checkin tz parents: diff changeset	4937	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	4938
60e6a7d07c93 initial checkin tz parents: diff changeset	4939	updater := [ \|p fg hasPageSize hasMargins\|
60e6a7d07c93 initial checkin tz parents: diff changeset	4940
60e6a7d07c93 initial checkin tz parents: diff changeset	4941	printerType selectionIndex ~~ 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4942	p := possiblePrinters at:(printerType selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	4943	hasPageSize := p supportsPageSizes.
60e6a7d07c93 initial checkin tz parents: diff changeset	4944	hasMargins := p supportsMargins.
60e6a7d07c93 initial checkin tz parents: diff changeset	4945	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4946	hasPageSize := false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4947	hasMargins := false.
60e6a7d07c93 initial checkin tz parents: diff changeset	4948	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4949	hasPageSize ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4950	fg := Button new foregroundColor.
60e6a7d07c93 initial checkin tz parents: diff changeset	4951	formatComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4952	landscapeComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4953
60e6a7d07c93 initial checkin tz parents: diff changeset	4954	formatComponent label:p pageFormat.
60e6a7d07c93 initial checkin tz parents: diff changeset	4955	pageFormat value:(p pageFormat).
60e6a7d07c93 initial checkin tz parents: diff changeset	4956	landscape value:(p landscape).
60e6a7d07c93 initial checkin tz parents: diff changeset	4957	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4958	fg := Button new disabledForegroundColor.
60e6a7d07c93 initial checkin tz parents: diff changeset	4959	formatComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4960	landscapeComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4961
60e6a7d07c93 initial checkin tz parents: diff changeset	4962	formatComponent label:'unknown'.
60e6a7d07c93 initial checkin tz parents: diff changeset	4963	landscape value:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	4964	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4965	hasMargins ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4966	unitList selectionIndex == 2 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4967	unit := #mm
60e6a7d07c93 initial checkin tz parents: diff changeset	4968	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4969	unit := #inch
60e6a7d07c93 initial checkin tz parents: diff changeset	4970	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4971
60e6a7d07c93 initial checkin tz parents: diff changeset	4972	topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
60e6a7d07c93 initial checkin tz parents: diff changeset	4973	leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
60e6a7d07c93 initial checkin tz parents: diff changeset	4974	rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
60e6a7d07c93 initial checkin tz parents: diff changeset	4975	bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
60e6a7d07c93 initial checkin tz parents: diff changeset	4976
60e6a7d07c93 initial checkin tz parents: diff changeset	4977	topMarginComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4978	leftMarginComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4979	rightMarginComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4980	bottomMarginComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4981	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4982	topMarginComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4983	leftMarginComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4984	rightMarginComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4985	bottomMarginComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	4986	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4987	formatLabel foregroundColor:fg.
60e6a7d07c93 initial checkin tz parents: diff changeset	4988	landscapeLabel foregroundColor:fg.
60e6a7d07c93 initial checkin tz parents: diff changeset	4989
60e6a7d07c93 initial checkin tz parents: diff changeset	4990	p notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4991	commandList := p defaultCommands.
60e6a7d07c93 initial checkin tz parents: diff changeset	4992	commandList notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4993	commandListPop list:commandList
60e6a7d07c93 initial checkin tz parents: diff changeset	4994	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4995
60e6a7d07c93 initial checkin tz parents: diff changeset	4996	printCommand value:(p printCommand).
60e6a7d07c93 initial checkin tz parents: diff changeset	4997	].
60e6a7d07c93 initial checkin tz parents: diff changeset	4998	p supportsPostscript ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	4999	supportsColorComponent disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	5000	supportsColor value:false
60e6a7d07c93 initial checkin tz parents: diff changeset	5001	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5002	supportsColorComponent enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	5003	supportsColor value:(Printer supportsColor).
60e6a7d07c93 initial checkin tz parents: diff changeset	5004	]
60e6a7d07c93 initial checkin tz parents: diff changeset	5005	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5006	unitList onChangeSend:#value to:updater.
60e6a7d07c93 initial checkin tz parents: diff changeset	5007	printerType onChangeSend:#value to:updater.
60e6a7d07c93 initial checkin tz parents: diff changeset	5008	updater value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5009
60e6a7d07c93 initial checkin tz parents: diff changeset	5010	box addVerticalSpace;
60e6a7d07c93 initial checkin tz parents: diff changeset	5011	addHelpButtonFor:'Launcher/printerSettings.html';
60e6a7d07c93 initial checkin tz parents: diff changeset	5012	addAbortButton; addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	5013	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	5014
60e6a7d07c93 initial checkin tz parents: diff changeset	5015	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5016	Printer := possiblePrinters at:(printerType selectionIndex).
60e6a7d07c93 initial checkin tz parents: diff changeset	5017	Printer printCommand:printCommand value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5018
60e6a7d07c93 initial checkin tz parents: diff changeset	5019	Printer supportsPageSizes ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5020	Printer pageFormat:(pageFormat selection).
60e6a7d07c93 initial checkin tz parents: diff changeset	5021	Printer landscape:(landscape value).
60e6a7d07c93 initial checkin tz parents: diff changeset	5022	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5023	Printer supportsMargins ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5024	unitList selectionIndex == 2 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5025	unit := #mm
60e6a7d07c93 initial checkin tz parents: diff changeset	5026	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5027	unit := #inch
60e6a7d07c93 initial checkin tz parents: diff changeset	5028	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5029	Printer topMargin:(UnitConverter convert:topMargin value from:unit to:#inch).
60e6a7d07c93 initial checkin tz parents: diff changeset	5030	Printer leftMargin:(UnitConverter convert:leftMargin value from:unit to:#inch).
60e6a7d07c93 initial checkin tz parents: diff changeset	5031	Printer rightMargin:(UnitConverter convert:rightMargin value from:unit to:#inch).
60e6a7d07c93 initial checkin tz parents: diff changeset	5032	Printer bottomMargin:(UnitConverter convert:bottomMargin value from:unit to:#inch).
60e6a7d07c93 initial checkin tz parents: diff changeset	5033	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5034	Printer supportsPostscript ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5035	Printer supportsColor:supportsColor value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5036	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5037	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5038	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	5039
60e6a7d07c93 initial checkin tz parents: diff changeset	5040	!
60e6a7d07c93 initial checkin tz parents: diff changeset	5041
60e6a7d07c93 initial checkin tz parents: diff changeset	5042	restoreSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	5043	"restore settings from a settings-file."
60e6a7d07c93 initial checkin tz parents: diff changeset	5044
60e6a7d07c93 initial checkin tz parents: diff changeset	5045	"a temporary kludge - we need a central systemSettings object for this,
60e6a7d07c93 initial checkin tz parents: diff changeset	5046	which can be saved/restored with a single store/read."
60e6a7d07c93 initial checkin tz parents: diff changeset	5047
60e6a7d07c93 initial checkin tz parents: diff changeset	5048	\|fileName\|
60e6a7d07c93 initial checkin tz parents: diff changeset	5049
60e6a7d07c93 initial checkin tz parents: diff changeset	5050	fileName := Dialog
60e6a7d07c93 initial checkin tz parents: diff changeset	5051	requestFileName:(resources string:'restore settings from:')
60e6a7d07c93 initial checkin tz parents: diff changeset	5052	default:'settings.stx'
60e6a7d07c93 initial checkin tz parents: diff changeset	5053	ok:(resources string:'restore')
60e6a7d07c93 initial checkin tz parents: diff changeset	5054	abort:(resources string:'cancel')
60e6a7d07c93 initial checkin tz parents: diff changeset	5055	pattern:'*.stx'
60e6a7d07c93 initial checkin tz parents: diff changeset	5056	fromDirectory:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	5057
60e6a7d07c93 initial checkin tz parents: diff changeset	5058	(fileName isNil or:[fileName isEmpty]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5059	"/ canceled
60e6a7d07c93 initial checkin tz parents: diff changeset	5060	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	5061	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5062
60e6a7d07c93 initial checkin tz parents: diff changeset	5063	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5064	Smalltalk fileIn:fileName.
60e6a7d07c93 initial checkin tz parents: diff changeset	5065	self reOpen
60e6a7d07c93 initial checkin tz parents: diff changeset	5066	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5067
60e6a7d07c93 initial checkin tz parents: diff changeset	5068
60e6a7d07c93 initial checkin tz parents: diff changeset	5069	!
60e6a7d07c93 initial checkin tz parents: diff changeset	5070
60e6a7d07c93 initial checkin tz parents: diff changeset	5071	saveSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	5072	"save settings to a settings-file."
60e6a7d07c93 initial checkin tz parents: diff changeset	5073
60e6a7d07c93 initial checkin tz parents: diff changeset	5074	"a temporary kludge - we need a central systemSettings object for this,
60e6a7d07c93 initial checkin tz parents: diff changeset	5075	which can be saved/restored with a single store/read."
60e6a7d07c93 initial checkin tz parents: diff changeset	5076
60e6a7d07c93 initial checkin tz parents: diff changeset	5077	\|s screen fileName\|
60e6a7d07c93 initial checkin tz parents: diff changeset	5078
60e6a7d07c93 initial checkin tz parents: diff changeset	5079	fileName := Dialog
60e6a7d07c93 initial checkin tz parents: diff changeset	5080	requestFileName:(resources string:'save settings in:')
60e6a7d07c93 initial checkin tz parents: diff changeset	5081	default:'settings.stx'
60e6a7d07c93 initial checkin tz parents: diff changeset	5082	ok:(resources string:'save')
60e6a7d07c93 initial checkin tz parents: diff changeset	5083	abort:(resources string:'cancel')
60e6a7d07c93 initial checkin tz parents: diff changeset	5084	pattern:'*.stx'
60e6a7d07c93 initial checkin tz parents: diff changeset	5085	fromDirectory:nil.
60e6a7d07c93 initial checkin tz parents: diff changeset	5086
60e6a7d07c93 initial checkin tz parents: diff changeset	5087	(fileName isNil or:[fileName isEmpty]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5088	"/ canceled
60e6a7d07c93 initial checkin tz parents: diff changeset	5089	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	5090	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5091
60e6a7d07c93 initial checkin tz parents: diff changeset	5092	s := fileName asFilename writeStream.
60e6a7d07c93 initial checkin tz parents: diff changeset	5093	s isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5094	self warn:'cannot write the ''' , fileName , ''' file'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5095	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	5096	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5097
60e6a7d07c93 initial checkin tz parents: diff changeset	5098	s nextPutLine:'"/ ST/X saved settings';
60e6a7d07c93 initial checkin tz parents: diff changeset	5099	nextPutLine:'"/ DO NOT MODIFY MANUALLY';
60e6a7d07c93 initial checkin tz parents: diff changeset	5100	nextPutLine:'"/ (modifications would be lost with next save-settings)';
60e6a7d07c93 initial checkin tz parents: diff changeset	5101	nextPutLine:'"/';
60e6a7d07c93 initial checkin tz parents: diff changeset	5102	nextPutLine:'"/ this file was automatically generated by the';
60e6a7d07c93 initial checkin tz parents: diff changeset	5103	nextPutLine:'"/ ''save settings'' function of the Launcher';
60e6a7d07c93 initial checkin tz parents: diff changeset	5104	nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5105	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5106
60e6a7d07c93 initial checkin tz parents: diff changeset	5107	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5108	s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , AbsoluteTime now printString.
60e6a7d07c93 initial checkin tz parents: diff changeset	5109	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5110	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5111
60e6a7d07c93 initial checkin tz parents: diff changeset	5112	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5113	s nextPutLine:'"/ Display settings:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5114	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5115	s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5116	s nextPutLine:'Display displayName = ' , (Display displayName storeString) , ' ifTrue:['.
60e6a7d07c93 initial checkin tz parents: diff changeset	5117	screen := Screen current.
60e6a7d07c93 initial checkin tz parents: diff changeset	5118	screen fixColors notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5119	s nextPutLine:' Image flushDeviceImages.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5120	s nextPutLine:' Color colorAllocationFailSignal catch:['.
60e6a7d07c93 initial checkin tz parents: diff changeset	5121	s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5122	s nextPutLine:' ].'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5123	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5124	s nextPutLine:' Display releaseFixColors.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5125	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5126	s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5127	s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5128	s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5129	s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5130	s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5131	s nextPutLine:' View defaultStyle:(View defaultStyle). "/ to flush any device images'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5132	s nextPutLine:'].'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5133	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5134
60e6a7d07c93 initial checkin tz parents: diff changeset	5135	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5136	s nextPutLine:'"/ Compiler settings:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5137	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5138	s nextPutLine:'Compiler warnSTXSpecials: ' , (Compiler warnSTXSpecials storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5139	nextPutLine:'Compiler warnUnderscoreInIdentifier: ' , (Compiler warnUnderscoreInIdentifier storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5140	nextPutLine:'Compiler warnOldStyleAssignment: ' , (Compiler warnOldStyleAssignment storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5141	nextPutLine:'Compiler warnCommonMistakes: ' , (Compiler warnCommonMistakes storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5142	nextPutLine:'Compiler warnPossibleIncompatibilities: ' , (Compiler warnPossibleIncompatibilities storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5143	nextPutLine:'Compiler allowUnderscoreInIdentifier: ' , (Compiler allowUnderscoreInIdentifier storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5144	nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5145	nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5146
60e6a7d07c93 initial checkin tz parents: diff changeset	5147	nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5148
60e6a7d07c93 initial checkin tz parents: diff changeset	5149	nextPutLine:'Compiler stcCompilationIncludes: ' , (Compiler stcCompilationIncludes storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5150	nextPutLine:'Compiler stcCompilationDefines: ' , (Compiler stcCompilationDefines storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5151	nextPutLine:'Compiler stcCompilationOptions: ' , (Compiler stcCompilationOptions storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5152	nextPutLine:'Compiler ccCompilationOptions: ' , (Compiler ccCompilationOptions storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5153	nextPutLine:'Compiler ccPath: ' , (Compiler ccPath storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5154
60e6a7d07c93 initial checkin tz parents: diff changeset	5155	nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5156	nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5157
60e6a7d07c93 initial checkin tz parents: diff changeset	5158	HistoryManager notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5159	HistoryManager isActive ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5160	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5161	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5162	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5163	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5164	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5165	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5166
60e6a7d07c93 initial checkin tz parents: diff changeset	5167	ObjectFileLoader notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5168	s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5169	s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5170	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5171
60e6a7d07c93 initial checkin tz parents: diff changeset	5172	s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5173	s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5174
60e6a7d07c93 initial checkin tz parents: diff changeset	5175	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5176	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5177	s nextPutLine:'"/ Info & Debug Messages:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5178	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5179	s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5180	nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5181	nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5182	nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5183
60e6a7d07c93 initial checkin tz parents: diff changeset	5184
60e6a7d07c93 initial checkin tz parents: diff changeset	5185	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5186	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5187	s nextPutLine:'"/ Misc settings:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5188	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5189	s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5190	nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5191	nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5192	nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5193	nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5194
60e6a7d07c93 initial checkin tz parents: diff changeset	5195	"/ claus - I dont think its a good idea to save those ...
60e6a7d07c93 initial checkin tz parents: diff changeset	5196	nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5197	nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5198
60e6a7d07c93 initial checkin tz parents: diff changeset	5199	nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5200	nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5201	nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5202	nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5203	(Exception emergencyHandler == Launcher notifyingEmergencyHandler) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5204	s nextPutLine:'Exception emergencyHandler:(Launcher notifyingEmergencyHandler).'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5205	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5206
60e6a7d07c93 initial checkin tz parents: diff changeset	5207	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5208	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5209	s nextPutLine:'"/ Printer settings:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5210	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5211	s nextPutLine:'Printer := ' , (Printer name) , '.';
60e6a7d07c93 initial checkin tz parents: diff changeset	5212	nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5213
60e6a7d07c93 initial checkin tz parents: diff changeset	5214	Printer supportsPageSizes ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5215	s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5216	s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5217	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5218	Printer supportsMargins ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5219	s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5220	s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5221	s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5222	s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5223	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5224	Printer supportsPostscript ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5225	s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5226	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5227
60e6a7d07c93 initial checkin tz parents: diff changeset	5228	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5229	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5230	s nextPutLine:'"/ Font settings:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5231	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5232	s nextPutLine:'View defaultFont: ' , (View defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5233	s nextPutLine:'Label defaultFont: ' , (Label defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5234	s nextPutLine:'Button defaultFont: ' , (Button defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5235	s nextPutLine:'Toggle defaultFont: ' , (Toggle defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5236	s nextPutLine:'SelectionInListView defaultFont: ' , (SelectionInListView defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5237	s nextPutLine:'MenuView defaultFont: ' , (MenuView defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5238	s nextPutLine:'PullDownMenu defaultFont: ' , (PullDownMenu defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5239	s nextPutLine:'TextView defaultFont: ' , (TextView defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5240	s nextPutLine:'EditTextView defaultFont: ' , (EditTextView defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5241	s nextPutLine:'CodeView defaultFont: ' , (CodeView defaultFont storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5242
60e6a7d07c93 initial checkin tz parents: diff changeset	5243	s cr.
60e6a7d07c93 initial checkin tz parents: diff changeset	5244	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5245	s nextPutLine:'"/ Language setting:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5246	s nextPutLine:'"/'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5247	s nextPutLine:'Smalltalk language: ' , (Smalltalk language storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5248	s nextPutLine:'Smalltalk languageTerritory: ' , (Smalltalk languageTerritory storeString) , '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5249	s close.
60e6a7d07c93 initial checkin tz parents: diff changeset	5250
60e6a7d07c93 initial checkin tz parents: diff changeset	5251	"
60e6a7d07c93 initial checkin tz parents: diff changeset	5252	Transcript topView application saveSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	5253	"
60e6a7d07c93 initial checkin tz parents: diff changeset	5254
60e6a7d07c93 initial checkin tz parents: diff changeset	5255
60e6a7d07c93 initial checkin tz parents: diff changeset	5256	!
60e6a7d07c93 initial checkin tz parents: diff changeset	5257
60e6a7d07c93 initial checkin tz parents: diff changeset	5258	sourceAndDebuggerSettings
60e6a7d07c93 initial checkin tz parents: diff changeset	5259	"open a dialog on misc other settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	5260
60e6a7d07c93 initial checkin tz parents: diff changeset	5261	\|box check logDoits updChanges changeFileName
60e6a7d07c93 initial checkin tz parents: diff changeset	5262	useManager hasManager
60e6a7d07c93 initial checkin tz parents: diff changeset	5263	repository repositoryHolder localSourceFirst
60e6a7d07c93 initial checkin tz parents: diff changeset	5264	sourceCacheDir cacheEntry
60e6a7d07c93 initial checkin tz parents: diff changeset	5265	component localCheck oldIndent nm fn manager
60e6a7d07c93 initial checkin tz parents: diff changeset	5266	keepMethodHistory showErrorNotifier showVerboseStack\|
60e6a7d07c93 initial checkin tz parents: diff changeset	5267
60e6a7d07c93 initial checkin tz parents: diff changeset	5268	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5269	"/ extract relevant system settings ...
60e6a7d07c93 initial checkin tz parents: diff changeset	5270	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5271	keepMethodHistory := Class methodHistory notNil asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5272	logDoits := Smalltalk logDoits asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5273	updChanges := Class updatingChanges asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5274	changeFileName := ObjectMemory nameForChanges asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5275
60e6a7d07c93 initial checkin tz parents: diff changeset	5276	hasManager := AbstractSourceCodeManager notNil
60e6a7d07c93 initial checkin tz parents: diff changeset	5277	and:[AbstractSourceCodeManager isLoaded].
60e6a7d07c93 initial checkin tz parents: diff changeset	5278
60e6a7d07c93 initial checkin tz parents: diff changeset	5279	hasManager ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5280	useManager := (manager := Smalltalk at:#SourceCodeManager) notNil asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5281	localSourceFirst := Class tryLocalSourceFirst asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5282	manager notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5283	repository := manager repositoryName.
60e6a7d07c93 initial checkin tz parents: diff changeset	5284	repository notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5285	repositoryHolder := repository asValue
60e6a7d07c93 initial checkin tz parents: diff changeset	5286	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5287	repositoryHolder := '' asValue
60e6a7d07c93 initial checkin tz parents: diff changeset	5288	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5289	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5290	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5291	useManager := false.
60e6a7d07c93 initial checkin tz parents: diff changeset	5292	localSourceFirst := false
60e6a7d07c93 initial checkin tz parents: diff changeset	5293	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5294	showErrorNotifier := (Exception emergencyHandler == Launcher notifyingEmergencyHandler) asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5295	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5296
60e6a7d07c93 initial checkin tz parents: diff changeset	5297	sourceCacheDir := nil asValue.
60e6a7d07c93 initial checkin tz parents: diff changeset	5298
60e6a7d07c93 initial checkin tz parents: diff changeset	5299	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5300	"/ create a box on those values ...
60e6a7d07c93 initial checkin tz parents: diff changeset	5301	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5302	box := DialogBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	5303	box label:(resources string:'Source & Debugger settings').
60e6a7d07c93 initial checkin tz parents: diff changeset	5304
60e6a7d07c93 initial checkin tz parents: diff changeset	5305	box addCheckBox:(resources string:'remember changed methods (for previous method in browser)') on:keepMethodHistory.
60e6a7d07c93 initial checkin tz parents: diff changeset	5306	box addCheckBox:(resources string:'log compiles in changes file') on:updChanges.
60e6a7d07c93 initial checkin tz parents: diff changeset	5307	box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
60e6a7d07c93 initial checkin tz parents: diff changeset	5308
60e6a7d07c93 initial checkin tz parents: diff changeset	5309	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	5310	addLabelledInputField:(resources string:'change file name:')
60e6a7d07c93 initial checkin tz parents: diff changeset	5311	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	5312	on:changeFileName
60e6a7d07c93 initial checkin tz parents: diff changeset	5313	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	5314	separateAtX:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	5315	component immediateAccept:true; acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	5316
60e6a7d07c93 initial checkin tz parents: diff changeset	5317	"/ y := box yPosition.
60e6a7d07c93 initial checkin tz parents: diff changeset	5318	"/ component := box addTextLabel:(resources string:'change file name:').
60e6a7d07c93 initial checkin tz parents: diff changeset	5319	"/ component width:0.5; adjust:#right; borderWidth:0.
60e6a7d07c93 initial checkin tz parents: diff changeset	5320	"/ box yPosition:y.
60e6a7d07c93 initial checkin tz parents: diff changeset	5321	"/ component := box addInputFieldOn:changeFileName tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	5322	"/ component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	5323
60e6a7d07c93 initial checkin tz parents: diff changeset	5324	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	5325
60e6a7d07c93 initial checkin tz parents: diff changeset	5326	hasManager ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5327	check := box addCheckBox:(resources string:'sourcecode from sourcecode management') on:useManager.
60e6a7d07c93 initial checkin tz parents: diff changeset	5328	oldIndent := box leftIndent.
60e6a7d07c93 initial checkin tz parents: diff changeset	5329	box leftIndent:30.
60e6a7d07c93 initial checkin tz parents: diff changeset	5330
60e6a7d07c93 initial checkin tz parents: diff changeset	5331	repositoryHolder notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5332	component := box
60e6a7d07c93 initial checkin tz parents: diff changeset	5333	addLabelledInputField:(resources string:'repository:')
60e6a7d07c93 initial checkin tz parents: diff changeset	5334	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	5335	on:repositoryHolder
60e6a7d07c93 initial checkin tz parents: diff changeset	5336	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	5337	separateAtX:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	5338	component immediateAccept:true; acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	5339	component enableChannel:useManager.
60e6a7d07c93 initial checkin tz parents: diff changeset	5340	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5341
60e6a7d07c93 initial checkin tz parents: diff changeset	5342	cacheEntry := box
60e6a7d07c93 initial checkin tz parents: diff changeset	5343	addLabelledInputField:(resources string:'source cache dir:')
60e6a7d07c93 initial checkin tz parents: diff changeset	5344	adjust:#right
60e6a7d07c93 initial checkin tz parents: diff changeset	5345	on:sourceCacheDir
60e6a7d07c93 initial checkin tz parents: diff changeset	5346	tabable:true
60e6a7d07c93 initial checkin tz parents: diff changeset	5347	separateAtX:0.4.
60e6a7d07c93 initial checkin tz parents: diff changeset	5348	cacheEntry immediateAccept:true; acceptOnLeave:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	5349	cacheEntry enableChannel:useManager.
60e6a7d07c93 initial checkin tz parents: diff changeset	5350
60e6a7d07c93 initial checkin tz parents: diff changeset	5351	localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
60e6a7d07c93 initial checkin tz parents: diff changeset	5352	localCheck enableChannel:useManager.
60e6a7d07c93 initial checkin tz parents: diff changeset	5353
60e6a7d07c93 initial checkin tz parents: diff changeset	5354	box leftIndent:oldIndent.
60e6a7d07c93 initial checkin tz parents: diff changeset	5355
60e6a7d07c93 initial checkin tz parents: diff changeset	5356	(AbstractSourceCodeManager isNil
60e6a7d07c93 initial checkin tz parents: diff changeset	5357	or:[AbstractSourceCodeManager defaultManager isNil]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5358	useManager value:false.
60e6a7d07c93 initial checkin tz parents: diff changeset	5359	cacheEntry disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	5360	check disable.
60e6a7d07c93 initial checkin tz parents: diff changeset	5361	localCheck enable.
60e6a7d07c93 initial checkin tz parents: diff changeset	5362	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5363	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
60e6a7d07c93 initial checkin tz parents: diff changeset	5364	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5365	box addHorizontalLine.
60e6a7d07c93 initial checkin tz parents: diff changeset	5366	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5367
60e6a7d07c93 initial checkin tz parents: diff changeset	5368	box addCheckBox:(resources string:'show error notifier before opening debugger') on:showErrorNotifier.
60e6a7d07c93 initial checkin tz parents: diff changeset	5369	box addCheckBox:(resources string:'verbose backtrace by default in debugger') on:showVerboseStack.
60e6a7d07c93 initial checkin tz parents: diff changeset	5370
60e6a7d07c93 initial checkin tz parents: diff changeset	5371	box
60e6a7d07c93 initial checkin tz parents: diff changeset	5372	addHelpButtonFor:'Launcher/sourceSettings.html';
60e6a7d07c93 initial checkin tz parents: diff changeset	5373	addAbortButton;
60e6a7d07c93 initial checkin tz parents: diff changeset	5374	addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	5375
60e6a7d07c93 initial checkin tz parents: diff changeset	5376	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5377	"/ show the box ...
60e6a7d07c93 initial checkin tz parents: diff changeset	5378	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5379	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	5380
60e6a7d07c93 initial checkin tz parents: diff changeset	5381	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5382	"/ update system settings
60e6a7d07c93 initial checkin tz parents: diff changeset	5383	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5384	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5385	Class keepMethodHistory:keepMethodHistory value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5386	Smalltalk logDoits:logDoits value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5387	Class updateChanges:updChanges value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5388	ObjectMemory nameForChanges:changeFileName value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5389
60e6a7d07c93 initial checkin tz parents: diff changeset	5390	(hasManager and:[useManager value]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5391	manager isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5392	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
60e6a7d07c93 initial checkin tz parents: diff changeset	5393	manager := Smalltalk at:#SourceCodeManager.
60e6a7d07c93 initial checkin tz parents: diff changeset	5394	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5395	Class tryLocalSourceFirst:(localSourceFirst value).
60e6a7d07c93 initial checkin tz parents: diff changeset	5396	localSourceFirst value ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5397	nm := sourceCacheDir value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5398
60e6a7d07c93 initial checkin tz parents: diff changeset	5399	(fn := nm asFilename) exists ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5400	(self confirm:('cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5401	fn makeDirectory;
60e6a7d07c93 initial checkin tz parents: diff changeset	5402	makeReadableForAll;
60e6a7d07c93 initial checkin tz parents: diff changeset	5403	makeWritableForAll;
60e6a7d07c93 initial checkin tz parents: diff changeset	5404	makeExecutableForAll.
60e6a7d07c93 initial checkin tz parents: diff changeset	5405	]
60e6a7d07c93 initial checkin tz parents: diff changeset	5406	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5407	(fn exists
60e6a7d07c93 initial checkin tz parents: diff changeset	5408	and:[fn isDirectory
60e6a7d07c93 initial checkin tz parents: diff changeset	5409	and:[fn isReadable
60e6a7d07c93 initial checkin tz parents: diff changeset	5410	and:[fn isWritable]]]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5411	AbstractSourceCodeManager cacheDirectoryName:(sourceCacheDir value).
60e6a7d07c93 initial checkin tz parents: diff changeset	5412	]
60e6a7d07c93 initial checkin tz parents: diff changeset	5413	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5414
60e6a7d07c93 initial checkin tz parents: diff changeset	5415	repositoryHolder notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5416	repositoryHolder value size > 0 ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5417	manager initializeForRepository:repositoryHolder value.
60e6a7d07c93 initial checkin tz parents: diff changeset	5418	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5419	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5420
60e6a7d07c93 initial checkin tz parents: diff changeset	5421	showErrorNotifier value ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5422	Exception emergencyHandler:nil
60e6a7d07c93 initial checkin tz parents: diff changeset	5423	] ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5424	Exception emergencyHandler:(Launcher notifyingEmergencyHandler)
60e6a7d07c93 initial checkin tz parents: diff changeset	5425	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5426	DebugView defaultVerboseBacktrace:(showVerboseStack value).
60e6a7d07c93 initial checkin tz parents: diff changeset	5427
60e6a7d07c93 initial checkin tz parents: diff changeset	5428	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5429	Smalltalk at:#SourceCodeManager put:nil
60e6a7d07c93 initial checkin tz parents: diff changeset	5430	]
60e6a7d07c93 initial checkin tz parents: diff changeset	5431	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5432	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	5433
60e6a7d07c93 initial checkin tz parents: diff changeset	5434
60e6a7d07c93 initial checkin tz parents: diff changeset	5435	!
60e6a7d07c93 initial checkin tz parents: diff changeset	5436
60e6a7d07c93 initial checkin tz parents: diff changeset	5437	viewStyleSetting
60e6a7d07c93 initial checkin tz parents: diff changeset	5438	"open a dialog on viewStyle related settings"
60e6a7d07c93 initial checkin tz parents: diff changeset	5439
60e6a7d07c93 initial checkin tz parents: diff changeset	5440	\|listOfStyles resourceDir dir box
60e6a7d07c93 initial checkin tz parents: diff changeset	5441	list listView scrView infoLabel infoForwarder newStyle
60e6a7d07c93 initial checkin tz parents: diff changeset	5442	someRsrcFile b didApply\|
60e6a7d07c93 initial checkin tz parents: diff changeset	5443
60e6a7d07c93 initial checkin tz parents: diff changeset	5444	"
60e6a7d07c93 initial checkin tz parents: diff changeset	5445	search resources directory for a list of .style files ...
60e6a7d07c93 initial checkin tz parents: diff changeset	5446	"
60e6a7d07c93 initial checkin tz parents: diff changeset	5447	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
60e6a7d07c93 initial checkin tz parents: diff changeset	5448	someRsrcFile notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5449	resourceDir := someRsrcFile asFilename directoryName
60e6a7d07c93 initial checkin tz parents: diff changeset	5450	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5451	resourceDir := Smalltalk getSystemFileName:'resources'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5452	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5453
60e6a7d07c93 initial checkin tz parents: diff changeset	5454	resourceDir isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5455	self warn:'no styles found (missing ''resources'' directory)'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5456	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	5457	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5458	dir := resourceDir asFilename directoryContents.
60e6a7d07c93 initial checkin tz parents: diff changeset	5459
60e6a7d07c93 initial checkin tz parents: diff changeset	5460	listOfStyles := dir select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
60e6a7d07c93 initial checkin tz parents: diff changeset	5461	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
60e6a7d07c93 initial checkin tz parents: diff changeset	5462	Filename isCaseSensitive ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5463	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
60e6a7d07c93 initial checkin tz parents: diff changeset	5464	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5465	listOfStyles sort.
60e6a7d07c93 initial checkin tz parents: diff changeset	5466
60e6a7d07c93 initial checkin tz parents: diff changeset	5467	"/ old code: used a standard ListSelectionBox
60e6a7d07c93 initial checkin tz parents: diff changeset	5468	"/ changed to intercept selection and add info-output.
60e6a7d07c93 initial checkin tz parents: diff changeset	5469
60e6a7d07c93 initial checkin tz parents: diff changeset	5470	"/ box := ListSelectionBox title:(resources string:'STYLE_MSG') withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	5471	"/ box label:(resources string:'Style selection').
60e6a7d07c93 initial checkin tz parents: diff changeset	5472	"/ box list:listOfStyles.
60e6a7d07c93 initial checkin tz parents: diff changeset	5473	"/ box initialText:View defaultStyle.
60e6a7d07c93 initial checkin tz parents: diff changeset	5474	"/ box selectAction:[:newStyle \|
60e6a7d07c93 initial checkin tz parents: diff changeset	5475	"/ ].
60e6a7d07c93 initial checkin tz parents: diff changeset	5476	"/ box action:[:newStyle \|
60e6a7d07c93 initial checkin tz parents: diff changeset	5477	"/ transcript topView withCursor:Cursor wait do:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5478	"/ transcript showCR:'change style to ' , newStyle , ' ...'.
60e6a7d07c93 initial checkin tz parents: diff changeset	5479	"/ View defaultStyle:newStyle asSymbol.
60e6a7d07c93 initial checkin tz parents: diff changeset	5480	"/ ]
60e6a7d07c93 initial checkin tz parents: diff changeset	5481	"/ ].
60e6a7d07c93 initial checkin tz parents: diff changeset	5482	"/ box showAtPointer
60e6a7d07c93 initial checkin tz parents: diff changeset	5483
60e6a7d07c93 initial checkin tz parents: diff changeset	5484	"/ new code: build box 'by 'hand'
60e6a7d07c93 initial checkin tz parents: diff changeset	5485	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	5486	infoForwarder := [
60e6a7d07c93 initial checkin tz parents: diff changeset	5487	\|nm sheet comment\|
60e6a7d07c93 initial checkin tz parents: diff changeset	5488	nm := list selection.
60e6a7d07c93 initial checkin tz parents: diff changeset	5489	sheet := ViewStyle fromFile:(nm , '.style').
60e6a7d07c93 initial checkin tz parents: diff changeset	5490	comment := sheet at:#comment ifAbsent:''.
60e6a7d07c93 initial checkin tz parents: diff changeset	5491	infoLabel label:comment withCRs asStringCollection
60e6a7d07c93 initial checkin tz parents: diff changeset	5492	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5493
60e6a7d07c93 initial checkin tz parents: diff changeset	5494	list := SelectionInList with:listOfStyles.
60e6a7d07c93 initial checkin tz parents: diff changeset	5495	list onChangeSend:#value to:infoForwarder.
60e6a7d07c93 initial checkin tz parents: diff changeset	5496
60e6a7d07c93 initial checkin tz parents: diff changeset	5497	box := Dialog new.
60e6a7d07c93 initial checkin tz parents: diff changeset	5498	box label:(resources string:'Style selection').
60e6a7d07c93 initial checkin tz parents: diff changeset	5499
60e6a7d07c93 initial checkin tz parents: diff changeset	5500	(box addTextLabel:(resources string:'STYLE_MSG') withCRs) adjust:#left.
60e6a7d07c93 initial checkin tz parents: diff changeset	5501	listView := SelectionInListView on:list.
60e6a7d07c93 initial checkin tz parents: diff changeset	5502	listView doubleClickAction:[:sel \| box accept value:true. box hide].
60e6a7d07c93 initial checkin tz parents: diff changeset	5503	scrView := box addComponent:(ScrollableView forView:listView) tabable:true.
60e6a7d07c93 initial checkin tz parents: diff changeset	5504
60e6a7d07c93 initial checkin tz parents: diff changeset	5505	box addVerticalSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	5506
60e6a7d07c93 initial checkin tz parents: diff changeset	5507	(infoLabel := box addTextLabel:'\\' withCRs) adjust:#centerLeft.
60e6a7d07c93 initial checkin tz parents: diff changeset	5508
60e6a7d07c93 initial checkin tz parents: diff changeset	5509	box addAbortButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	5510	b := box addButton:(Button label:(resources string:'apply')).
60e6a7d07c93 initial checkin tz parents: diff changeset	5511	b action:[didApply := true. self changeViewStyleTo:(list selection)].
60e6a7d07c93 initial checkin tz parents: diff changeset	5512	box addOkButton.
60e6a7d07c93 initial checkin tz parents: diff changeset	5513	list selection:(View defaultStyle).
60e6a7d07c93 initial checkin tz parents: diff changeset	5514
60e6a7d07c93 initial checkin tz parents: diff changeset	5515	box stickAtBottomWithVariableHeight:scrView.
60e6a7d07c93 initial checkin tz parents: diff changeset	5516	box stickAtBottomWithFixHeight:infoLabel.
60e6a7d07c93 initial checkin tz parents: diff changeset	5517	box open.
60e6a7d07c93 initial checkin tz parents: diff changeset	5518
60e6a7d07c93 initial checkin tz parents: diff changeset	5519	box accepted ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5520	((newStyle := list selection) ~= View defaultStyle
60e6a7d07c93 initial checkin tz parents: diff changeset	5521	or:[didApply ~~ true]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	5522	self changeViewStyleTo:newStyle.
60e6a7d07c93 initial checkin tz parents: diff changeset	5523	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5524	].
60e6a7d07c93 initial checkin tz parents: diff changeset	5525	box destroy
60e6a7d07c93 initial checkin tz parents: diff changeset	5526
60e6a7d07c93 initial checkin tz parents: diff changeset	5527
60e6a7d07c93 initial checkin tz parents: diff changeset	5528	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	5529
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	5530	!NewLauncher methodsFor:'action - projects'!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5531
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5532	newProject
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5533	"creates a new project & opens a projectView for it"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5534
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5535	Project notNil ifTrue: [(ProjectView for: Project new) open]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5536	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5537
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5538	selectProject
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5539	"asks for and switch to another project"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5540
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5541	\|list box\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5542
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5543	Project notNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5544	list := Project allInstances.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5545	box := ListSelectionBox new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5546	box list:(list collect:[:p \| p name]).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5547	box title:(resources string:'select a project').
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5548	box action:[:selection \|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5549	\|project\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5550
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5551	project := list detect:[:p \| p name = selection] ifNone:[nil].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5552	project isNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5553	transcript showCR:'no such project.'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5554	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5555	project showViews.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5556	Project current:project
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5557	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5558	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5559	box showAtPointer.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5560	box destroy
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5561	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5562	! !
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5563
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5564	!NewLauncher methodsFor:'action - settings'!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5565
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5566	changeFont
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5567
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5568	\|viewClassName updateFontLabelBlock viewClass\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5569
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5570	viewClassName := (self settingsAspects at: #selectionOfViewClass) value name.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5571
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5572	viewClass := Smalltalk at: viewClassName asSymbol.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5573	viewClass defaultFont: (self chooseFontFromViewClass: viewClass).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5574	self updatePreviewFontLabel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5575
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5576	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5577
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5578	changeFontFor: viewClassName
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5579
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5580	viewClassName = 'All'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5581	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5582	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5583	\|choosedFontForAll\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5584	choosedFontForAll := self chooseFontFromViewClass: View.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5585	SimpleView withAllSubclasses do:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5586	[:viewCls\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5587	viewCls defaultFont: choosedFontForAll.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5588	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5589	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5590	viewClassName = 'Default'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5591	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5592	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5593	SimpleView updateAllStyleCaches.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5594	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5595
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5596	self updatePreviewFontLabel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5597	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5598
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5599	chooseFontFromViewClass: aViewClass
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5600
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5601	^FontPanel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5602	fontFromUserInitial: aViewClass defaultFont
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5603	title:(resources string:'font for %1' with:aViewClass name)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5604	filter:nil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5605
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5606	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5607
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5608	createAspectsForFontsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5609	"create aspects for font settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5610
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5611	\|listOfViewClasses selectionOfViewClass updatePreviewFontLabelBlock\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5612
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5613	listOfViewClasses := (TreeItem newAsTreeFromSmalltalkClass: (Smalltalk at:#SimpleView)).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5614	selectionOfViewClass := listOfViewClasses asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5615	selectionOfViewClass onChangeSend:#updatePreviewFontLabel to: self.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5616
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5617	self settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5618	at: #listOfViewClasses put: listOfViewClasses;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5619	at: #selectionOfViewClass put: selectionOfViewClass
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5620
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5621
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5622
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5623
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5624
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5625
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5626	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5627
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5628	createAspectsForKeyboardSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5629	"create aspects for keyboard settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5630
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5631	\|mappings listOfRawKeys listOfFunctions list1 list2 selectionForwarder macroForwarder keyMacroText\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5632
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5633	mappings := Screen current keyboardMap.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5634
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5635	listOfRawKeys := (mappings keys asArray collect:[:key \| key asString]) sort.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5636	listOfFunctions := (mappings values asSet asArray collect:[:key \| key asString]) sort.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5637	keyMacroText := ValueHolder new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5638	selectionForwarder := Plug new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5639	selectionForwarder respondTo:#showFunction
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5640	with:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5641	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5642	\|raw\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5643	raw := list1 selection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5644	list2 retractInterestsFor:selectionForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5645	list2 selection:(mappings at:raw asSymbol) asString.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5646	list2 onChangeSend:#showRawKey to:selectionForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5647	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5648	selectionForwarder respondTo:#showRawKey
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5649	with:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5650	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5651	\|f raw\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5652	f := list2 selection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5653	list1 retractInterestsFor:selectionForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5654	raw := mappings keyAtValue:f asString.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5655	raw isNil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5656	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5657	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5658	raw := mappings keyAtValue:f first.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5659	raw isNil ifTrue: [raw := mappings keyAtValue:f asSymbol]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5660	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5661	list1 selection:raw.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5662	list1 onChangeSend:#showFunction to:selectionForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5663	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5664
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5665	macroForwarder :=
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5666	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5667	\|f macro indent\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5668	f := list2 selection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5669	(f startsWith:'Cmd') ifTrue:[f := f copyFrom:4].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5670	macro := FunctionKeySequences at:(f asSymbol) ifAbsent:nil.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5671	macro notNil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5672	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5673	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5674	macro := macro asStringCollection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5675	indent := macro
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5676	inject:99999 into:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5677	[:min :element\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5678	\|stripped\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5679	stripped := element withoutLeadingSeparators.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5680	stripped size == 0
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5681	ifTrue:[min]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5682	ifFalse:[min min:(element size - stripped size)]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5683	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5684	indent ~~ 0
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5685	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5686	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5687	macro := macro collect:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5688	[:line \|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5689	line size > indent
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5690	ifTrue:[line copyFrom:indent+1]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5691	ifFalse:[line]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5692	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5693	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5694	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5695	keyMacroText value:macro
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5696	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5697
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5698	list1 := SelectionInList with:listOfRawKeys.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5699	list1 onChangeSend:#showFunction to:selectionForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5700
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5701	list2 := SelectionInList with:listOfFunctions.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5702	list2 onChangeSend:#showRawKey to:selectionForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5703	list2 onChangeSend:#value to:macroForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5704
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5705	self settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5706	at: #listOfRawKeys put: list1;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5707	at: #listOfFunctions put: list2;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5708	at: #keyMacroText put: keyMacroText;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5709	at: #help put: [self showDocumentation:'Launcher/keyboardSetting.html'];
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5710	at: #dismiss put: []
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5711
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5712
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5713	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5714
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5715	createAspectsForLanguageSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5716	"create aspects for language settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5717
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5718	\|listOfLanguages translatedLanguages switch box languageList flags\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5719
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5720	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5721	listOfLanguages := listOfLanguages asOrderedCollection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5722	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5723	item := resources at:lang.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5724	item isString ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5725	item
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5726	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5727	item at:1
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5728	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5729	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5730	flags := listOfLanguages collect:[:lang \| \|item\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5731	item := resources at:lang.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5732	item isArray ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5733	item at:2
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5734	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5735	nil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5736	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5737	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5738	flags := flags collect:[:nm \| nm notNil ifTrue:[Image fromFile:nm] ifFalse:[nil]].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5739
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5740	languageList := translatedLanguages with:flags collect:[:lang :flag \|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5741	LabelAndIcon icon:flag string:lang.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5742	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5743
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5744	self settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5745	at: #listOfLanguages put: languageList asValue;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5746	at: #selectionOflanguage put: Language asValue;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5747	at: #apply put: [:newLanguage \|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5748	self withWaitCursorDo:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5749	\|fontPref idx language oldLanguage enc answer matchingFonts\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5750
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5751	idx := translatedLanguages indexOf:newLanguage withoutSeparators.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5752	idx ~~ 0 ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5753	language := listOfLanguages at:idx
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5754	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5755	language := newLanguage
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5756	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5757
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5758	"/ check if the new language needs a differently encoded font;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5759	"/ ask user to switch font and allow cancellation.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5760	"/ Otherwise, you are left with unreadable menu & button items ...
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5761
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5762	oldLanguage := Smalltalk language.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5763	Smalltalk language:language asSymbol.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5764	ResourcePack flushCachedResourcePacks.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5765	fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5766	Smalltalk language:oldLanguage.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5767
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5768	switch := true.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5769	enc := MenuView defaultFont encoding.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5770	(fontPref match:enc) ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5771	"/ look if there is one at all.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5772	matchingFonts := Screen current listOfAvailableFonts select:[:f \| fontPref match:f encoding].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5773	matchingFonts size == 0 ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5774	(Dialog
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5775	confirm:(resources
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5776	string:'your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5777	with:fontPref) withCRs)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5778	ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5779	switch := false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5780	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5781	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5782	answer := Dialog
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5783	confirmWithCancel:(resources
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5784	string:'menu font is not %1-encoded.\\Change it ?'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5785	with:fontPref) withCRs
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5786	labels:(resources
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5787	array:#('cancel' 'no' 'yes'))
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5788	default:3.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5789	answer isNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5790	switch := false
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5791	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5792	answer ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5793	switch := (self fontBoxForEncoding:fontPref)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5794	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5795	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5796	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5797	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5798
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5799	switch ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5800	transcript showCR:'change language to ' , newLanguage , ' ...'.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5801	Smalltalk language:language asSymbol.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5802	ResourcePack flushCachedResourcePacks
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5803	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5804	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5805	switch ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5806	self reOpen.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5807	DebugView newDebugger.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5808	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5809	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5810	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5811
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5812	createAspectsForMemorySettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5813	"create aspects for memory settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5814
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5815
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5816
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5817	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5818
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5819	createAspectsForMessagesSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5820	"create aspects for messages settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5821
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5822
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5823
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5824	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5825
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5826	createAspectsForMiscSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5827	"create aspects for misc settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5828
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5829	\|shadowsUnderPopupViews boxesReturnsFocus viewsCatchFocus hostnameInWindowLabels showAccelerators\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5830
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5831	shadowsUnderPopupViews := PopUpView shadows asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5832	shadowsUnderPopupViews onChangeSend: #value to: [PopUpView shadows: shadowsUnderPopupViews value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5833	boxesReturnsFocus := StandardSystemView returnFocusWhenClosingModalBoxes asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5834	boxesReturnsFocus onChangeSend: #value to: [StandardSystemView returnFocusWhenClosingModalBoxes: boxesReturnsFocus value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5835	viewsCatchFocus := StandardSystemView takeFocusWhenMapped asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5836	viewsCatchFocus onChangeSend: #value to: [StandardSystemView takeFocusWhenMapped: viewsCatchFocus value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5837	hostnameInWindowLabels := StandardSystemView includeHostNameInLabel asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5838	hostnameInWindowLabels onChangeSend: #value to:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5839	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5840	hostnameInWindowLabels value ~~ StandardSystemView includeHostNameInLabel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5841	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5842	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5843	StandardSystemView includeHostNameInLabel:hostnameInWindowLabels value.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5844	Screen allScreens do:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5845	[:aDisplay\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5846	aDisplay allViewsDo:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5847	[:aView\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5848	\|l\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5849	aView isTopView ifTrue: [l := aView label.aView label:(l , ' '); label:l]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5850	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5851	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5852	]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5853	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5854	showAccelerators := MenuView showAcceleratorKeys asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5855	showAccelerators onChangeSend: #value to: [MenuView showAcceleratorKeys: showAccelerators value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5856
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5857	self settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5858	at: #shadowsUnderPopupViews put: shadowsUnderPopupViews;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5859	at: #boxesReturnsFocus put: boxesReturnsFocus;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5860	at: #viewsCatchFocus put: viewsCatchFocus;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5861	at: #hostnameInWindowLabels put: hostnameInWindowLabels;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5862	at: #showAccelerators put: showAccelerators
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5863
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5864	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5865
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5866	createAspectsForPrinterSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5867	"create aspects for printer settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5868
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5869
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5870
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5871	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5872
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5873	createAspectsForScreenSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5874	"create aspects for screen settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5875
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5876
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5877
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5878	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5879
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5880	createAspectsForSourcesSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5881	"create aspects for sources settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5882
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5883	\|rememberChangedMethods logCompilesInChangesFile logDoItsInChangesFile
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5884	sourceCodeFromSourceCodeManagement hasSourceCodeManager manager directoryOfSourceCodeCache
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5885	nameOfChangesFile directoryOfRepository useLocalSourceCode\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5886
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5887	rememberChangedMethods := Class methodHistory notNil asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5888	rememberChangedMethods onChangeSend: #value to: [Class keepMethodHistory: rememberChangedMethods value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5889	logCompilesInChangesFile := Class updatingChanges asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5890	logCompilesInChangesFile onChangeSend: #value to: [Class updateChanges: logCompilesInChangesFile value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5891	logDoItsInChangesFile := Smalltalk logDoits asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5892	logDoItsInChangesFile onChangeSend: #value to: [Smalltalk logDoits: logDoItsInChangesFile value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5893
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5894	nameOfChangesFile := ObjectMemory nameForChanges asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5895	nameOfChangesFile onChangeSend: #value to: [ObjectMemory nameForChanges:nameOfChangesFile value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5896
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5897	hasSourceCodeManager := AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5898	sourceCodeFromSourceCodeManagement := (hasSourceCodeManager and: [(manager := Smalltalk at:#SourceCodeManager) notNil]) asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5899	sourceCodeFromSourceCodeManagement onChangeSend: #value to:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5900	[sourceCodeFromSourceCodeManagement value
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5901	ifTrue: [Smalltalk at:#SourceCodeManager put: AbstractSourceCodeManager defaultManager]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5902	ifFalse: [Smalltalk at:#SourceCodeManager put: nil]].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5903
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5904	manager notNil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5905	ifTrue:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5906	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5907	\|repository\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5908	repository := manager repositoryName.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5909	repository notNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5910	directoryOfRepository := repository asValue
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5911	] ifFalse:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5912	directoryOfRepository := '' asValue
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5913	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5914	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5915	directoryOfRepository onChangeSend: #value to: [manager initializeForRepository: directoryOfRepository value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5916
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5917	directoryOfSourceCodeCache := AbstractSourceCodeManager cacheDirectoryName.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5918	directoryOfSourceCodeCache onChangeSend: #value to: [].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5919
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5920	useLocalSourceCode := Class tryLocalSourceFirst asValue.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5921	useLocalSourceCode onChangeSend: #value to: [Class tryLocalSourceFirst: useLocalSourceCode value].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5922
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5923	self settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5924	at: #rememberChangedMethods put: rememberChangedMethods;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5925	at: #logCompilesInChangesFile put: logCompilesInChangesFile;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5926	at: #logDoItsInChangesFile put: logDoItsInChangesFile;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5927	at: #hasSourceCodeManager put: hasSourceCodeManager asValue;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5928	at: #nameOfChangesFile put: nameOfChangesFile;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5929	at: #sourceCodeFromSourceCodeManagement put: sourceCodeFromSourceCodeManagement;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5930	at: #directoryOfRepository put: directoryOfRepository;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5931	at: #directoryOfSourceCodeCache put: directoryOfSourceCodeCache;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5932	at: #useLocalSourceCode put: useLocalSourceCode
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5933
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5934	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5935
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5936	createAspectsForViewsSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5937	"open a dialog on viewStyle related settings"
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5938
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5939	\|listOfStyles resourceDir dir listOfViewStyles selection infoLabel infoForwarder someRsrcFile\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5940
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5941	"search resources directory for a list of .style files ..."
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5942
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5943	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5944	someRsrcFile notNil
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5945	ifTrue:[resourceDir := someRsrcFile asFilename directoryName]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5946	ifFalse:[resourceDir := Smalltalk getSystemFileName:'resources'].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5947
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5948	resourceDir isNil ifTrue:[self warn:'no styles found (missing ''resources'' directory)'. ^ self].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5949	dir := resourceDir asFilename directoryContents.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5950
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5951	listOfStyles := dir select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5952	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5953	Filename isCaseSensitive
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5954	ifFalse:
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5955	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5956	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5957	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5958	listOfStyles sort.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5959
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5960	infoLabel := ValueHolder with: View defaultStyle.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5961	selection := ValueHolder with: (listOfStyles indexOf: View defaultStyle).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5962
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5963	infoForwarder :=
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5964	[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5965	\|nm sheet comment\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5966	nm := listOfViewStyles selection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5967	sheet := ViewStyle fromFile:(nm , '.style').
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5968	comment := sheet at:#comment ifAbsent:''.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5969	infoLabel value:comment withCRs asStringCollection asString trimBlanks
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5970	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5971
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5972	listOfViewStyles := SelectionInList with:listOfStyles.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5973	listOfViewStyles onChangeSend:#value to:infoForwarder.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5974	listOfViewStyles selectionIndexHolder: selection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5975
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5976	self settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5977	at: #listOfViewStyles put: listOfViewStyles;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5978	at: #infoLabel put: infoLabel;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5979	at: #apply put: [self changeViewStyleTo: (listOfStyles at: selection value)]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5980
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5981	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5982
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5983	doForCurrentSettings: aDoKey
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5984
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5985	(self settingsAspects at: aDoKey asSymbol ifAbsent: [^self warn: 'No action found for ', aDoKey, '!!']) value
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5986	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5987
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5988	openSettingsFor: aSetting
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5989
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5990	self settingsAspects at: #settingsCanvas put: SubCanvas new.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5991	aSetting = 'StyleSettings' ifTrue: [self selectionOfSettings value: 'Views'].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5992	aSetting = 'SystemSettings' ifTrue: [self selectionOfSettings value: 'Sources'].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5993	super openDialogInterface: (#windowSpecFor, aSetting) asSymbol.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5994	settingsAspects := nil.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5995	self removeAllTemporalViews.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5996	self builder bindings removeKey: #selectionOfSettings
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5997	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5998
da20bf21fb13 first offical release tz parents: 1406 diff changeset	5999	settingsAspects
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6000
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6001	^settingsAspects ? (settingsAspects := IdentityDictionary new)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6002	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6003
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6004	settingsSelection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6005
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6006	^settingsSelection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6007	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6008
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6009	settingsSelection: aSettingsSelection
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6010
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6011	settingsSelection := aSettingsSelection.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6012
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6013	self perform: ('createAspectsFor', settingsSelection, 'Settings') asSymbol.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6014	(self settingsAspects at: #settingsCanvas) client: self spec: ('windowSpecOf', settingsSelection, 'Settings') asSymbol.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6015	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6016
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6017	updatePreviewFontLabel
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6018
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6019	\|viewClassFont viewClass viewClassName\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6020	viewClassFont := (viewClass := Smalltalk at: (self settingsAspects at: #selectionOfViewClass) value name ifAbsent: [SimpleView]) defaultFont.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6021	(self builder componentAt: #fontFamilyLabel_Temporal) label: 'Family: ' , viewClassFont family asBoldText.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6022	(self builder componentAt: #fontFaceLabel_Temporal) label: 'Face: ' , viewClassFont face asBoldText.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6023	(self builder componentAt: #fontStyleLabel_Temporal) label: 'Style: ' , viewClassFont style asBoldText.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6024	(self builder componentAt: #fontSizeLabel_Temporal) label: 'Size: ' , viewClassFont size printString asBoldText.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6025	(self builder componentAt: #fontEncodingLabel_Temporal) label: 'Encoding: ', viewClassFont encoding asBoldText.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6026
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6027	(viewClassName := viewClass name) size > 10
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6028	ifTrue: [viewClassName := (viewClassName copyFrom: 1 to: 10) asBoldText, '...']
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6029	ifFalse: [viewClassName := viewClassName asBoldText].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6030
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6031	(self builder componentAt: #changeFontButton_Temporal)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6032	sizeFixed: true;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6033	label: 'Change Font of ', viewClassName.
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6034
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6035	(self builder componentAt: #previewFontLabel_Temporal)
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6036	font: viewClassFont;
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6037	label: 'The quick brown fox jumps over the lazy dog
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6038	1234567890!!@#$%^&*(){}[]:"~;,./<>?��ũ'
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6039	! !
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6040
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6041	!NewLauncher methodsFor:'action - tools'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6042
60e6a7d07c93 initial checkin tz parents: diff changeset	6043	compressingGarbageCollect
60e6a7d07c93 initial checkin tz parents: diff changeset	6044	"perform a compressing garbageCollect"
60e6a7d07c93 initial checkin tz parents: diff changeset	6045
60e6a7d07c93 initial checkin tz parents: diff changeset	6046	ObjectMemory verboseGarbageCollect
60e6a7d07c93 initial checkin tz parents: diff changeset	6047
60e6a7d07c93 initial checkin tz parents: diff changeset	6048	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6049
60e6a7d07c93 initial checkin tz parents: diff changeset	6050	deIconifyAllWindows
60e6a7d07c93 initial checkin tz parents: diff changeset	6051	\|setOfViews\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6052
60e6a7d07c93 initial checkin tz parents: diff changeset	6053	setOfViews := Project current views asIdentitySet.
60e6a7d07c93 initial checkin tz parents: diff changeset	6054	setOfViews addAll:(Project defaultProject views).
60e6a7d07c93 initial checkin tz parents: diff changeset	6055
60e6a7d07c93 initial checkin tz parents: diff changeset	6056	setOfViews do:[:aTopView \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6057	aTopView device == Screen current ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6058	aTopView expand
60e6a7d07c93 initial checkin tz parents: diff changeset	6059	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6060	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6061
60e6a7d07c93 initial checkin tz parents: diff changeset	6062	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6063
60e6a7d07c93 initial checkin tz parents: diff changeset	6064	findAndDestroyWindow
60e6a7d07c93 initial checkin tz parents: diff changeset	6065	"find a window (by name) and destroy it"
60e6a7d07c93 initial checkin tz parents: diff changeset	6066
60e6a7d07c93 initial checkin tz parents: diff changeset	6067	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6068	v := self findWindow:'select view to close:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6069	v notNil ifTrue:[v destroy]
60e6a7d07c93 initial checkin tz parents: diff changeset	6070
60e6a7d07c93 initial checkin tz parents: diff changeset	6071	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6072
60e6a7d07c93 initial checkin tz parents: diff changeset	6073	findAndRaiseWindow
60e6a7d07c93 initial checkin tz parents: diff changeset	6074	"find a window (by name) and raise it"
60e6a7d07c93 initial checkin tz parents: diff changeset	6075
60e6a7d07c93 initial checkin tz parents: diff changeset	6076	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6077
60e6a7d07c93 initial checkin tz parents: diff changeset	6078	v := self findWindow:'select view to raise deiconified:'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6079	v notNil ifTrue:[v raiseDeiconified]
60e6a7d07c93 initial checkin tz parents: diff changeset	6080
60e6a7d07c93 initial checkin tz parents: diff changeset	6081	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6082
60e6a7d07c93 initial checkin tz parents: diff changeset	6083	fullScreenHardcopy
60e6a7d07c93 initial checkin tz parents: diff changeset	6084	"after a second (to allow redraw of views under menu ...),
60e6a7d07c93 initial checkin tz parents: diff changeset	6085	save the contents of the whole screen."
60e6a7d07c93 initial checkin tz parents: diff changeset	6086
60e6a7d07c93 initial checkin tz parents: diff changeset	6087	Processor
60e6a7d07c93 initial checkin tz parents: diff changeset	6088	addTimedBlock:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6089	self
60e6a7d07c93 initial checkin tz parents: diff changeset	6090	saveScreenImage:(Image fromScreen)
60e6a7d07c93 initial checkin tz parents: diff changeset	6091	defaultName:'screen'
60e6a7d07c93 initial checkin tz parents: diff changeset	6092	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6093	afterSeconds:1
60e6a7d07c93 initial checkin tz parents: diff changeset	6094
60e6a7d07c93 initial checkin tz parents: diff changeset	6095	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6096
60e6a7d07c93 initial checkin tz parents: diff changeset	6097	garbageCollect
60e6a7d07c93 initial checkin tz parents: diff changeset	6098	"perform a non-compressing garbageCollect"
60e6a7d07c93 initial checkin tz parents: diff changeset	6099
60e6a7d07c93 initial checkin tz parents: diff changeset	6100	ObjectMemory reclaimSymbols
60e6a7d07c93 initial checkin tz parents: diff changeset	6101
60e6a7d07c93 initial checkin tz parents: diff changeset	6102	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6103
60e6a7d07c93 initial checkin tz parents: diff changeset	6104	iconifyAllWindows
60e6a7d07c93 initial checkin tz parents: diff changeset	6105	\|setOfViews\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6106
60e6a7d07c93 initial checkin tz parents: diff changeset	6107	setOfViews := Project current views asIdentitySet.
60e6a7d07c93 initial checkin tz parents: diff changeset	6108	setOfViews addAll:(Project defaultProject views).
60e6a7d07c93 initial checkin tz parents: diff changeset	6109
60e6a7d07c93 initial checkin tz parents: diff changeset	6110	setOfViews do:[:aTopView \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6111	aTopView device == Screen current ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6112	aTopView collapse
60e6a7d07c93 initial checkin tz parents: diff changeset	6113	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6114	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6115
60e6a7d07c93 initial checkin tz parents: diff changeset	6116	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6117
60e6a7d07c93 initial checkin tz parents: diff changeset	6118	pickAView
60e6a7d07c93 initial checkin tz parents: diff changeset	6119	"let user pick a view and return it"
60e6a7d07c93 initial checkin tz parents: diff changeset	6120
60e6a7d07c93 initial checkin tz parents: diff changeset	6121	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6122
60e6a7d07c93 initial checkin tz parents: diff changeset	6123	(Delay forSeconds:1) wait.
60e6a7d07c93 initial checkin tz parents: diff changeset	6124	v := Screen current viewFromUser.
60e6a7d07c93 initial checkin tz parents: diff changeset	6125	v isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6126	self warn:'Sorry, this is not a smalltalk view'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6127	^ nil
60e6a7d07c93 initial checkin tz parents: diff changeset	6128	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6129	^ v
60e6a7d07c93 initial checkin tz parents: diff changeset	6130
60e6a7d07c93 initial checkin tz parents: diff changeset	6131	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6132
60e6a7d07c93 initial checkin tz parents: diff changeset	6133	screenHardcopy
60e6a7d07c93 initial checkin tz parents: diff changeset	6134	"after a second (to allow redraw of views under menu ...),
60e6a7d07c93 initial checkin tz parents: diff changeset	6135	let user specify a rectangular area on the screen
60e6a7d07c93 initial checkin tz parents: diff changeset	6136	and save its contents."
60e6a7d07c93 initial checkin tz parents: diff changeset	6137
60e6a7d07c93 initial checkin tz parents: diff changeset	6138	\|area\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6139
60e6a7d07c93 initial checkin tz parents: diff changeset	6140	Processor
60e6a7d07c93 initial checkin tz parents: diff changeset	6141	addTimedBlock:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6142	[Screen current leftButtonPressed] whileTrue:[Processor yield].
60e6a7d07c93 initial checkin tz parents: diff changeset	6143
60e6a7d07c93 initial checkin tz parents: diff changeset	6144	area := Rectangle fromUser.
60e6a7d07c93 initial checkin tz parents: diff changeset	6145	(area width > 0 and:[area height > 0]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6146	self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
60e6a7d07c93 initial checkin tz parents: diff changeset	6147	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6148	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6149	afterSeconds:1
60e6a7d07c93 initial checkin tz parents: diff changeset	6150
60e6a7d07c93 initial checkin tz parents: diff changeset	6151	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6152
60e6a7d07c93 initial checkin tz parents: diff changeset	6153	startLatencyMonitor
60e6a7d07c93 initial checkin tz parents: diff changeset	6154	"open an interruptLatencyMonitor view"
60e6a7d07c93 initial checkin tz parents: diff changeset	6155
60e6a7d07c93 initial checkin tz parents: diff changeset	6156	InterruptLatencyMonitor notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6157	Autoload autoloadFailedSignal catch:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6158	InterruptLatencyMonitor autoload.
60e6a7d07c93 initial checkin tz parents: diff changeset	6159	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6160	InterruptLatencyMonitor isLoaded ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6161	InterruptLatencyMonitor open.
60e6a7d07c93 initial checkin tz parents: diff changeset	6162	^ self.
60e6a7d07c93 initial checkin tz parents: diff changeset	6163	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6164	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6165	self warn:'Sorry - the irq latency monitor is only available
60e6a7d07c93 initial checkin tz parents: diff changeset	6166	in the full commercial release'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6167
60e6a7d07c93 initial checkin tz parents: diff changeset	6168	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6169
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6170	startOldLauncher
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6171	Launcher openAt:(self window origin)
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6172
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6173	"Created: / 5.2.1998 / 19:33:41 / cg"
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6174	!
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6175
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6176	startStopEventTrace
60e6a7d07c93 initial checkin tz parents: diff changeset	6177	"start/stop event tracing for a particular view"
60e6a7d07c93 initial checkin tz parents: diff changeset	6178
60e6a7d07c93 initial checkin tz parents: diff changeset	6179	\|v wg\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6180
60e6a7d07c93 initial checkin tz parents: diff changeset	6181	v := Screen current viewFromUser.
60e6a7d07c93 initial checkin tz parents: diff changeset	6182	v notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6183	v := v topView.
60e6a7d07c93 initial checkin tz parents: diff changeset	6184	wg := v windowGroup.
60e6a7d07c93 initial checkin tz parents: diff changeset	6185	wg notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6186	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	6187	"/ toggle eventTrace in its windowGroup
60e6a7d07c93 initial checkin tz parents: diff changeset	6188	"/
60e6a7d07c93 initial checkin tz parents: diff changeset	6189	wg traceEvents:(wg preEventHook isNil)
60e6a7d07c93 initial checkin tz parents: diff changeset	6190	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6191	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6192
60e6a7d07c93 initial checkin tz parents: diff changeset	6193	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6194
60e6a7d07c93 initial checkin tz parents: diff changeset	6195	startWindowTreeView
60e6a7d07c93 initial checkin tz parents: diff changeset	6196	"open a windowTree view (on a topView)"
60e6a7d07c93 initial checkin tz parents: diff changeset	6197
60e6a7d07c93 initial checkin tz parents: diff changeset	6198	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6199
60e6a7d07c93 initial checkin tz parents: diff changeset	6200	v := self pickAView.
60e6a7d07c93 initial checkin tz parents: diff changeset	6201	v notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6202	WindowTreeView openOn:v topView
60e6a7d07c93 initial checkin tz parents: diff changeset	6203	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6204
60e6a7d07c93 initial checkin tz parents: diff changeset	6205	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6206
60e6a7d07c93 initial checkin tz parents: diff changeset	6207	viewDestroy
60e6a7d07c93 initial checkin tz parents: diff changeset	6208	"let user pick a view and destroy it.
60e6a7d07c93 initial checkin tz parents: diff changeset	6209	Even allow destroying non-smalltalk views
60e6a7d07c93 initial checkin tz parents: diff changeset	6210	(also for views which I forgot due to some error)"
60e6a7d07c93 initial checkin tz parents: diff changeset	6211
60e6a7d07c93 initial checkin tz parents: diff changeset	6212	\|device v id i c\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6213
60e6a7d07c93 initial checkin tz parents: diff changeset	6214	(Delay forSeconds:1) wait.
60e6a7d07c93 initial checkin tz parents: diff changeset	6215
60e6a7d07c93 initial checkin tz parents: diff changeset	6216	device := Screen current.
60e6a7d07c93 initial checkin tz parents: diff changeset	6217	i := Image fromFile:'bitmaps/xpmBitmaps/cursors/cross2.xpm'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6218	i isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6219	c := Cursor crossHair
60e6a7d07c93 initial checkin tz parents: diff changeset	6220	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6221	c := Cursor fromImage:i
60e6a7d07c93 initial checkin tz parents: diff changeset	6222	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6223	id := device viewIdFromPoint:(device pointFromUserShowing:c).
60e6a7d07c93 initial checkin tz parents: diff changeset	6224	(v := device viewFromId:id) notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6225	v topView destroy.
60e6a7d07c93 initial checkin tz parents: diff changeset	6226	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	6227	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6228	id = device rootView id ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6229	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	6230	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6231	(Dialog confirm:'mhmh, this may not a be smalltalk view\(Or I somehow forgot about it).\Destroy anyway ?' withCRs)
60e6a7d07c93 initial checkin tz parents: diff changeset	6232	ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6233	device destroyView:nil withId:id
60e6a7d07c93 initial checkin tz parents: diff changeset	6234	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6235
60e6a7d07c93 initial checkin tz parents: diff changeset	6236
60e6a7d07c93 initial checkin tz parents: diff changeset	6237	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6238
60e6a7d07c93 initial checkin tz parents: diff changeset	6239	viewHardcopy
60e6a7d07c93 initial checkin tz parents: diff changeset	6240	"after a second (to allow redraw of views under menu ...),
60e6a7d07c93 initial checkin tz parents: diff changeset	6241	let user specify a view and save its contents."
60e6a7d07c93 initial checkin tz parents: diff changeset	6242
60e6a7d07c93 initial checkin tz parents: diff changeset	6243	Processor
60e6a7d07c93 initial checkin tz parents: diff changeset	6244	addTimedBlock:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6245	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6246	(v := Screen current viewFromUser) notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6247	self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
60e6a7d07c93 initial checkin tz parents: diff changeset	6248	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6249	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6250	afterSeconds:1
60e6a7d07c93 initial checkin tz parents: diff changeset	6251
60e6a7d07c93 initial checkin tz parents: diff changeset	6252	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6253
60e6a7d07c93 initial checkin tz parents: diff changeset	6254	viewInspect
60e6a7d07c93 initial checkin tz parents: diff changeset	6255	"let user pick a view and inspect it. Only smalltalk views are allowed"
60e6a7d07c93 initial checkin tz parents: diff changeset	6256
60e6a7d07c93 initial checkin tz parents: diff changeset	6257	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6258
60e6a7d07c93 initial checkin tz parents: diff changeset	6259	(v := self pickAView) notNil
60e6a7d07c93 initial checkin tz parents: diff changeset	6260	ifTrue:
60e6a7d07c93 initial checkin tz parents: diff changeset	6261	[
60e6a7d07c93 initial checkin tz parents: diff changeset	6262	v inspect
60e6a7d07c93 initial checkin tz parents: diff changeset	6263	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6264
60e6a7d07c93 initial checkin tz parents: diff changeset	6265	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	6266
1417 9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6267	!NewLauncher methodsFor:'active help'!
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6268
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6269	defaultInfoLabel
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6270
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6271	^self updateInfo
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6272
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6273	! !
9c3590232965 after showing help text returns to default info label text tz parents: 1414 diff changeset	6274
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6275	!NewLauncher methodsFor:'aspects'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6276
60e6a7d07c93 initial checkin tz parents: diff changeset	6277	enableDangerousMenuItemsInRemoteLauncher
60e6a7d07c93 initial checkin tz parents: diff changeset	6278
60e6a7d07c93 initial checkin tz parents: diff changeset	6279	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6280	(holder := builder bindingAt:#enableDangerousMenuItemsInRemoteLauncher) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6281	builder aspectAt:#enableDangerousMenuItemsInRemoteLauncher put:(holder := true asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6282	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6283	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6284	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6285
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	6286	selectionOfSettings
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6287
60e6a7d07c93 initial checkin tz parents: diff changeset	6288	\|holder\|
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	6289	(holder := builder bindingAt:#selectionOfSettings) isNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6290	builder aspectAt:#selectionOfSettings put:(holder :=
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6291	AspectAdaptor new subject: self; forAspect: #settingsSelection)
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6292	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6293	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6294	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6295
60e6a7d07c93 initial checkin tz parents: diff changeset	6296	valueOfApplicationName
60e6a7d07c93 initial checkin tz parents: diff changeset	6297
60e6a7d07c93 initial checkin tz parents: diff changeset	6298	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6299	(holder := builder bindingAt:#valueOfApplicationName) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6300	builder aspectAt:#valueOfApplicationName put:(holder := 'application' asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6301	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6302	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6303	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6304
60e6a7d07c93 initial checkin tz parents: diff changeset	6305	valueOfBuildDate
60e6a7d07c93 initial checkin tz parents: diff changeset	6306
60e6a7d07c93 initial checkin tz parents: diff changeset	6307	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6308	(holder := builder bindingAt:#valueOfBuildDate) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6309	builder aspectAt:#valueOfBuildDate put:(holder := ValueHolder new).
60e6a7d07c93 initial checkin tz parents: diff changeset	6310	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6311	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6312	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6313
60e6a7d07c93 initial checkin tz parents: diff changeset	6314	valueOfConfiguration
60e6a7d07c93 initial checkin tz parents: diff changeset	6315
60e6a7d07c93 initial checkin tz parents: diff changeset	6316	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6317	(holder := builder bindingAt:#valueOfConfiguration) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6318	builder aspectAt:#valueOfConfiguration put:(holder := Smalltalk configuration asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6319	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6320	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6321	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6322
60e6a7d07c93 initial checkin tz parents: diff changeset	6323	valueOfDefaultLibs
60e6a7d07c93 initial checkin tz parents: diff changeset	6324
60e6a7d07c93 initial checkin tz parents: diff changeset	6325	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6326	(holder := builder bindingAt:#valueOfDefaultLibs) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6327	builder aspectAt:#valueOfDefaultLibs put:(holder := true asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6328	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6329	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6330	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6331
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	6332	valueOfEnablingIfAvailable
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6333
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6334	\|holder\|
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6335	(holder := builder bindingAt:#valueOfEnablingIfAvailable) isNil ifTrue:[
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6336	builder aspectAt:#valueOfEnablingIfAvailable put:(holder := false asValue).
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6337	].
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6338	^ holder
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6339	!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6340
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6341	valueOfLibcomp
60e6a7d07c93 initial checkin tz parents: diff changeset	6342
60e6a7d07c93 initial checkin tz parents: diff changeset	6343	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6344	(holder := builder bindingAt:#valueOfLibcomp) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6345	builder aspectAt:#valueOfLibcomp put:(holder := false asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6346	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6347	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6348	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6349
60e6a7d07c93 initial checkin tz parents: diff changeset	6350	valueOfLibhtml
60e6a7d07c93 initial checkin tz parents: diff changeset	6351
60e6a7d07c93 initial checkin tz parents: diff changeset	6352	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6353	(holder := builder bindingAt:#valueOfLibhtml) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6354	builder aspectAt:#valueOfLibhtml put:(holder := false asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6355	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6356	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6357	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6358
60e6a7d07c93 initial checkin tz parents: diff changeset	6359	valueOfLibtool
60e6a7d07c93 initial checkin tz parents: diff changeset	6360
60e6a7d07c93 initial checkin tz parents: diff changeset	6361	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6362	(holder := builder bindingAt:#valueOfLibtool) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6363	builder aspectAt:#valueOfLibtool put:(holder := false asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6364	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6365	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6366	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6367
60e6a7d07c93 initial checkin tz parents: diff changeset	6368	valueOfLibtool2
60e6a7d07c93 initial checkin tz parents: diff changeset	6369
60e6a7d07c93 initial checkin tz parents: diff changeset	6370	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6371	(holder := builder bindingAt:#valueOfLibtool2) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6372	builder aspectAt:#valueOfLibtool2 put:(holder := false asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6373	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6374	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6375	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6376
60e6a7d07c93 initial checkin tz parents: diff changeset	6377	valueOfLibui
60e6a7d07c93 initial checkin tz parents: diff changeset	6378
60e6a7d07c93 initial checkin tz parents: diff changeset	6379	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6380	(holder := builder bindingAt:#valueOfLibui) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6381	builder aspectAt:#valueOfLibui put:(holder := false asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6382	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6383	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6384	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6385
60e6a7d07c93 initial checkin tz parents: diff changeset	6386	valueOfLibwidg
60e6a7d07c93 initial checkin tz parents: diff changeset	6387
60e6a7d07c93 initial checkin tz parents: diff changeset	6388	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6389	(holder := builder bindingAt:#valueOfLibwidg) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6390	builder aspectAt:#valueOfLibwidg put:(holder := true asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6391	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6392	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6393	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6394
60e6a7d07c93 initial checkin tz parents: diff changeset	6395	valueOfLibwidg2
60e6a7d07c93 initial checkin tz parents: diff changeset	6396
60e6a7d07c93 initial checkin tz parents: diff changeset	6397	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6398	(holder := builder bindingAt:#valueOfLibwidg2) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6399	builder aspectAt:#valueOfLibwidg2 put:(holder := true asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6400	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6401	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6402	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6403
60e6a7d07c93 initial checkin tz parents: diff changeset	6404	valueOfStartupClass
60e6a7d07c93 initial checkin tz parents: diff changeset	6405
60e6a7d07c93 initial checkin tz parents: diff changeset	6406	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6407	(holder := builder bindingAt:#valueOfStartupClass) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6408	builder aspectAt:#valueOfStartupClass put:(holder := 'Smalltalk' asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6409	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6410	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6411	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6412
60e6a7d07c93 initial checkin tz parents: diff changeset	6413	valueOfStartupModule
60e6a7d07c93 initial checkin tz parents: diff changeset	6414
60e6a7d07c93 initial checkin tz parents: diff changeset	6415	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6416	(holder := builder bindingAt:#valueOfStartupModule) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6417	builder aspectAt:#valueOfStartupModule put:(holder := 'librun/main.c' asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6418	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6419	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6420	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6421
60e6a7d07c93 initial checkin tz parents: diff changeset	6422	valueOfStartupSelector
60e6a7d07c93 initial checkin tz parents: diff changeset	6423
60e6a7d07c93 initial checkin tz parents: diff changeset	6424	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6425	(holder := builder bindingAt:#valueOfStartupSelector) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6426	builder aspectAt:#valueOfStartupSelector put:(holder := 'start' asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6427	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6428	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6429	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6430
60e6a7d07c93 initial checkin tz parents: diff changeset	6431	valueOfSystemLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	6432
60e6a7d07c93 initial checkin tz parents: diff changeset	6433	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6434	(holder := builder bindingAt:#valueOfSystemLibraries) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6435	builder aspectAt:#valueOfSystemLibraries put:(holder := '/usr/lib/libc.a /home/tz/stx/support/VGL/vogl/src/libvogl.a' asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6436	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6437	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6438	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6439
60e6a7d07c93 initial checkin tz parents: diff changeset	6440	valueOfTargetDirectory
60e6a7d07c93 initial checkin tz parents: diff changeset	6441
60e6a7d07c93 initial checkin tz parents: diff changeset	6442	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6443	(holder := builder bindingAt:#valueOfTargetDirectory) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6444	builder aspectAt:#valueOfTargetDirectory put:(holder := (Filename homeDirectory asFilename construct: 'application') name asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6445	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6446	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6447	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6448
60e6a7d07c93 initial checkin tz parents: diff changeset	6449	valueOfTopDirectory
60e6a7d07c93 initial checkin tz parents: diff changeset	6450
60e6a7d07c93 initial checkin tz parents: diff changeset	6451	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6452	(holder := builder bindingAt:#valueOfTopDirectory) isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6453	builder aspectAt:#valueOfTopDirectory put:(holder := ((PipeStream readingFrom: 'echo $STX_LIBDIR') nextLine, '/..') asValue).
60e6a7d07c93 initial checkin tz parents: diff changeset	6454	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6455	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6456	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6457
60e6a7d07c93 initial checkin tz parents: diff changeset	6458	valueOfUserLibraries
60e6a7d07c93 initial checkin tz parents: diff changeset	6459
60e6a7d07c93 initial checkin tz parents: diff changeset	6460	\|holder\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6461	(holder := builder bindingAt:#valueOfUserLibraries) isNil ifTrue:[
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	6462	builder aspectAt:#valueOfUserLibraries put:(holder := LibraryBuilder UserLibraries asValue).
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6463	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6464	^ holder
60e6a7d07c93 initial checkin tz parents: diff changeset	6465	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	6466
1411 da20bf21fb13 first offical release tz parents: 1406 diff changeset	6467	!NewLauncher methodsFor:'binding access'!
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6468
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6469	aspectFor:aKey
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6470
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6471	^self settingsAspects at: aKey ifAbsent: [super aspectFor:aKey]
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6472	! !
da20bf21fb13 first offical release tz parents: 1406 diff changeset	6473
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6474	!NewLauncher methodsFor:'change & update'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6475
60e6a7d07c93 initial checkin tz parents: diff changeset	6476	update:something with:aParameter from:changedObject
60e6a7d07c93 initial checkin tz parents: diff changeset	6477	"care for project changes & update my infoView"
60e6a7d07c93 initial checkin tz parents: diff changeset	6478
60e6a7d07c93 initial checkin tz parents: diff changeset	6479	((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo]
60e6a7d07c93 initial checkin tz parents: diff changeset	6480
60e6a7d07c93 initial checkin tz parents: diff changeset	6481	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6482
60e6a7d07c93 initial checkin tz parents: diff changeset	6483	updateInfo
60e6a7d07c93 initial checkin tz parents: diff changeset	6484	"update the infoView from the current project"
60e6a7d07c93 initial checkin tz parents: diff changeset	6485
1420 fadb401ebd9f tool bar enlarged for larger icons tz parents: 1417 diff changeset	6486	\|project projectName projectDir packageName defNameSpace msg args projectInfo\|
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6487
60e6a7d07c93 initial checkin tz parents: diff changeset	6488	(Project isNil or:[(project := Project current) isNil]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6489	projectName := '* none *'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6490	projectDir := '.'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6491	packageName := '* none *'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6492	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6493	projectName := project name.
60e6a7d07c93 initial checkin tz parents: diff changeset	6494	projectDir := project directory.
60e6a7d07c93 initial checkin tz parents: diff changeset	6495	packageName := project packageName.
60e6a7d07c93 initial checkin tz parents: diff changeset	6496	defNameSpace := project defaultNameSpace.
60e6a7d07c93 initial checkin tz parents: diff changeset	6497	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6498	defNameSpace isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6499	defNameSpace := Smalltalk.
60e6a7d07c93 initial checkin tz parents: diff changeset	6500	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6501
60e6a7d07c93 initial checkin tz parents: diff changeset	6502	defNameSpace == Smalltalk ifTrue:[
1449 575d815f07db help menu item aligned to the right tz parents: 1447 diff changeset	6503	msg := 'Project: ''%1'' fileOut to: ''%3'' package: ''%2'''.
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6504	args := Array
60e6a7d07c93 initial checkin tz parents: diff changeset	6505	with:projectName
60e6a7d07c93 initial checkin tz parents: diff changeset	6506	with:packageName
60e6a7d07c93 initial checkin tz parents: diff changeset	6507	with:(projectDir contractTo:30).
60e6a7d07c93 initial checkin tz parents: diff changeset	6508	] ifFalse:[
1449 575d815f07db help menu item aligned to the right tz parents: 1447 diff changeset	6509	msg := 'Project: ''%1'' fileOut to: ''%3'' package: ''%2'' nameSpace: %4'.
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6510	args := Array
60e6a7d07c93 initial checkin tz parents: diff changeset	6511	with:projectName
60e6a7d07c93 initial checkin tz parents: diff changeset	6512	with:packageName
60e6a7d07c93 initial checkin tz parents: diff changeset	6513	with:(projectDir contractTo:30)
60e6a7d07c93 initial checkin tz parents: diff changeset	6514	with:defNameSpace name.
60e6a7d07c93 initial checkin tz parents: diff changeset	6515	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6516
1420 fadb401ebd9f tool bar enlarged for larger icons tz parents: 1417 diff changeset	6517	self valueOfInfoLabel value:(projectInfo := resources string:msg withArgs:args).
fadb401ebd9f tool bar enlarged for larger icons tz parents: 1417 diff changeset	6518	^projectInfo
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6519	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	6520
60e6a7d07c93 initial checkin tz parents: diff changeset	6521	!NewLauncher methodsFor:'private'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6522
60e6a7d07c93 initial checkin tz parents: diff changeset	6523	changeViewStyleTo:newStyle
60e6a7d07c93 initial checkin tz parents: diff changeset	6524
60e6a7d07c93 initial checkin tz parents: diff changeset	6525	newStyle notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6526	self withWaitCursorDo:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6527	transcript showCR:'change style to ' , newStyle , ' ...'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6528	View defaultStyle:newStyle asSymbol.
60e6a7d07c93 initial checkin tz parents: diff changeset	6529	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6530	self reOpen
60e6a7d07c93 initial checkin tz parents: diff changeset	6531	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6532
60e6a7d07c93 initial checkin tz parents: diff changeset	6533	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6534
60e6a7d07c93 initial checkin tz parents: diff changeset	6535	findWindow:title
60e6a7d07c93 initial checkin tz parents: diff changeset	6536	"a helper for find & destroy and find & raise operations;
60e6a7d07c93 initial checkin tz parents: diff changeset	6537	let user choose a view and return it; return nil on cancel"
60e6a7d07c93 initial checkin tz parents: diff changeset	6538
60e6a7d07c93 initial checkin tz parents: diff changeset	6539	\|knownTopViews nameList box\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6540
60e6a7d07c93 initial checkin tz parents: diff changeset	6541	knownTopViews := IdentitySet new.
60e6a7d07c93 initial checkin tz parents: diff changeset	6542	Screen allScreens do:[:aScreen \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6543	aScreen knownViews do:[:aView \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6544	\|top showIt wg\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6545
60e6a7d07c93 initial checkin tz parents: diff changeset	6546	aView notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6547	top := aView topView.
60e6a7d07c93 initial checkin tz parents: diff changeset	6548	(top isKindOf:DebugView) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6549	"/ although modal, show it.
60e6a7d07c93 initial checkin tz parents: diff changeset	6550	showIt := top realized
60e6a7d07c93 initial checkin tz parents: diff changeset	6551	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6552	wg := top windowGroup.
60e6a7d07c93 initial checkin tz parents: diff changeset	6553	showIt := (wg notNil and:[wg isModal not]).
60e6a7d07c93 initial checkin tz parents: diff changeset	6554	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6555	showIt ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6556	knownTopViews add:top
60e6a7d07c93 initial checkin tz parents: diff changeset	6557	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6558	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6559	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6560	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6561
60e6a7d07c93 initial checkin tz parents: diff changeset	6562	knownTopViews := knownTopViews asOrderedCollection.
60e6a7d07c93 initial checkin tz parents: diff changeset	6563	knownTopViews sort:[:v1 :v2 \| \|l1 l2\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6564	l1 := v1 label ? 'aView'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6565	l2 := v2 label ? 'aView'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6566	l1 < l2
60e6a7d07c93 initial checkin tz parents: diff changeset	6567	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6568	nameList := knownTopViews collect:[:v \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6569	\|isDead wg p l\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6570
60e6a7d07c93 initial checkin tz parents: diff changeset	6571	l := v label ? 'aView'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6572	((wg := v windowGroup) notNil
60e6a7d07c93 initial checkin tz parents: diff changeset	6573	and:[(p := wg process) notNil
60e6a7d07c93 initial checkin tz parents: diff changeset	6574	and:[p state ~~ #dead]]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6575	l
60e6a7d07c93 initial checkin tz parents: diff changeset	6576	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6577	l , ' (dead ?)'
60e6a7d07c93 initial checkin tz parents: diff changeset	6578	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6579	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6580
60e6a7d07c93 initial checkin tz parents: diff changeset	6581	box := ListSelectionBox new.
60e6a7d07c93 initial checkin tz parents: diff changeset	6582	box noEnterField.
60e6a7d07c93 initial checkin tz parents: diff changeset	6583	box list:nameList.
60e6a7d07c93 initial checkin tz parents: diff changeset	6584	box label:(resources string:'view selection').
60e6a7d07c93 initial checkin tz parents: diff changeset	6585	box title:(resources string:title) withCRs.
60e6a7d07c93 initial checkin tz parents: diff changeset	6586	box action:[:selection \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6587	\|v\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6588
60e6a7d07c93 initial checkin tz parents: diff changeset	6589	v := knownTopViews at:box selectionIndex.
60e6a7d07c93 initial checkin tz parents: diff changeset	6590	box destroy.
60e6a7d07c93 initial checkin tz parents: diff changeset	6591	^ v
60e6a7d07c93 initial checkin tz parents: diff changeset	6592	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6593	box extent:400@300.
60e6a7d07c93 initial checkin tz parents: diff changeset	6594	box showAtPointer.
60e6a7d07c93 initial checkin tz parents: diff changeset	6595	^ nil
60e6a7d07c93 initial checkin tz parents: diff changeset	6596
60e6a7d07c93 initial checkin tz parents: diff changeset	6597	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6598
60e6a7d07c93 initial checkin tz parents: diff changeset	6599	openApplication: className
60e6a7d07c93 initial checkin tz parents: diff changeset	6600	"open an application, given by the classe name."
60e6a7d07c93 initial checkin tz parents: diff changeset	6601
60e6a7d07c93 initial checkin tz parents: diff changeset	6602	self openApplication:className nameSpace:nil
60e6a7d07c93 initial checkin tz parents: diff changeset	6603	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6604
60e6a7d07c93 initial checkin tz parents: diff changeset	6605	openApplication:className nameSpace:aNameSpace
60e6a7d07c93 initial checkin tz parents: diff changeset	6606	"open some application, given the classes name.
60e6a7d07c93 initial checkin tz parents: diff changeset	6607	Look for it in Smalltalk and the given nameSpace"
60e6a7d07c93 initial checkin tz parents: diff changeset	6608
60e6a7d07c93 initial checkin tz parents: diff changeset	6609	self openApplication:className nameSpace:aNameSpace with:#open
60e6a7d07c93 initial checkin tz parents: diff changeset	6610	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6611
60e6a7d07c93 initial checkin tz parents: diff changeset	6612	openApplication:className nameSpace:aNameSpace with:aSelector
60e6a7d07c93 initial checkin tz parents: diff changeset	6613	"open some application, given the classes name.
60e6a7d07c93 initial checkin tz parents: diff changeset	6614	Look for it in Smalltalk and the given nameSpace"
60e6a7d07c93 initial checkin tz parents: diff changeset	6615
60e6a7d07c93 initial checkin tz parents: diff changeset	6616	\|cls\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6617
60e6a7d07c93 initial checkin tz parents: diff changeset	6618	cls := Smalltalk at:className asSymbol.
60e6a7d07c93 initial checkin tz parents: diff changeset	6619	cls isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6620	"/ look if its in the nameSpace
60e6a7d07c93 initial checkin tz parents: diff changeset	6621	aNameSpace notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6622	cls := aNameSpace at:className asSymbol
60e6a7d07c93 initial checkin tz parents: diff changeset	6623	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6624	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6625
60e6a7d07c93 initial checkin tz parents: diff changeset	6626	cls isNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6627	self warn:(resources string:'Sorry, the %1 class is not available.' with:className).
60e6a7d07c93 initial checkin tz parents: diff changeset	6628	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6629	Autoload autoloadFailedSignal handle:[:ex \|
60e6a7d07c93 initial checkin tz parents: diff changeset	6630	self warn:(resources string:'Sorry, the %1 class seems to be not available.' with:className)
60e6a7d07c93 initial checkin tz parents: diff changeset	6631	] do:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6632	self withWaitCursorDo:[cls perform:aSelector]
60e6a7d07c93 initial checkin tz parents: diff changeset	6633	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6634	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6635
60e6a7d07c93 initial checkin tz parents: diff changeset	6636	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6637
60e6a7d07c93 initial checkin tz parents: diff changeset	6638	reOpen
60e6a7d07c93 initial checkin tz parents: diff changeset	6639	"reopen a new launcher.
60e6a7d07c93 initial checkin tz parents: diff changeset	6640	for now (since style & language settings currently do
60e6a7d07c93 initial checkin tz parents: diff changeset	6641	not affect living views ...)"
60e6a7d07c93 initial checkin tz parents: diff changeset	6642
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6643	\|contents builder newLauncher\|
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6644
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6645	contents := transcript endEntry; list.
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6646	builder := self class openAt:(self window origin).
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6647	builder window waitUntilVisible.
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6648	newLauncher := builder application.
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6649	newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor.
60e6a7d07c93 initial checkin tz parents: diff changeset	6650	DebugView newDebugger.
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6651
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6652	"Modified: / 5.2.1998 / 20:08:31 / cg"
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6653	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6654
60e6a7d07c93 initial checkin tz parents: diff changeset	6655	saveAllViews
60e6a7d07c93 initial checkin tz parents: diff changeset	6656	"tell each topview that we are going to terminate and give it chance
60e6a7d07c93 initial checkin tz parents: diff changeset	6657	to save its contents."
60e6a7d07c93 initial checkin tz parents: diff changeset	6658
60e6a7d07c93 initial checkin tz parents: diff changeset	6659	ObjectMemory changed:#aboutToExit
1437 f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6660	!
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6661
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6662	saveScreenImage:anImage defaultName:defaultName
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6663	"save an image into a file
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6664	- ask user for filename using a fileSelectionBox."
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6665
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6666	\|fileName\|
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6667
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6668	fileName := Dialog
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6669	requestFileName:(resources string:'save image in:')
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6670	default:(defaultName , '.tiff')
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6671	ok:(resources string:'save')
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6672	abort:(resources string:'cancel')
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6673	pattern:'*.tiff'.
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6674
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6675	fileName notNil ifTrue:[
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6676	anImage saveOn:fileName
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6677	].
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6678
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6679	"Modified: / 21.2.1996 / 13:09:28 / cg"
f535d2d11128 translate labels Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	6680	"Created: / 29.1.1998 / 23:20:36 / cg"
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6681	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	6682
60e6a7d07c93 initial checkin tz parents: diff changeset	6683	!NewLauncher methodsFor:'queries'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6684
1441 b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6685	preferredExtent
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6686
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6687	^super preferredExtent max: (Screen current width//3)@(Screen current height//3.5)
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6688
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6689
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6690	!
b39eb6200d20 calculates preferredExtent depending on screen extent tz parents: 1437 diff changeset	6691
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6692	processName
60e6a7d07c93 initial checkin tz parents: diff changeset	6693	"for monitors only - my name"
60e6a7d07c93 initial checkin tz parents: diff changeset	6694
60e6a7d07c93 initial checkin tz parents: diff changeset	6695	^ 'ST/X Launcher'
60e6a7d07c93 initial checkin tz parents: diff changeset	6696
60e6a7d07c93 initial checkin tz parents: diff changeset	6697	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6698
60e6a7d07c93 initial checkin tz parents: diff changeset	6699	transcript
60e6a7d07c93 initial checkin tz parents: diff changeset	6700	"my transcript"
60e6a7d07c93 initial checkin tz parents: diff changeset	6701
60e6a7d07c93 initial checkin tz parents: diff changeset	6702	^ transcript
60e6a7d07c93 initial checkin tz parents: diff changeset	6703	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	6704
60e6a7d07c93 initial checkin tz parents: diff changeset	6705	!NewLauncher methodsFor:'startup / release'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6706
60e6a7d07c93 initial checkin tz parents: diff changeset	6707	addTopViewsToCurrentProject
60e6a7d07c93 initial checkin tz parents: diff changeset	6708	"ignored here - the launcher is always global (i.e. not project private)."
60e6a7d07c93 initial checkin tz parents: diff changeset	6709
60e6a7d07c93 initial checkin tz parents: diff changeset	6710	^ self
60e6a7d07c93 initial checkin tz parents: diff changeset	6711
60e6a7d07c93 initial checkin tz parents: diff changeset	6712	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6713
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6714	allButOpenInterface:anInterface
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6715	"sent by my superclass to open up my interface"
60e6a7d07c93 initial checkin tz parents: diff changeset	6716
1432 5c1e5f5ade52 colored icon ;-) tz parents: 1430 diff changeset	6717	\|icn w sz\|
5c1e5f5ade52 colored icon ;-) tz parents: 1430 diff changeset	6718
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6719	"/ if there is already a transcript on my device,
60e6a7d07c93 initial checkin tz parents: diff changeset	6720	"/ I am a slave launcher with limited functionality.
60e6a7d07c93 initial checkin tz parents: diff changeset	6721
60e6a7d07c93 initial checkin tz parents: diff changeset	6722	Transcript notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6723	Transcript ~~ Stderr ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6724	isMainLauncher := (Transcript graphicsDevice == device).
60e6a7d07c93 initial checkin tz parents: diff changeset	6725	self enableDangerousMenuItemsInRemoteLauncher value: isMainLauncher.
60e6a7d07c93 initial checkin tz parents: diff changeset	6726	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6727	isMainLauncher := true
60e6a7d07c93 initial checkin tz parents: diff changeset	6728	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6729	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6730	isMainLauncher := true
60e6a7d07c93 initial checkin tz parents: diff changeset	6731	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6732
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6733	super allButOpenInterface:anInterface.
1432 5c1e5f5ade52 colored icon ;-) tz parents: 1430 diff changeset	6734
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6735	self setupTranscript; updateInfo.
60e6a7d07c93 initial checkin tz parents: diff changeset	6736	Project notNil ifTrue: [Project addDependent:self].
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6737	self class openLaunchers add: self.
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6738	^ builder
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6739
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6740	"Created: / 5.2.1998 / 19:45:07 / cg"
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6741	"Modified: / 5.2.1998 / 19:56:43 / cg"
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6742	!
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6743
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6744	closeRequest
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6745
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6746	(self confirm:(resources string:'really close %1 ?' with:self class name)) ifTrue:[
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6747	super closeRequest
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6748	]
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6749
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6750	!
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6751
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6752	destroy
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6753
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6754	self halt.
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6755	!
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6756
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6757	postOpenWith:aBuilder
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6758	"increase my priority"
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6759
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6760	self builder window windowGroup process priority:(Processor userSchedulingPriority + 1).
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6761	super postOpenWith:aBuilder
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6762
f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6763	"Modified: / 5.2.1998 / 19:55:23 / cg"
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6764	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6765
60e6a7d07c93 initial checkin tz parents: diff changeset	6766	restarted
60e6a7d07c93 initial checkin tz parents: diff changeset	6767	"image restart - since WindowGroup recreates the process with
60e6a7d07c93 initial checkin tz parents: diff changeset	6768	the default priority, we have to raise the prio again.
60e6a7d07c93 initial checkin tz parents: diff changeset	6769	Mhmh - this looks like a bug to me ...
60e6a7d07c93 initial checkin tz parents: diff changeset	6770	Also, the cursor (which was stored as a write or waitCursor) must
60e6a7d07c93 initial checkin tz parents: diff changeset	6771	be reset to normal."
60e6a7d07c93 initial checkin tz parents: diff changeset	6772
60e6a7d07c93 initial checkin tz parents: diff changeset	6773	Processor activeProcess priority:(Processor userSchedulingPriority + 1).
60e6a7d07c93 initial checkin tz parents: diff changeset	6774
60e6a7d07c93 initial checkin tz parents: diff changeset	6775	super restarted
60e6a7d07c93 initial checkin tz parents: diff changeset	6776
60e6a7d07c93 initial checkin tz parents: diff changeset	6777	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6778
60e6a7d07c93 initial checkin tz parents: diff changeset	6779	saveAndTerminateRequest
60e6a7d07c93 initial checkin tz parents: diff changeset	6780	"some windowManagers can send this, to shutDown an application
60e6a7d07c93 initial checkin tz parents: diff changeset	6781	but let it save its state before, for later restart.
60e6a7d07c93 initial checkin tz parents: diff changeset	6782	Although I have not yet encountered such a windowManager,
60e6a7d07c93 initial checkin tz parents: diff changeset	6783	we are already prepared for this ;-)"
60e6a7d07c93 initial checkin tz parents: diff changeset	6784
60e6a7d07c93 initial checkin tz parents: diff changeset	6785	self snapshot.
60e6a7d07c93 initial checkin tz parents: diff changeset	6786	super saveAndTerminateRequest
60e6a7d07c93 initial checkin tz parents: diff changeset	6787
60e6a7d07c93 initial checkin tz parents: diff changeset	6788	!
60e6a7d07c93 initial checkin tz parents: diff changeset	6789
60e6a7d07c93 initial checkin tz parents: diff changeset	6790	setupTranscript
60e6a7d07c93 initial checkin tz parents: diff changeset	6791	"create the transcript view"
60e6a7d07c93 initial checkin tz parents: diff changeset	6792
60e6a7d07c93 initial checkin tz parents: diff changeset	6793	\|launcher oldLauncher\|
60e6a7d07c93 initial checkin tz parents: diff changeset	6794
60e6a7d07c93 initial checkin tz parents: diff changeset	6795	"/ check if this is an additional launcher on a remote display.
60e6a7d07c93 initial checkin tz parents: diff changeset	6796	"/ if so, do not close the real launcher.
60e6a7d07c93 initial checkin tz parents: diff changeset	6797
60e6a7d07c93 initial checkin tz parents: diff changeset	6798	(Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6799	isMainLauncher ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6800	launcher := Transcript topView application
60e6a7d07c93 initial checkin tz parents: diff changeset	6801	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6802	launcher := self class current.
60e6a7d07c93 initial checkin tz parents: diff changeset	6803	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6804	launcher notNil ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6805	launcher window graphicsDevice == device ifTrue:[
1434 8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	6806	OpenLaunchers notNil ifTrue:[
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	6807	OpenLaunchers removeIdentical:launcher ifAbsent:nil.
8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	6808	].
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6809	(oldLauncher := Smalltalk at: #Launcher) notNil
1433 cd876a0d81c9 OpenLaunchers method made lowercase (method selector convention) Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	6810	ifTrue: [oldLauncher openLaunchers removeIdentical:launcher ifAbsent:nil].
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6811	launcher close
60e6a7d07c93 initial checkin tz parents: diff changeset	6812	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6813	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6814	].
60e6a7d07c93 initial checkin tz parents: diff changeset	6815
60e6a7d07c93 initial checkin tz parents: diff changeset	6816	transcript := (builder componentAt: #transcriptView) subViews first.
60e6a7d07c93 initial checkin tz parents: diff changeset	6817
60e6a7d07c93 initial checkin tz parents: diff changeset	6818	isMainLauncher ifTrue:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6819	transcript beTranscript.
60e6a7d07c93 initial checkin tz parents: diff changeset	6820	] ifFalse:[
60e6a7d07c93 initial checkin tz parents: diff changeset	6821	transcript showCR:'************** Notice *********************'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6822	transcript showCR:' this is NOT the Transcript '.
60e6a7d07c93 initial checkin tz parents: diff changeset	6823	transcript showCR:' The real Transcript is on the main screen '.
60e6a7d07c93 initial checkin tz parents: diff changeset	6824	transcript showCR:' '.
60e6a7d07c93 initial checkin tz parents: diff changeset	6825	transcript showCR:' Menus affecting common state are disabled '.
60e6a7d07c93 initial checkin tz parents: diff changeset	6826	transcript showCR:'***********************************************'.
60e6a7d07c93 initial checkin tz parents: diff changeset	6827	]
60e6a7d07c93 initial checkin tz parents: diff changeset	6828
1434 8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	6829	"Modified: / 29.1.1998 / 22:06:03 / cg"
1413 96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6830	!
96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6831
96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6832	uninitialize
96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6833
96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6834	super uninitialize.
96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6835
96095eb9354c some menu rearranges tz parents: 1411 diff changeset	6836	Display beep.
1434 8746ba3896d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	6837	OpenLaunchers notNil ifTrue:[OpenLaunchers removeIdentical:self ifAbsent:nil].
1449 575d815f07db help menu item aligned to the right tz parents: 1447 diff changeset	6838	Project notNil ifTrue:[Project removeDependent:self]
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6839	! !
60e6a7d07c93 initial checkin tz parents: diff changeset	6840
60e6a7d07c93 initial checkin tz parents: diff changeset	6841	!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin tz parents: diff changeset	6842
60e6a7d07c93 initial checkin tz parents: diff changeset	6843	version
1460 f58b047b892c open new launchers at old position; Claus Gittinger <cg@exept.de> parents: 1457 diff changeset	6844	^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.30 1998-02-05 19:11:59 cg Exp $'
1406 60e6a7d07c93 initial checkin tz parents: diff changeset	6845	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 05 Feb 1998 20:11:59 +0100
changeset 1460	f58b047b892c
parent 1457	ee9624cd7f4e
child 1461	9f8a98bd3cec
permissions	-rw-r--r--