hg/stx-libtool: WorkspaceApplication.st@7839c9193cfa (annotated)

5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	1	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	2	COPYRIGHT (c) 2001 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	3	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	4
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	5	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	6	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	7	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	8	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	9	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	10	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	11	"
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
5303 fe0d2165b716 * empty log message * Claus Gittinger <cg@exept.de> parents: 5295 diff changeset	14	MultiViewToolApplication subclass:#WorkspaceApplication
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	15	instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	16	smalltalkMenuEnabledHolder'
8315 53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	17	classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	18	DefaultToolBarVisible'
8315 53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	19	poolDictionaries:''
53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	20	category:'Interface-Smalltalk'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
3191 52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	23	!WorkspaceApplication class methodsFor:'documentation'!
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	24
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	25	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	26	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	27	COPYRIGHT (c) 2001 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	28	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	29
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	30	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	31	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	32	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	33	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	34	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	35	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	36	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	37	!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	38
3191 52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	39	documentation
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	40	"
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	41	A simple wrapper around a WorkSpace-View, adding a pullDown menu.
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	42
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	43	[author:]
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	44	Claus Gittinger
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	45	"
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	46	! !
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	48	!WorkspaceApplication class methodsFor:'defaults'!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	49
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	50	defaultEditToolbarVisible
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	51	^ UserPreferences current editToolbarVisibleInWorkspace
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	52
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	53	"Created: / 14-07-2007 / 16:42:50 / cg"
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	54	!
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	55
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	56	defaultInfoVisible
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	57	^ UserPreferences current infoVisibleInWorkspace
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	58
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	59	"Created: / 14-07-2007 / 16:43:21 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	60	!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	61
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	62	defaultToolbarVisible
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	63	^ UserPreferences current toolbarVisibleInWorkspace
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	64
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	65	"Created: / 14-07-2007 / 16:42:50 / cg"
8486 238273ad7684 * empty log message * sr parents: 8394 diff changeset	66	!
238273ad7684 * empty log message * sr parents: 8394 diff changeset	67
238273ad7684 * empty log message * sr parents: 8394 diff changeset	68	webServiceLinkName
238273ad7684 * empty log message * sr parents: 8394 diff changeset	69	^ '/workspace'
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	70	! !
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	71
8708 9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	72	!WorkspaceApplication class methodsFor:'help specs'!
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	73
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	74	flyByHelpSpec
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	75	<resource: #help>
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	76
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	77	^super flyByHelpSpec addPairsFrom:#(
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	78
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	79	#editRedo
8709 8d38950dff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 8708 diff changeset	80	'Redo'
8708 9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	81
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	82	#doIndent
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	83	'Indent (Shift Right)'
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	84
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	85	#doUndent
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	86	'Undent (Shift Left)'
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	87
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	88	)
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	89	! !
9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	90
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	91	!WorkspaceApplication class methodsFor:'interface specs'!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	92
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	93	manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	94	"This resource specification was automatically generated
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	95	by the UIPainter of ST/X."
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	96
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	97	"Do not manually edit this!! If it is corrupted,
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	98	the UIPainter may not be able to read the specification."
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	99
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	100	"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	101	UIPainter new openOnClass:WorkspaceApplication andSelector:#manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	102	WorkspaceApplication new openInterface:#manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	103	"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	104
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	105	<resource: #canvas>
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	106
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	107	^
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	108	#(FullSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	109	name: manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	110	window:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	111	(WindowSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	112	label: 'Manage Sniplets'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	113	name: 'Manage Sniplets'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	114	min: (Point 10 10)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	115	bounds: (Rectangle 0 0 379 590)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	116	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	117	component:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	118	(SpecCollection
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	119	collection: (
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	120	(LabelSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	121	label: 'Sniplet:'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	122	name: 'Label1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	123	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	124	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	125	adjust: left
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	126	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	127	(VariableVerticalPanelSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	128	name: 'VariableVerticalPanel1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	129	layout: (LayoutFrame 0 0 30 0 0 1 -80 1)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	130	component:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	131	(SpecCollection
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	132	collection: (
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	133	(SequenceViewSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	134	name: 'List1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	135	model: selectedSniplet
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	136	hasHorizontalScrollBar: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	137	hasVerticalScrollBar: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	138	useIndex: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	139	sequenceList: listOfSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	140	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	141	(TextEditorSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	142	name: 'TextEditor1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	143	model: selectedSnipletsText
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	144	hasHorizontalScrollBar: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	145	hasVerticalScrollBar: true
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	146	hasKeyboardFocusInitially: false
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	147	viewClassName: ''
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	148	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	149	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	150
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	151	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	152	handles: (Any 0.5 1.0)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	153	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	154	(HorizontalPanelViewSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	155	name: 'ButtonPanel'
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	156	layout: (LayoutFrame 0 0 -70 1 0 1 -40 1)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	157	horizontalLayout: center
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	158	verticalLayout: center
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	159	horizontalSpace: 3
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	160	verticalSpace: 3
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	161	component:
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	162	(SpecCollection
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	163	collection: (
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	164	(ActionButtonSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	165	label: 'Save Changes'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	166	name: 'Button4'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	167	translateLabel: true
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	168	model: saveSelectedSniplet
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	169	enableChannel: saveEnabled
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	170	extent: (Point 125 22)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	171	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	172	(ActionButtonSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	173	label: 'Remove'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	174	name: 'Button2'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	175	translateLabel: true
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	176	model: removeSelectedSniplet
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	177	enableChannel: removeEnabled
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	178	extent: (Point 125 22)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	179	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	180	(ActionButtonSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	181	label: 'Paste'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	182	name: 'Button3'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	183	translateLabel: true
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	184	model: pasteSelectedSniplet
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	185	enableChannel: pasteEnabled
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	186	extent: (Point 125 22)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	187	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	188	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	189
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	190	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	191	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	192	(DividerSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	193	name: 'Separator1'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	194	layout: (LayoutFrame 0 0.0 557 0 0 1.0 561 0)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	195	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	196	(HorizontalPanelViewSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	197	name: 'CloseButtonPanel'
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	198	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	199	horizontalLayout: fitSpace
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	200	verticalLayout: center
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	201	horizontalSpace: 3
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	202	verticalSpace: 3
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	203	reverseOrderIfOKAtLeft: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	204	component:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	205	(SpecCollection
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	206	collection: (
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	207	(ActionButtonSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	208	label: 'Close'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	209	name: 'Button1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	210	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	211	model: cancel
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	212	extent: (Point 373 22)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	213	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	214	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	215
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	216	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	217	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	218	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	219
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	220	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	221	)
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	222	!
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	223
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	224	windowSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	225	"This resource specification was automatically generated
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	226	by the UIPainter of ST/X."
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	227
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	228	"Do not manually edit this!! If it is corrupted,
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	229	the UIPainter may not be able to read the specification."
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	230
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	231	"
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	232	UIPainter new openOnClass:WorkspaceApplication andSelector:#windowSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	233	WorkspaceApplication new openInterface:#windowSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	234	WorkspaceApplication open
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	235	"
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	236
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	237	<resource: #canvas>
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	238
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	239	^
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	240	#(FullSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	241	name: windowSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	242	window:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	243	(WindowSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	244	label: 'Workspace'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	245	name: 'Workspace'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	246	min: (Point 10 10)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	247	bounds: (Rectangle 0 0 432 241)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	248	menu: mainMenu
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	249	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	250	component:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	251	(SpecCollection
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	252	collection: (
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	253	(ViewSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	254	name: 'ToolBar'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	255	layout: (LayoutFrame 0 0 0 0 0 1 32 0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	256	visibilityChannel: toolBarVisibleHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	257	component:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	258	(SpecCollection
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	259	collection: (
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	260	(ActionButtonSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	261	label: 'hideToolBarIcon'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	262	name: 'HideToolBarButton'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	263	layout: (LayoutFrame 0 0 0 0 13 0 0 1)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	264	activeHelpKey: hideToolBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	265	hasCharacterOrientedLabel: false
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	266	translateLabel: true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	267	model: hideToolbar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	268	postBuildCallback: hideToolBarButtonCreated:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	269	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	270	(MenuPanelSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	271	name: 'ToolBarMenu'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	272	layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	273	visibilityChannel: toolBarVisibleHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	274	menu: toolBarMenu
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	275	textDefault: true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	276	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	277	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	278
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	279	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	280	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	281	(ViewSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	282	name: 'EditToolBar'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	283	layout: (LayoutFrame 0 0 32 0 0 1 64 0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	284	visibilityChannel: editToolBarVisibleHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	285	component:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	286	(SpecCollection
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	287	collection: (
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	288	(ActionButtonSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	289	label: 'hideToolBarIcon'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	290	name: 'HideEditToolBarButton'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	291	layout: (LayoutFrame 0 0 0 0 13 0 0 1)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	292	activeHelpKey: hideEditToolBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	293	hasCharacterOrientedLabel: false
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	294	translateLabel: true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	295	model: hideEditToolbar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	296	postBuildCallback: hideToolBarButtonCreated:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	297	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	298	(MenuPanelSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	299	name: 'EditToolBar1'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	300	layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	301	visibilityChannel: editToolBarVisibleHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	302	menu: editToolBarMenu
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	303	textDefault: true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	304	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	305	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	306
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	307	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	308	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	309	(NoteBookViewSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	310	name: 'NoteBook'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	311	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -26 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	312	model: selectedWorkspaceIndexHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	313	menu: tabList
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	314	useIndex: true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	315	accessTabMenuAction: tabMenuAt:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	316	destroyTabAction: destroyTab:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	317	canvas: workspaceHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	318	canvasInset: 0
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	319	keepCanvasAlive: true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	320	tabLevel: 1
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	321	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	322	(UISubSpecification
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	323	name: 'infoBarSubSpec'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	324	layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	325	visibilityChannel: infoVisibleHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	326	majorKey: WorkspaceApplication
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	327	minorKey: windowSpecForInfoBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	328	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	329	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	330
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	331	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	332	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	333	!
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	334
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	335	windowSpecForInfoBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	336	"This resource specification was automatically generated
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	337	by the UIPainter of ST/X."
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	338
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	339	"Do not manually edit this!! If it is corrupted,
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	340	the UIPainter may not be able to read the specification."
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	341
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	342	"
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	343	UIPainter new openOnClass:WorkspaceApplication andSelector:#windowSpecForInfoBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	344	WorkspaceApplication new openInterface:#windowSpecForInfoBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	345	"
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	346
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	347	<resource: #canvas>
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	348
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	349	^
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	350	#(FullSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	351	name: windowSpecForInfoBar
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	352	window:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	353	(WindowSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	354	label: 'Info Bar'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	355	name: 'Info Bar'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	356	min: (Point 400 320)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	357	max: (Point 1152 900)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	358	bounds: (Rectangle 0 0 500 346)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	359	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	360	component:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	361	(SpecCollection
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	362	collection: (
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	363	(ViewSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	364	name: 'infoView'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	365	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	366	component:
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	367	(SpecCollection
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	368	collection: (
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	369	(LabelSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	370	name: 'infoLabel'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	371	layout: (LayoutFrame 0 0.0 0 0.0 -102 1.0 0 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	372	level: -1
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	373	labelChannel: infoLabelHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	374	resizeForLabel: false
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	375	adjust: left
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	376	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	377	(LabelSpec
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	378	name: 'Label1'
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	379	layout: (LayoutFrame -100 1.0 0 0.0 0 1.0 0 1.0)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	380	level: -1
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	381	labelChannel: languageInfoLabelHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	382	resizeForLabel: false
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	383	adjust: left
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	384	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	385	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	386
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	387	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	388	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	389	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	390
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	391	)
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	392	)
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	393	! !
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	394
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395	!WorkspaceApplication class methodsFor:'menu specs'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	397	bufferMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	398	"This resource specification was automatically generated
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	399	by the MenuEditor of ST/X."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	400
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	401	"Do not manually edit this!! If it is corrupted,
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	402	the MenuEditor may not be able to read the specification."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	403
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	404	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	405	MenuEditor new openOnClass:WorkspaceApplication andSelector:#bufferMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	406	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication bufferMenu)) startUp
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	407	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	408
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	409	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	410
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	411	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	412	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	413	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	414	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	415	label: 'Add Buffer'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	416	itemValue: addWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	417	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	418	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	419	(MenuItem
8111 4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	420	label: '-'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	421	isVisible: thisIsASmalltalkWorkspace
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	422	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	423	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	424	label: 'Add Buffer on MyWorkspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	425	itemValue: addMyWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	426	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	427	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	428	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	429	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	430	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	431	label: 'Add Buffer on Workspace Variables'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	432	itemValue: addWorkspaceVariableInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	433	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	434	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	435	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	436	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	437	label: 'Add Buffer on Global Variables'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	438	itemValue: addGlobalVariableInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	439	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	440	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	441	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	442	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	443	label: 'Add Buffer on Namespace...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	444	itemValue: addNamespaceInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	445	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	446	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	447	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	448	(MenuItem
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	449	label: 'Add Buffer on SharedPool...'
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	450	itemValue: addSharedPoolInspector
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	451	translateLabel: true
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	452	isVisible: thisIsASmalltalkWorkspace
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	453	)
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	454	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	455	label: 'Add Buffer on Class Variables'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	456	itemValue: addClassVariableInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	457	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	458	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	459	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	460	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	461	label: '-'
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	462	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	463	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	464	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	465	label: 'Add Evaluation Buffer'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	466	itemValue: addEvaluationWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	467	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	468	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	469	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	470	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	471	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	472	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	473	(MenuItem
8111 4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	474	label: 'Tea Timer'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	475	itemValue: addTeaTimer
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	476	translateLabel: true
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	477	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	478	(MenuItem
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	479	label: 'Stop Watch'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	480	itemValue: addStopWatch
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	481	translateLabel: true
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	482	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	483	(MenuItem
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	484	label: '-'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	485	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	486	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	487	label: 'Rename...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	488	itemValue: renameWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	489	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	490	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	491	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	492	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	493	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	494	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	495	enabled: canRemoveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	496	label: 'Remove Buffer'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	497	itemValue: removeWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	498	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	499	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	500	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	501	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	502	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	503	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	504	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	505
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	506	editMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	507	"This resource specification was automatically generated
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	508	by the MenuEditor of ST/X."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	509
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	510	"Do not manually edit this!! If it is corrupted,
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	511	the MenuEditor may not be able to read the specification."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	512
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	513	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	514	MenuEditor new openOnClass:WorkspaceApplication andSelector:#editMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	515	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication editMenu)) startUp
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	516	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	517
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	518	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	519
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	520	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	521	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	522	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	523	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	524	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	525	label: 'Cut'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	526	itemValue: cutSelection
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	527	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	528	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	529	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	530	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	531	label: 'Copy'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	532	itemValue: copySelection
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	533	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	534	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	535	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	536	label: 'Paste'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	537	itemValue: paste
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	538	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	539	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	540	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	541	enabled: hasHistory
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	542	label: 'Paste Last'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	543	itemValue: pasteLastDoIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	544	translateLabel: true
8492 47ef3a4022d0 do not keep menu sr parents: 8491 diff changeset	545	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	546	submenuChannel: pasteRecentDoItMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	547	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	548	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	549	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	550	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	551	(MenuItem
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	552	label: 'Copy as Sniplet...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	553	itemValue: addSelectionToSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	554	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	555	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	556	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	557	label: 'Paste Sniplet...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	558	itemValue: pasteSniplet
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	559	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	560	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	561	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	562	label: 'Manage Sniplets...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	563	itemValue: manageSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	564	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	565	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	566	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	567	label: '-'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	568	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	569	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	570	label: 'Select All'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	571	itemValue: selectAll
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	572	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	573	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	574	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	575	label: '-'
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	576	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	577	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	578	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	579	label: 'Filter Text...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	580	itemValue: filterText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	581	translateLabel: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	582	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	583	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	584	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	585	label: 'Process Text...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	586	itemValue: processText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	587	translateLabel: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	588	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	589	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	590	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	591	label: '-'
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	592	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	593	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	594	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	595	label: 'Services'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	596	translateLabel: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	597	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	598	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	599	(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	600	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	601	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	602	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	603	label: 'Google Spell'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	604	itemValue: googleSpellingSuggestion
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	605	translateLabel: true
7876 3e9f6e7b9ff2 * empty log message * Claus Gittinger <cg@exept.de> parents: 7866 diff changeset	606	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	607	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	608	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	609	label: 'Translate'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	610	translateLabel: true
7876 3e9f6e7b9ff2 * empty log message * Claus Gittinger <cg@exept.de> parents: 7866 diff changeset	611	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	612	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	613	(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	614	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	615	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	616	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	617	label: 'English -> German'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	618	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	619	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	620	argument: 'en_de'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	621	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	622	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	623	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	624	label: 'English -> French'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	625	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	626	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	627	argument: 'en_fr'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	628	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	629	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	630	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	631	label: 'English -> Spanish'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	632	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	633	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	634	argument: 'en_es'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	635	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	636	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	637	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	638	label: 'English -> Portuguese'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	639	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	640	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	641	argument: 'en_pt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	642	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	643	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	644	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	645	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	646	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	647	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	648	label: 'German -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	649	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	650	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	651	argument: 'de_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	652	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	653	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	654	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	655	label: 'French -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	656	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	657	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	658	argument: 'fr_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	659	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	660	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	661	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	662	label: 'Spanish -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	663	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	664	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	665	argument: 'es_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	666	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	667	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	668	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	669	label: 'Portuguese -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	670	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	671	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	672	argument: 'pt_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	673	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	674	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	675	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	676	label: 'Russian -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	677	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	678	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	679	argument: 'ru_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	680	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	681	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	682	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	683	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	684	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	685	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	686	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	687	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	688	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	689	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	690	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	691	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	692	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	693	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	694	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	695	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	696
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	697	editToolBarMenu
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	698	"This resource specification was automatically generated
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	699	by the MenuEditor of ST/X."
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	700
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	701	"Do not manually edit this!! If it is corrupted,
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	702	the MenuEditor may not be able to read the specification."
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	703
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	704	"
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	705	MenuEditor new openOnClass:WorkspaceApplication andSelector:#editToolBarMenu
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	706	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication editToolBarMenu)) startUp
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	707	"
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	708
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	709	<resource: #menu>
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	710
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	711	^
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	712	#(Menu
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	713	(
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	714	(MenuItem
8506 45f668254d30 * empty log message * Claus Gittinger <cg@exept.de> parents: 8501 diff changeset	715	activeHelpKey: editCut
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	716	label: 'Cut'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	717	itemValue: cutSelection
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	718	translateLabel: true
8508 34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	719	labelImage: (ResourceRetriever ToolbarIconLibrary cut16x16Icon)
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	720	isButton: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	721	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	722	(MenuItem
8506 45f668254d30 * empty log message * Claus Gittinger <cg@exept.de> parents: 8501 diff changeset	723	activeHelpKey: editCopy
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	724	label: 'Copy'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	725	itemValue: copySelection
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	726	translateLabel: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	727	labelImage: (ResourceRetriever ToolbarIconLibrary copy16x16Icon)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	728	isButton: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	729	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	730	(MenuItem
8506 45f668254d30 * empty log message * Claus Gittinger <cg@exept.de> parents: 8501 diff changeset	731	activeHelpKey: editPaste
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	732	label: 'Paste'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	733	itemValue: paste
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	734	translateLabel: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	735	labelImage: (ResourceRetriever ToolbarIconLibrary paste16x16Icon)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	736	isButton: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	737	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	738	(MenuItem
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	739	label: '-'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	740	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	741	(MenuItem
8508 34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	742	activeHelpKey: editUndo
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	743	label: 'Undo'
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	744	itemValue: undo
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	745	translateLabel: true
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	746	labelImage: (ResourceRetriever ToolbarIconLibrary undo16x16Icon)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	747	isButton: true
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	748	)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	749	(MenuItem
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	750	activeHelpKey: editRedo
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	751	label: 'Redo'
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	752	itemValue: redo
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	753	translateLabel: true
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	754	labelImage: (ResourceRetriever ToolbarIconLibrary redo16x16Icon)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	755	isButton: true
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	756	)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	757	(MenuItem
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	758	label: '-'
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	759	)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	760	(MenuItem
8506 45f668254d30 * empty log message * Claus Gittinger <cg@exept.de> parents: 8501 diff changeset	761	activeHelpKey: editSearch
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	762	label: 'Search'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	763	itemValue: search
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	764	translateLabel: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	765	labelImage: (ResourceRetriever ToolbarIconLibrary search16x16Icon)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	766	isButton: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	767	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	768	(MenuItem
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	769	label: '-'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	770	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	771	(MenuItem
8508 34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	772	activeHelpKey: doUndent
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	773	label: 'Undent'
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	774	itemValue: undent
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	775	translateLabel: true
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	776	isButton: true
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	777	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	778	)
34480c5b32d2 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8506 diff changeset	779	(MenuItem
8506 45f668254d30 * empty log message * Claus Gittinger <cg@exept.de> parents: 8501 diff changeset	780	activeHelpKey: doIndent
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	781	label: 'Indent'
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	782	itemValue: indent
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	783	translateLabel: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	784	isButton: true
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	785	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	786	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	787	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	788	nil
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	789	nil
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	790	)
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	791	!
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	792
8342 7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	793	executionMenu
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	794	"This resource specification was automatically generated
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	795	by the MenuEditor of ST/X."
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	796
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	797	"Do not manually edit this!! If it is corrupted,
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	798	the MenuEditor may not be able to read the specification."
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	799
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	800	"
8492 47ef3a4022d0 do not keep menu sr parents: 8491 diff changeset	801	MenuEditor new openOnClass:WorkspaceApplication andSelector:#executionMenu
47ef3a4022d0 do not keep menu sr parents: 8491 diff changeset	802	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication executionMenu)) startUp
8342 7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	803	"
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	804
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	805	<resource: #menu>
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	806
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	807	^
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	808	#(Menu
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	809	(
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	810	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	811	enabled: hasHistory
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	812	label: 'Redo Last'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	813	itemValue: redoLastDoIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	814	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	815	submenuChannel: redoRecentDoItMenu
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	816	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	817	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	818	label: '-'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	819	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	820	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	821	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	822	label: 'DoIt'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	823	itemValue: doIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	824	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	825	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	826	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	827	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	828	label: 'PrintIt'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	829	itemValue: printIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	830	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	831	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	832	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	833	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	834	label: 'InspectIt'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	835	itemValue: inspectIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	836	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	837	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	838	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	839	label: '-'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	840	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	841	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	842	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	843	label: 'Browse Class'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	844	itemValue: browseIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	845	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	846	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	847	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	848	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	849	label: 'Browse Implementors of It'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	850	itemValue: browseImplementorsOfIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	851	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	852	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	853	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	854	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	855	label: 'Browse References to It'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	856	itemValue: browseReferencesToIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	857	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	858	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	859	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	860	label: '-'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	861	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	862	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	863	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	864	label: 'TimeIt'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	865	itemValue: timeIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	866	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	867	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	868	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	869	enabled: hasSelectionInActiveWorkspace
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	870	label: 'SpyOnIt'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	871	itemValue: spyOnIt
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	872	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	873	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	874	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	875	nil
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	876	nil
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	877	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	878	!
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	879
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	880	fileMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	881	"This resource specification was automatically generated
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	882	by the MenuEditor of ST/X."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	883
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	884	"Do not manually edit this!! If it is corrupted,
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	885	the MenuEditor may not be able to read the specification."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	886
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	887	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	888	MenuEditor new openOnClass:WorkspaceApplication andSelector:#fileMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	889	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication fileMenu)) startUp
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	890	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	891
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	892	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	893
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	894	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	895	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	896	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	897	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	898	label: 'New Workspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	899	itemValue: newWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	900	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	901	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	902	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	903	label: 'New SystemWorkspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	904	itemValue: newSystemWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	905	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	906	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	907	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	908	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	909	label: 'New EvaluationWorkspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	910	itemValue: newEvaluationWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	911	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	912	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	913	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	914	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	915	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	916	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	917	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	918	label: 'Load File...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	919	itemValue: menuLoad
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	920	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	921	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	922	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	923	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	924	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	925	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	926	label: 'Save As...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	927	itemValue: menuSaveAs
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	928	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	929	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	930	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	931	enabled: hasMultipleBuffersHolder
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	932	label: 'Save all As...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	933	itemValue: menuSaveAllAs
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	934	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	935	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	936	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	937	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	938	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	939	(MenuItem
8529 8d2391313df2 disable print item, if there is nothing to print Claus Gittinger <cg@exept.de> parents: 8508 diff changeset	940	enabled: hasTextInActiveWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	941	label: 'Print...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	942	itemValue: menuPrint
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	943	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	944	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	945	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	946	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	947	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	948	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	949	label: 'Exit'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	950	itemValue: closeRequest
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	951	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	952	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	953	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	954	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	955	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	956	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	957	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	958
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	959	helpMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	960	"This resource specification was automatically generated
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	961	by the MenuEditor of ST/X."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	962
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	963	"Do not manually edit this!! If it is corrupted,
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	964	the MenuEditor may not be able to read the specification."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	965
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	966	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	967	MenuEditor new openOnClass:WorkspaceApplication andSelector:#helpMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	968	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication helpMenu)) startUp
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	969	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	970
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	971	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	972
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	973	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	974	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	975	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	976	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	977	label: 'Documentation'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	978	itemValue: openDocumentation
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	979	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	980	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	981	(MenuItem
8315 53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	982	label: 'Documentation on Smalltalk/X'
53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	983	itemValue: openSTXDocumentation
53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	984	translateLabel: true
53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	985	)
53b8e7d58534 +openSTXDocumentation Claus Gittinger <cg@exept.de> parents: 8292 diff changeset	986	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	987	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	988	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	989	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	990	label: 'About this Application...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	991	itemValue: openAboutThisApplication
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	992	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	993	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	994	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	995	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	996	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	997	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	998	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	999
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1000	mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001	"This resource specification was automatically generated
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002	by the MenuEditor of ST/X."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004	"Do not manually edit this!! If it is corrupted,
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005	the MenuEditor may not be able to read the specification."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	MenuEditor new openOnClass:WorkspaceApplication andSelector:#mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication mainMenu)) startUp
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1011
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1012	<resource: #menu>
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1013
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014	^
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1015	#(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1016	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1017	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1018	label: 'File'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1019	translateLabel: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1020	submenuChannel: fileMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1021	keepLinkedMenu: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1023	(MenuItem
8147 eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	1024	label: 'Buffers'
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	1025	translateLabel: true
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	1026	submenuChannel: bufferMenu
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	1027	keepLinkedMenu: true
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	1028	)
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	1029	(MenuItem
8146 47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1030	label: 'Edit'
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1031	translateLabel: true
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1032	submenuChannel: editMenu
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1033	keepLinkedMenu: true
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1034	)
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1035	(MenuItem
7651 45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	1036	label: 'View'
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	1037	translateLabel: true
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	1038	submenuChannel: viewMenu
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	1039	keepLinkedMenu: true
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	1040	)
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	1041	(MenuItem
8501 98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1042	label: 'Execute'
98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1043	translateLabel: true
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1044	isVisible: executeMenuVisible
8501 98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1045	submenuChannel: executionMenu
98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1046	keepLinkedMenu: true
98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1047	)
98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1048	(MenuItem
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1049	label: 'Workspace'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1050	translateLabel: true
8501 98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1051	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1052	submenuChannel: workspaceMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1053	keepLinkedMenu: true
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1054	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1055	(MenuItem
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1056	enabled: smalltalkMenuEnabledHolder
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1057	label: 'Smalltalk'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1058	translateLabel: true
8501 98f3aa3d2854 * empty log message * Claus Gittinger <cg@exept.de> parents: 8499 diff changeset	1059	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1060	submenuChannel: smalltalkMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1061	keepLinkedMenu: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1063	(MenuItem
7461 605ae97c85db support '?' as help (for now: controlled by resources) Claus Gittinger <cg@exept.de> parents: 7441 diff changeset	1064	label: 'MENU_Help'
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1065	translateLabel: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1066	submenuChannel: helpMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1067	keepLinkedMenu: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1068	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1069	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1070	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1072	)
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1073	!
7831 afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1074
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1075	smalltalkMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1076	"This resource specification was automatically generated
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1077	by the MenuEditor of ST/X."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1078
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1079	"Do not manually edit this!! If it is corrupted,
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1080	the MenuEditor may not be able to read the specification."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1081
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1082	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1083	MenuEditor new openOnClass:WorkspaceApplication andSelector:#smalltalkMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1084	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication smalltalkMenu)) startUp
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1085	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1086
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1087	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1088
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1089	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1090	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1091	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1092	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1093	label: 'FileIn Text'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1094	itemValue: fileInText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1095	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1096	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1097	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1098	label: 'ChangeList on Text'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1099	itemValue: changesBrowserOnText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1100	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1101	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1102	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1103	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1104	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1105	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1106	label: 'Add Global Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1107	itemValue: addGlobalVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1108	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1109	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1110	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1111	label: 'Remove Global Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1112	itemValue: removeGlobalVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1113	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1114	)
8342 7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1115	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1116	label: '-'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1117	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1118	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1119	label: 'Add SharedPool...'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1120	itemValue: addSharedPool
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1121	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1122	)
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1123	(MenuItem
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1124	label: 'Remove SharedPool...'
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1125	itemValue: removeSharedPool
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1126	translateLabel: true
7cd807ea1c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 8324 diff changeset	1127	)
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1128	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1129	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1130	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1131	)
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1132	!
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1133
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1134	toolBarMenu
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1135	"This resource specification was automatically generated
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1136	by the MenuEditor of ST/X."
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1137
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1138	"Do not manually edit this!! If it is corrupted,
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1139	the MenuEditor may not be able to read the specification."
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1140
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1141	"
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1142	MenuEditor new openOnClass:WorkspaceApplication andSelector:#toolBarMenu
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1143	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication toolBarMenu)) startUp
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1144	"
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1145
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1146	<resource: #menu>
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1147
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1148	^
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1149	#(Menu
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1150	(
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1151	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1152	label: ''
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1153	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1154	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1155	label: 'Add Buffer'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1156	itemValue: addWorkspace
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1157	translateLabel: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1158	isButton: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1159	labelImage: (ResourceRetriever ToolbarIconLibrary addBufferIcon)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1160	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1161	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1162	label: '-'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1163	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1164	(MenuItem
8708 9945e36df506 * empty log message * Claus Gittinger <cg@exept.de> parents: 8529 diff changeset	1165	label: 'Save Text As...'
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1166	itemValue: menuSaveAs
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1167	translateLabel: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1168	isButton: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1169	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1170	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1171	(MenuItem
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1172	label: '-'
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1173	isVisible: doItMenuButtonVisibile
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1174	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1175	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1176	label: 'DoIt'
8323 f454e07629bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8317 diff changeset	1177	activeHelpKey: help_doIt
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1178	itemValue: doIt
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1179	translateLabel: true
7789 c9f1c54da8be * empty log message * Claus Gittinger <cg@exept.de> parents: 7744 diff changeset	1180	isButton: true
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1181	isVisible: doItMenuButtonVisibile
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1182	labelImage: (ResourceRetriever ToolbarIconLibrary doItIcon)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1183	)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1184	(MenuItem
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1185	label: 'PrintIt'
8323 f454e07629bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8317 diff changeset	1186	activeHelpKey: help_printIt
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1187	itemValue: printIt
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1188	translateLabel: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1189	isButton: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1190	isVisible: printItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1191	labelImage: (ResourceRetriever ToolbarIconLibrary printItIcon)
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1192	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1193	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1194	label: 'InspectIt'
8323 f454e07629bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8317 diff changeset	1195	activeHelpKey: help_inspectIt
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1196	itemValue: inspectIt
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1197	translateLabel: true
7789 c9f1c54da8be * empty log message * Claus Gittinger <cg@exept.de> parents: 7744 diff changeset	1198	isButton: true
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1199	isVisible: inspectItMenuButtonVisibile
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1200	labelImage: (ResourceRetriever ToolbarIconLibrary inspectItIcon)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1201	)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1202	(MenuItem
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1203	label: 'BrowseIt'
8323 f454e07629bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8317 diff changeset	1204	activeHelpKey: help_browseIt
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1205	itemValue: browseIt
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1206	translateLabel: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1207	isButton: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1208	isVisible: browseItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1209	labelImage: (ResourceRetriever ToolbarIconLibrary browseItIcon)
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1210	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1211	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1212	nil
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1213	nil
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	1214	)
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1215	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1216
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1217	workspaceMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1218	"This resource specification was automatically generated
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1219	by the MenuEditor of ST/X."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1220
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1221	"Do not manually edit this!! If it is corrupted,
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1222	the MenuEditor may not be able to read the specification."
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1223
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1224	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1225	MenuEditor new openOnClass:WorkspaceApplication andSelector:#workspaceMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1226	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication workspaceMenu)) startUp
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1227	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1228
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1229	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1230
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1231	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1232	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1233	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1234	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1235	label: 'Add Workspace Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1236	itemValue: addWorkspaceVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1237	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1238	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1239	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1240	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1241	label: 'Remove Workspace Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1242	itemValue: removeWorkspaceVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1243	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1244	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1245	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1246	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1247	label: 'Remove all Workspace Variables...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1248	itemValue: removeAllWorkspaceVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1249	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1250	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1251	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1252	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1253	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1254	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1255	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1256	label: 'Inspect Workspace Variables'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1257	itemValue: inspectWorkspaceVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1258	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1259	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1260	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1261	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1262	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1263	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1264	label: 'Settings'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1265	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1266	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1267	(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1268	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1269	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1270	label: 'Autodefine as Workspace Variable'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1271	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1272	hideMenuOnActivated: false
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1273	choice: autoDefineVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1274	choiceValue: workspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1275	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1276	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1277	label: 'Autodefine as DoIt Variable'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1278	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1279	hideMenuOnActivated: false
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1280	choice: autoDefineVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1281	choiceValue: doIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1282	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1283	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1284	label: 'Autodefine off'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1285	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1286	hideMenuOnActivated: false
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1287	choice: autoDefineVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1288	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1289	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1290	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1291	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1292	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1293	label: 'Syntax'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1294	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1295	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1296	(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1297	(
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1298	"/ (MenuItem
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1299	"/ label: 'Smalltalk'
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1300	"/ translateLabel: true
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1301	"/ choice: syntaxHolder
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1302	"/ choiceValue: Smalltalk
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1303	"/ )
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1304	"/ (MenuItem
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1305	"/ label: 'JavaScript'
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1306	"/ translateLabel: true
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1307	"/ choice: syntaxHolder
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1308	"/ choiceValue: JavaScript
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1309	"/ )
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1310	(MenuItem
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1311	label: 'Language List Slice'
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1312	translateLabel: true
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1313	submenuChannel: languageListMenuSlice
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1314	isMenuSlice: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1315	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1316	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1317	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1318	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1319	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1320	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1321	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1322	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1323	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1324	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1325	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1326	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1327	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1328	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	1329	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1331
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1332	!WorkspaceApplication class methodsFor:'special startup'!
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1333
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1334	openEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1335	\|wsApp path needRemove font\|
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1336
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1337	needRemove := true.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1338
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1339	wsApp := self new.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1340	wsApp allButOpen.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1341	wsApp window extent:400@500.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1342
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1343	wsApp addEvaluationWorkspace.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1344	wsApp removeWorkspace:1.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1345	wsApp renameWorkspace:1 to:'Evaluator'.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1346
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1347	wsApp openWindow.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1348	wsApp selectedWorkspaceIndexHolder value:1.
7849 e3e01db99dd9 open methods return the just created ws Claus Gittinger <cg@exept.de> parents: 7848 diff changeset	1349	^ wsApp
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1350
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1351	"
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1352	self openEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1353	"
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1354
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1355	"Created: / 13-10-2006 / 12:14:13 / cg"
7849 e3e01db99dd9 open methods return the just created ws Claus Gittinger <cg@exept.de> parents: 7848 diff changeset	1356	"Modified: / 25-09-2007 / 21:00:45 / cg"
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1357	!
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1358
9085 261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1359	openForSinglePageDoing:aBlock
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1360	\|wsApp needRemove\|
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1361
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1362	needRemove := true.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1363
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1364	wsApp := self new.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1365	wsApp allButOpen.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1366
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1367	(wsApp builder componentAt:'NoteBook') destroyTabAction:nil.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1368
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1369	wsApp window height:500.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1370
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1371	aBlock value:wsApp.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1372	wsApp removeWorkspace:1. "/ the original Workspace
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1373	"/ wsApp renameWorkspace:1 to:'LICENCE README'.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1374
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1375	wsApp openWindow.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1376	wsApp selectedWorkspaceIndexHolder value:1.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1377	^ wsApp
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1378
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1379	"
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1380	self openWithGlobalsInspector
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1381	"
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1382	!
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1383
8317 01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1384	openMyWorkspace
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1385	self openOnFile:'MyWorkspace.wsp'
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1386
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1387	"
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1388	self openMyWorkspace.
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1389	"
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1390	!
01fd5ecc91e9 +openMyWorkspace Claus Gittinger <cg@exept.de> parents: 8315 diff changeset	1391
6022 f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1392	openOnFile:aFilename
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1393	"launch a new workspace on the contents of some file"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1394
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1395	\|ws\|
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1396
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1397	ws := self openWith:nil.
8369 b06c42605499 * empty log message * Claus Gittinger <cg@exept.de> parents: 8350 diff changeset	1398
b06c42605499 * empty log message * Claus Gittinger <cg@exept.de> parents: 8350 diff changeset	1399	"/ let the ws load the file - instead of the caller.
b06c42605499 * empty log message * Claus Gittinger <cg@exept.de> parents: 8350 diff changeset	1400	"/ so the error dialog is shown in its context,
b06c42605499 * empty log message * Claus Gittinger <cg@exept.de> parents: 8350 diff changeset	1401	"/ and the caller (Launcher) is not blocked.
b06c42605499 * empty log message * Claus Gittinger <cg@exept.de> parents: 8350 diff changeset	1402	ws enqueueDelayedAction:[ws loadFile:aFilename].
b06c42605499 * empty log message * Claus Gittinger <cg@exept.de> parents: 8350 diff changeset	1403	"/ ws loadFile:aFilename.
6022 f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1404	^ ws
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1405
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1406	"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1407	WorkspaceApplication openOnFile:'Makefile'
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1408	"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1409	!
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1410
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1411	openSystemWorkspace
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1412	\|wsApp path needRemove font\|
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1413
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1414	needRemove := true.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1415
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1416	wsApp := self new.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1417	wsApp allButOpen.
7686 b4d299712d63 * empty log message * Claus Gittinger <cg@exept.de> parents: 7662 diff changeset	1418
b4d299712d63 * empty log message * Claus Gittinger <cg@exept.de> parents: 7662 diff changeset	1419	(wsApp builder componentAt:'NoteBook') destroyTabAction:nil.
b4d299712d63 * empty log message * Claus Gittinger <cg@exept.de> parents: 7662 diff changeset	1420
3337 46dd799d3446 * empty log message * Claus Gittinger <cg@exept.de> parents: 3336 diff changeset	1421	wsApp window extent:640@400.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1422
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1423	path := (Smalltalk getSystemFileName:'README') ? '../../README'.
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1424	path := path asFilename.
722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1425	path isReadable ifTrue:[
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1426	wsApp addWindow:(HVScrollableView for:Workspace) named:'README' asFirst:false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1427	wsApp loadFile:path.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1428	wsApp removeWorkspace:1. "/ the original Workspace
4183 029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	1429	wsApp renameWorkspace:1 to:'LICENCE README'.
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1430	needRemove := false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1431	].
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1432
3346 6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1433	"/ path := (Smalltalk getSystemFileName:'doc/online/english/LICENCE_STX.html') ? '../../doc/online/english/LICENCE_STX.html'.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1434	"/ path asFilename exists ifTrue:[
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1435	"/ wsApp addWindow:(licenceView := HVScrollableView for:HTMLDocumentView) named:'License' asFirst:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1436	"/ licenceView homeDocument:'../../doc/online/english/LICENCE_STX.html'.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1437	"/ licenceView updateLabelFlag:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1438	"/ needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1439	"/ needRemove := false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1440	"/ ].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1441
5684 b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1442	wsApp graphicsDevice platformName = 'X11' ifTrue:[
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1443	font := Font family:'unifont' face:'medium' style:'roman' size:16 encoding:'iso10646-1'.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1444	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1445	font isNil ifTrue:[
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1446	font := Font family:'arial' face:'medium' style:'roman' size:12 encoding:'iso10646-1'.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1447	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1448	].
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1449	] ifFalse:[
9166 c24736e12c33 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 9085 diff changeset	1450	"/ font := Font family:'Arial Unicode MS' face:'medium' style:'roman' size:10 encoding:'ms-ansi'.
c24736e12c33 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 9085 diff changeset	1451	font := Font family:'Arial' face:'medium' style:'roman' size:10 encoding:'ms-ansi'.
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1452	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1453	].
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1454
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1455	#( "/ file resourceKey title forcedEncoding type
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1456	('Hello_utf8.wsp' HELLO_UTF_FILE 'Hello' #'utf8' #text)
8792 8c3dc2048387 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8791 diff changeset	1457	('Welcome.wsp' WELCOME_FILE 'This Release' nil #text)
8791 5a85029bf765 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8790 diff changeset	1458	"/ ('Setup.wsp' SETUP_FILE 'Setup' nil #text)
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1459	('Keyboard.wsp' KEYBOARD_FILE 'Keyboard' nil #text)
8791 5a85029bf765 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8790 diff changeset	1460	"/ ('GettingStarted.wsp' GETTING_STARTED_FILE 'Getting Started' nil #text)
5a85029bf765 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8790 diff changeset	1461	('../../doc/online/english/GettingStarted.html' GETTING_STARTED_TML_FILE 'Getting Started' nil #html)
5a85029bf765 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8790 diff changeset	1462	('../../doc/books/JoyOfST/IntroToST.html' INTRO_TO_ST_FILE 'Smalltalk Introduction' nil #html)
7612 42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1463	"/ if these are present, show them.
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1464	('Private.wsp' PRIVATE_FILE 'Private Workspace' nil #text)
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1465	('MyWorkspace.wsp' MYWORKSPACE_FILE 'My Workspace' nil #text)
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1466	) do:[:tuple \|
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1467	\|file resKey title forcedEncoding type pane encoding htmlView\|
6211 84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1468
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1469	file := tuple at:1.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1470	resKey := tuple at:2.
6211 84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1471	file := self classResources string:resKey default:file.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1472
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1473	title := tuple at:3.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1474	forcedEncoding := tuple at:4.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1475	type := tuple at:5.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1476
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1477	path := Smalltalk getSystemFileName:file.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1478	(path notNil and:[path asFilename isReadable]) ifTrue:[
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1479	type == #html ifTrue:[
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1480	wsApp addWindow:(htmlView := HVScrollableView for:HTMLDocumentView) named:title asFirst:false.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1481	htmlView homeDocument:path.
8790 902de08bc511 dont send obsolete messages Claus Gittinger <cg@exept.de> parents: 8771 diff changeset	1482	htmlView updateTopViewsTitleFlag:false.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1483	] ifFalse:[
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1484	wsApp addWindow:(pane := HVScrollableView for:Workspace) named:title asFirst:false.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1485	forcedEncoding notNil ifTrue:[
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1486	encoding := forcedEncoding.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1487	font notNil ifTrue:[
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1488	pane font:font.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1489	]
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1490	] ifFalse:[
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1491	encoding := CharacterEncoder guessEncodingOfFile:path.
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1492	(encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1493	encoding := nil
26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1494	].
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1495	].
8771 26df78104a59 changed: #openSystemWorkspace Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	1496	wsApp loadFile:path encoding:encoding label:title.
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1497	].
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1498	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1499	needRemove := false.
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1500	].
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1501	].
5693 6193522a042b * empty log message * Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	1502	wsApp openWindow.
6193522a042b * empty log message * Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	1503	wsApp selectedWorkspaceIndexHolder value:2.
7849 e3e01db99dd9 open methods return the just created ws Claus Gittinger <cg@exept.de> parents: 7848 diff changeset	1504	^ wsApp
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1505
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1506	"
7850 a637bd14a034 example-comment Claus Gittinger <cg@exept.de> parents: 7849 diff changeset	1507	\|ws b\|
a637bd14a034 example-comment Claus Gittinger <cg@exept.de> parents: 7849 diff changeset	1508	ws := self openSystemWorkspace.
7853 9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1509	ws addMyWorkspace.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1510	ws selectedWorkspaceIndexHolder value:(ws workspaces size).
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1511	ws selectedWorkspace contents:'Tools::NewSystemBrowser open'; selectAll.
7850 a637bd14a034 example-comment Claus Gittinger <cg@exept.de> parents: 7849 diff changeset	1512	ws selectedWorkspace
7851 a6c81764dcfd example-comment Claus Gittinger <cg@exept.de> parents: 7850 diff changeset	1513	add:(b := Button label:'DoIt' action:[ws doIt. b destroy])
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1514	"
7853 9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1515	"
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1516	\|ws b\|
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1517	ws := self new.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1518	ws open.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1519	ws selectedWorkspace contents:'Tools::NewSystemBrowser open'; selectAll.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1520	"
7612 42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1521
7851 a6c81764dcfd example-comment Claus Gittinger <cg@exept.de> parents: 7850 diff changeset	1522	"Modified: / 25-09-2007 / 21:04:50 / cg"
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1523	!
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1524
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1525	openWith:initialText
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1526	"launch a new workspace with some initial contents"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1527
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1528	^ self openWith:initialText selected:false
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1529
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1530	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1531	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1532	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1533	!
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1534
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1535	openWith:initialText selected:selectedBoolean
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1536	"launch a new workspace with some initial contents"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1537
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1538	\|workspace\|
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1539
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1540	workspace := self new.
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1541	workspace open.
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1542	workspace selectedWorkspace contents:initialText selected:selectedBoolean.
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1543	^ workspace
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1544
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1545	"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1546	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1547	"
9085 261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1548	!
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1549
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1550	openWithGlobalsInspector
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1551	"open a workspaceApp with a single initial pane, showing global variables.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1552	Same as Smalltalk inspect, but looks nicer..."
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1553
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1554	^ self openForSinglePageDoing:[:wsApp \| wsApp addNamespaceInspectorFor:Smalltalk]
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1555
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1556	"
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1557	self openWithGlobalsInspector
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1558	"
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1559	!
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1560
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1561	openWithWorkspaceVariableInspector
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1562	"open a workspaceApp with a single initial pane, showing workspace variables.
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1563	Same as Workspace workspaceVariables inspect, but looks nicer..."
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1564
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1565	^ self openForSinglePageDoing:[:wsApp \| wsApp addWorkspaceVariableInspector]
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1566
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1567	"
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1568	self openWithWorkspaceVariableInspector
261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	1569	"
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1570	! !
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1571
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1572	!WorkspaceApplication methodsFor:'aspects'!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1573
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1574	autoDefineVariables
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1575	autoDefineVariables isNil ifTrue:[
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1576	autoDefineVariables := ValueHolder new.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1577	(UserPreferences current autoDefineWorkspaceVariables) ifTrue:[
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1578	autoDefineVariables value:#workspace.
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1579	] ifFalse:[
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1580	autoDefineVariables value:#doIt.
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1581	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1582	autoDefineVariables onChangeSend:#autoDefineVariablesChanged to:self.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1583	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1584	^ autoDefineVariables.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1585	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1586
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1587	browseItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1588	^ self thisIsASmalltalkWorkspace
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1589	!
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1590
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1591	doItMenuButtonVisibile
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1592	^ self thisIsASmalltalkWorkspace
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1593	!
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1594
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1595	hasHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1596	^ Workspace doItHistory size > 0.
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1597	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1598
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1599	hasInfoLabel
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1600	^ true
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1601	!
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1602
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1603	inspectItMenuButtonVisibile
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1604	^ self thisIsASmalltalkWorkspace
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1605	!
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1606
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1607	languageInfoLabelHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1608	^ BlockValue
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1609	with:[:syntax \| 'Syntax: ',syntax name ]
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1610	argument:self syntaxHolder
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1611	!
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1612
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1613	printItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1614	^ self thisIsASmalltalkWorkspace
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1615	!
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1616
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1617	setCompilerForSyntax
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1618	\|language\|
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1619
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1620	language := self syntaxHolder value.
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1621	self selectedWorkspace
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1622	compilerClass:(language compilerClass "self compilerClassForSyntaxName:syntax").
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1623
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1624	self smalltalkMenuEnabledHolder value:(language isSmalltalk).
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1625	!
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1626
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1627	smalltalkMenuEnabledHolder
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1628	smalltalkMenuEnabledHolder isNil ifTrue:[
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1629	smalltalkMenuEnabledHolder := true asValue.
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1630	].
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1631	^ smalltalkMenuEnabledHolder
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1632	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1633
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1634	syntaxHolder
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1635	syntaxHolder isNil ifTrue:[
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1636	syntaxHolder := self defaultEvaluatorSyntax asValue.
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1637	syntaxHolder onChangeSend:#setCompilerForSyntax to:self
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1638	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1639	^ syntaxHolder
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1640	! !
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1641
4358 b0023a5ca3b8 category change Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1642	!WorkspaceApplication methodsFor:'aspects-queries'!
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1643
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1644	anyWorkspaceVariableIsDefined
6267 ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	1645	^ Workspace anyWorkspaceVariableIsDefined
ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	1646
ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	1647	"Modified: / 20-04-2005 / 11:57:59 / cg"
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1648	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1649
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1650	!WorkspaceApplication methodsFor:'defaults'!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1651
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1652	defaultEvaluatorSyntax
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1653	^ SmalltalkLanguage instance.
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1654	!
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1655
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1656	defaultFileNameForLoad
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1657	^ 'file.wsp'
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1658
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1659	"Created: / 25-10-2006 / 14:56:10 / cg"
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1660	!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1661
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1662	defaultFileNameForSave
8324 54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1663	\|ws\|
54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1664
54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1665	ws := self selectedWorkspace.
8394 9a9255734730 changed #defaultFileNameForSave Claus Gittinger <cg@exept.de> parents: 8384 diff changeset	1666	ws isScrollWrapper ifTrue:[ ws := ws scrolledView ].
8324 54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1667	ws isTextView ifFalse:[
54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1668	"/ eval-ws
54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1669	^ super defaultFileNameForSave
54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1670	].
54fa3ea4a301 * empty log message * Claus Gittinger <cg@exept.de> parents: 8323 diff changeset	1671	^ ws defaultFileNameForFileDialog ? super defaultFileNameForSave
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1672	!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1673
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1674	defaultFileNameForSaveAll
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1675	^ 'file.wsp'
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1676
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1677	"Created: / 25-10-2006 / 14:56:04 / cg"
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1678	!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1679
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1680	defaultPatternLoad
8032 d4099cd34621 * empty log message * Claus Gittinger <cg@exept.de> parents: 7944 diff changeset	1681	^ '.wsp; .txt; *.rc'
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1682
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1683	"Created: / 25-10-2006 / 14:57:25 / cg"
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1684	!
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1685
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1686	executeMenuVisible
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1687	^ self thisIsASmalltalkWorkspace
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1688	!
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1689
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1690	thisIsASmalltalkWorkspace
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1691	"can be redefined in a subclass to disable smalltalk-specific menu items
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	1692	(expecco uses workspaces as scratchpads)"
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1693
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1694	^ true
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1695	! !
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1696
9372 3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1697	!WorkspaceApplication methodsFor:'drag & drop'!
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1698
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1699	droppedFile:aFilename in:aComponent
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1700	"this is a notification from my textView component"
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1701
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1702	self
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1703	renameWorkspace:(self selectedWorkspaceIndexHolder value)
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1704	to:aFilename asFilename baseName
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1705	! !
3727c6e226cf added: #droppedFile:in: Claus Gittinger <cg@exept.de> parents: 9341 diff changeset	1706
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1707	!WorkspaceApplication methodsFor:'initialization & release'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1708
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1709	closeRequest
6636 0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	1710	"asks for permission before closing"
0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	1711
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1712	(self askIfAnyModified:'Text was not saved. Close anyway ?' yesButton:'Close') ifFalse:[
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1713	^ self
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1714	].
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1715
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1716	^ super closeRequest
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1717	!
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1718
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1719	postBuildWith:aBuilder
aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	1720	super postBuildWith:aBuilder.
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1721	self setCompilerForSyntax.
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1722
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1723	self infoVisibilityChanged. "/ force geometry update
7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	1724	self autoDefineVariablesChanged. "/ force workspaceView update
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1725	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1726
4359 35995cc972f7 category change Claus Gittinger <cg@exept.de> parents: 4358 diff changeset	1727	!WorkspaceApplication methodsFor:'menu-actions'!
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1728
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1729	askForFilterBlock:message template:template rememberIn:nameOfClassVar
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1730	\|filterBlockString filterBlock dialog textHolder classVarValue\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1731
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1732	classVarValue := self class classVarAt:nameOfClassVar ifAbsent:nil.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1733	classVarValue isNil ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1734	self class classVarAt:nameOfClassVar put:template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1735	classVarValue := template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1736	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1737
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1738	textHolder := ValueHolder new.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1739	dialog := Dialog
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1740	forRequestText:(resources string:message)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1741	lines:25
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1742	columns:70
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1743	initialAnswer:classVarValue
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1744	model:textHolder.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1745	dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1746	dialog open.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1747	dialog accepted ifFalse:[^ nil].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1748
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1749	filterBlockString := textHolder value.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1750	self class classVarAt:nameOfClassVar put:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1751
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1752	filterBlock := Parser evaluate:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1753	filterBlock isBlock ifFalse:[
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1754	self error:'bad input for filterBlock' mayProceed:true.
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1755	^ nil
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1756	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1757
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1758	^ filterBlock
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1759	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1760
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1761	autoDefineVariablesChanged
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1762	\|autoDefine\|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1763
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1764	autoDefine := autoDefineVariables value.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1765	UserPreferences current autoDefineWorkspaceVariables:(autoDefine == #workspace).
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1766	workspaces do:[:each \|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1767	each autoDefineVariables:autoDefine
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1768	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1769	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1770
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1771	basicInspectIt
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1772	self inspectIt:true
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1773	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1774
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1775	browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1776	self selectedWorkspacesTextView browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1777	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1778
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1779	browseIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1780	self selectedWorkspacesTextView browseIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1781	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1782
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1783	browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1784	self selectedWorkspacesTextView browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1785	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1786
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1787	clearHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1788	Workspace clearDoItHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1789	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1790
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1791	doIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1792	self selectedWorkspacesTextView doIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1793	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1794
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1795	inspectIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1796	self inspectIt:false
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1797	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1798
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1799	inspectIt:isBasicInspector
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1800	\|ws\|
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1801
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1802	ws := self selectedWorkspacesTextView.
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1803	ws
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1804	do:(ws selection)
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1805	withValueDo:[:result \|
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1806	self addInspectorOn:result basic:isBasicInspector suppressPseudoSlots:false
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1807	]
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1808
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1809	"/ self selectedWorkspace inspectIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1810	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1811
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1812	inspectWorkspaceVariables
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1813	\|wsvars\|
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1814
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1815	wsvars := Workspace workspaceVariables.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1816	wsvars size == 0 ifTrue:[
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1817	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1818	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1819	].
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1820	wsvars inspect
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1821	!
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1822
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1823	manageSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1824	\|bindings listOfSniplets removeAction pasteAction
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1825	hasSelectionHolder removeEnabledHolder pasteEnabledHolder
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1826	selectedSnipletHolder selectedSnipletsTextHolder selectedSnipletsName
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1827	snipletsDictionary saveEnabledHolder saveAction \|
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1828
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1829	snipletsDictionary := Workspace sniplets.
78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1830	snipletsDictionary isEmptyOrNil ifTrue:[
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	1831	Dialog information:(resources string:'No Sniplets to Manage').
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1832	^ self.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1833	].
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1834
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1835	listOfSniplets := List withAll:(snipletsDictionary keys asOrderedCollection sort).
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1836	selectedSnipletsTextHolder := '' asValue.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1837
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1838	selectedSnipletHolder := nil asValue.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1839	selectedSnipletHolder onChangeEvaluate:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1840	(selectedSnipletHolder value) isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1841	selectedSnipletsName := nil.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1842	selectedSnipletsTextHolder value:''.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1843	] ifFalse:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1844	selectedSnipletsName := listOfSniplets at:(selectedSnipletHolder value).
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1845	selectedSnipletsTextHolder value:(snipletsDictionary at:selectedSnipletsName).
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1846	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1847	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1848
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1849	hasSelectionHolder := BlockValue with:[:m \| m value notNil] argument:selectedSnipletHolder.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1850	removeEnabledHolder := hasSelectionHolder.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1851	pasteEnabledHolder := hasSelectionHolder.
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1852	saveEnabledHolder := BlockValue with:[:m :textHolder\|
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1853	m value notNil
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1854	and:[(snipletsDictionary at:(listOfSniplets at:(selectedSnipletHolder value))) ~= textHolder value]
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1855	] argument: selectedSnipletHolder argument: selectedSnipletsTextHolder.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1856
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1857	removeAction := [
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1858	snipletsDictionary removeKey:selectedSnipletsName.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1859	listOfSniplets remove:selectedSnipletsName.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1860	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1861
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1862	pasteAction := [
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1863	\|text\|
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1864	text := snipletsDictionary at:selectedSnipletsName.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1865	self paste:text
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1866	].
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1867	saveAction := [
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1868	\|originalText newText\|
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1869	originalText := snipletsDictionary at:selectedSnipletsName.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1870	newText := selectedSnipletsTextHolder value.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1871	originalText ~= newText ifTrue:[
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1872	snipletsDictionary at: selectedSnipletsName put: newText.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1873	].
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1874	saveEnabledHolder recomputeValue.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1875	].
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1876
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1877	bindings := IdentityDictionary new.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1878	bindings at:#listOfSniplets put:listOfSniplets.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1879	bindings at:#selectedSniplet put:selectedSnipletHolder asValue.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1880	bindings at:#selectedSnipletsText put:selectedSnipletsTextHolder.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1881	bindings at:#removeSelectedSniplet put:removeAction.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1882	bindings at:#pasteSelectedSniplet put:pasteAction.
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1883	bindings at:#saveSelectedSniplet put:saveAction.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1884	bindings at:#removeEnabled put:removeEnabledHolder.
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1885	bindings at:#pasteEnabled put:pasteEnabledHolder.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1886	bindings at:#saveEnabled put:saveEnabledHolder.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1887
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1888	self openDialogInterface:#manageSnipletsDialogSpec withBindings:bindings
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1889	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1890
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1891	newEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1892	self class openEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1893
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1894	"Created: / 13-10-2006 / 12:19:47 / cg"
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1895	!
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1896
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1897	newSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1898	self class openSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1899	!
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1900
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1901	openDocumentation
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1902	"opens the documentation file"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1903
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1904	self openHTMLDocument: 'tools/misc/TOP.html#WORKSPACE'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1905	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1906
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1907	pasteAndExecute:aString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1908	self paste:aString.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1909	self printIt
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1910	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1911
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1912	pasteSniplet
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1913	\|allSniplets snipletToPaste snipletsDictionary\|
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1914
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1915	snipletsDictionary := Workspace sniplets.
78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1916	snipletsDictionary isEmptyOrNil ifTrue:[
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	1917	Dialog information:(resources string:'No Sniplets to Paste').
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1918	^ self.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1919	].
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1920	allSniplets := snipletsDictionary keys asOrderedCollection sort.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1921
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1922	snipletToPaste := Dialog
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	1923	choose:(resources string:'Paste Sniplet:')
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1924	fromList:allSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1925	lines:10.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1926	snipletToPaste isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1927	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1928	].
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1929	self paste:(snipletsDictionary at:snipletToPaste).
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1930
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1931	"Modified: / 24-11-2006 / 12:44:16 / cg"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1932	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1933
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1934	printIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1935	self selectedWorkspacesTextView printIt
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1936	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1937
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1938	processText
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1939	\|template filterBlock newList oldList answer nChanged changedLines flags\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1940
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1941	template :=
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1942	'"/ general text processor;
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1943	"/ the following block should evaluate to a new line,
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1944	"/ given the original line as argument.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1945	"/ Beginner warning: Smalltalk know-how is useful here.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1946
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1947	[:line \|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1948	"/ any processing on line.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1949	"/ Notice, that line might be a Text object (i.e. non-string),
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1950	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1951	"/ Useful operations on the line are:
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1952	"/ - '' .... '' , concatenation of any prefix/suffix
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1953	"/ - leftPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1954	"/ - rightPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1955	"/ - copyTo:(size min:N)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1956	"/ - asUppercase
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1957	"/ - asLowercase
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1958	"/ - withoutSeparators remove whiteSpace
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1959	"/ - asCollectionOfWords words
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1960
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1961	"/ makes everything bold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1962	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1963	"/ line allBold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1964
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1965	"/ first word only
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1966	"/
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1967	"/ line withoutSeparators asCollectionOfWords first
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1968
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1969	"/ dummy filter (keeps all lines as-is)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1970	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1971	line
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1972	]
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1973	'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1974	filterBlock := self askForFilterBlock:'Processing block:'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1975	template:template
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1976	rememberIn:#LastProcessingBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1977	filterBlock isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1978
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1979	oldList := self selectedWorkspacesTextView list.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1980	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1981	newList := oldList collect:[:line \| \|newLine\|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1982	newLine := line.
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1983	Error handle:[:ex \|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1984	] do:[
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1985	newLine := filterBlock value:line
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1986	].
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1987	newLine
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1988	].
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1989	newList := newList collect:[:line \| (line isString and:[line size == 0]) ifTrue:[nil] ifFalse:[line]].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1990
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1991	flags := (1 to:oldList size) collect:[:i \| (oldList at:i) ~= (newList at:i)].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1992	flags := flags select:[:flag \| flag].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1993	nChanged := flags size.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1994	nChanged == 0 ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1995	self information:'No lines were changed.'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1996	^ self
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1997	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1998
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1999	answer := Dialog confirmWithCancel:(resources
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2000	string:'%1 lines changed. Change text ?'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2001	with:nChanged)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2002	labels:#( 'Cancel' 'No, Show Changed' 'Yes').
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2003	answer isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2004	answer ifFalse:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2005	changedLines := (1 to:oldList size) select:[:i \| (oldList at:i) ~= (newList at:i)].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2006	changedLines := changedLines collect:[:i \| (newList at:i)].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2007	TextBox openOn:(changedLines asStringCollection) title:'Changed lines'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2008	^ self.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2009	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2010
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2011	self selectedWorkspacesTextView list:newList.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2012	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2013
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2014	redoLastDoIt
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2015	\|s\|
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2016
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2017	s := self lastDoItsString.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2018	s notNil ifTrue:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2019	self pasteAndExecute:s
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2020	]
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2021	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2022
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2023	removeAllWorkspaceVariables
5846 d959a98a0047 * empty log message * Claus Gittinger <cg@exept.de> parents: 5804 diff changeset	2024	(Dialog confirm:(resources string:'Do you really want to remove all Workspace Variables ?'))
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2025	ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2026	Workspace removeAllWorkspaceVariables
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2027	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2028	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2029
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2030	removeGlobalVariable
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2031	\|name nameKey selection value\|
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2032
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2033	selection := self selectedWorkspacesTextView selection ? ''.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2034
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2035	name := Dialog
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2036	request:'Remove Global Variable:'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2037	initialAnswer:(selection asString string)
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2038	okLabel:'Remove'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2039	title:'Remove Global'.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2040
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2041	name size == 0 ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2042	nameKey := name asSymbolIfInterned.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2043	nameKey isNil ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2044
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2045	(Smalltalk includesKey:nameKey) ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2046	self warn:('No such Global Binding: ''%1''.' bindWith:name).
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2047	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2048	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2049
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2050	value := Smalltalk at:nameKey.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2051	value notNil ifTrue:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2052	(self confirm:('Global ''%1'' is currently bound to %2\\Remove Binding ?' bindWith:name with:value) withCRs)
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2053	ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2054	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2055	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2056	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2057	Smalltalk at:nameKey put:nil.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2058	Smalltalk removeKey:nameKey
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2059	!
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	2060
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2061	removeSharedPool
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2062	\|poolToRemove\|
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2063
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2064	poolsConsideredInDoIts isEmptyOrNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2065	Dialog information:'No pools have been added yet'.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2066	^ self.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2067	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2068
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2069	poolToRemove := Dialog
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2070	choose:'Pool to Remove (No longer known in doIt-Evaluations):'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2071	fromList:(poolsConsideredInDoIts asOrderedCollection sort)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2072	lines:10.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2073
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2074	poolToRemove isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2075	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2076	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2077	poolsConsideredInDoIts remove:poolToRemove.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2078	workspaces do:[:ws \|
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2079	ws poolsConsideredInDoits:poolsConsideredInDoIts.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2080	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2081
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2082	"Modified: / 24-11-2006 / 12:44:16 / cg"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2083	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2084
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2085	removeWorkspaceVariable
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2086	\|name selection wsVarNames\|
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	2087
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2088	wsVarNames := Workspace workspaceVariableNames.
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2089	wsVarNames isEmpty ifTrue:[
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	2090	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	2091	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	2092	].
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2093
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2094	selection := self selectedWorkspacesTextView selection ? ''.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2095
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2096	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2097	request:'Variable to remove:'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2098	initialAnswer:(selection asString string)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2099	okLabel:'Remove'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2100	title:'Enter Variable Name'
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2101	list:(wsVarNames asOrderedCollection sort).
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2102	name isEmptyOrNil ifTrue:[
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2103	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2104	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2105	Workspace removeWorkspaceVariable:name.
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2106
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	2107	"Modified: / 20-04-2005 / 11:56:28 / cg"
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2108	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	2109
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	2110	spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	2111	self selectedWorkspacesTextView spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	2112	!
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	2113
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	2114	timeIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	2115	self selectedWorkspacesTextView timeIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2116	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2117
8763 22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2118	!WorkspaceApplication methodsFor:'menu-actions-adding'!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2119
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2120	addClassVariableInspector
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2121	\|v\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2122
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2123	ClassVariablesInspectorView isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2124	self error:'Missing class: "ClassVariablesInspectorView"'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2125	^ self.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2126	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2127	v := self addInspectorOn:Smalltalk inspectorClass:ClassVariablesInspectorView suppressPseudoSlots:true.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2128
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2129	v fieldListLabel:'Name'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2130	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Class Variables'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2131
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2132	"Modified: / 22-10-2006 / 11:28:14 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2133	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2134
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2135	addEvaluationWorkspace
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2136	^ self addWindow:(self createEvaluationWorkspace) named:'Eval%1'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2137
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2138	"Modified: / 13-10-2006 / 12:16:35 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2139	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2140
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2141	addGlobalVariable
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2142	\|name nameKey selection\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2143
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2144	selection := self selectedWorkspacesTextView selection ? ''.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2145
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2146	name := Dialog
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2147	request:'Name of new Global Variable:'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2148	initialAnswer:(selection asString string)
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2149	okLabel:'Add'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2150	title:'Enter Variable Name'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2151	name size == 0 ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2152	^ self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2153	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2154	nameKey := name asSymbol.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2155
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2156	(Smalltalk includesKey:nameKey) ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2157	self warn:'Global named ''' , name , ''' already exists.'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2158	^ self.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2159	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2160	Smalltalk at:nameKey put:nil.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2161	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2162
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2163	addGlobalVariableInspector
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2164	^ self addNamespaceInspectorFor:Smalltalk
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2165
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2166	"Modified: / 29-05-2007 / 19:08:58 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2167	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2168
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2169	addInspectorOn:aValue basic:isBasicInspector suppressPseudoSlots:suppressPseudoSlots
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2170	\|inspectorClass\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2171
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2172	isBasicInspector ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2173	inspectorClass := aValue inspectorClass.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2174	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2175	inspectorClass isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2176	inspectorClass := InspectorView
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2177	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2178
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2179	^ self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2180	addInspectorOn:aValue
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2181	inspectorClass:inspectorClass
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2182	suppressPseudoSlots:suppressPseudoSlots
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2183	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2184
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2185	addInspectorOn:aValue inspectorClass:inspectorClass suppressPseudoSlots:suppressPseudoSlots
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2186	\|view resultString\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2187
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2188	view := inspectorClass new.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2189	view suppressPseudoSlots:suppressPseudoSlots.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2190	view inspect:aValue.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2191	"/ v allowFollow:true.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2192	aValue isBehavior ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2193	resultString := aValue name
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2194	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2195	resultString := aValue classNameWithArticle
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2196	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2197	self addWindow:view named:('Inspecting: ' , resultString).
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2198	^ view
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2199	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2200
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2201	addMyWorkspace
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2202	\|pane f\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2203
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2204	self addWindow:(pane := HVScrollableView for:Workspace) named:'My Workspace' asFirst:false.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2205	'MyWorkspace.wsp' asFilename exists ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2206	self loadFile:'MyWorkspace.wsp' label:'My Workspace'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2207	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2208	(f := Filename homeDirectory construct:'MyWorkspace.wsp') exists ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2209	self loadFile:f label:'My Workspace'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2210	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2211	pane defaultFileNameForFileDialog:'MyWorkspace.wsp'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2212	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2213	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2214
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2215	"Modified: / 15-03-2007 / 11:54:17 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2216	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2217
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2218	addNamespaceInspector
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2219	\|ns\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2220
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2221	ns := Dialog requestNameSpace:'Namespace' initialAnswer:nil.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2222	ns isEmptyOrNil ifTrue:[^ self].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2223	^ self addNamespaceInspectorFor:(Smalltalk at:ns asSymbol)
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2224
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2225	"Created: / 29-05-2007 / 19:10:50 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2226	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2227
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2228	addNamespaceInspectorFor:aNameSpaceOrSharedPool
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2229	\|v label\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2230
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2231	SmalltalkInspectorView isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2232	self error:'Missing class: "SmalltalkInspectorView"'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2233	^ nil.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2234	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2235
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2236	v := self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2237	addInspectorOn:aNameSpaceOrSharedPool
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2238	inspectorClass:SmalltalkInspectorView
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2239	suppressPseudoSlots:true.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2240
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2241	v fieldListLabel:'Name'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2242	aNameSpaceOrSharedPool == Smalltalk ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2243	label := 'Smalltalk (Globals)'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2244	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2245	aNameSpaceOrSharedPool isSharedPool ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2246	label := aNameSpaceOrSharedPool name,' (SharedPool)'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2247	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2248	label := aNameSpaceOrSharedPool name,' (Namespace)'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2249	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2250	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2251
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2252	self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2253	renameWorkspace:(self selectedWorkspaceIndexHolder value)
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2254	to:label.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2255	^ v
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2256
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2257	"Created: / 29-05-2007 / 19:08:45 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2258	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2259
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2260	addSelectionToSniplets
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2261	\|selection snipletsBaseName snipletsName nr snipletsDictionary\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2262
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2263	selection := (self selectedWorkspacesTextView selection ? '') asString.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2264	selection isEmpty ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2265	Dialog information:(resources string:'Nothing Selected').
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2266	^ self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2267	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2268
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2269	snipletsBaseName := Dialog request:(resources string:'Name of Sniplet:').
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2270	snipletsBaseName isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2271	^ self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2272	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2273	snipletsBaseName isEmpty ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2274	snipletsBaseName := Time now asString.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2275	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2276	snipletsDictionary := Workspace sniplets.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2277
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2278	snipletsName := snipletsBaseName.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2279	(snipletsDictionary includesKey:snipletsName) ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2280	(Dialog confirm:(resources string:'Replace existing sniplet named "%1" ?' with:snipletsName))
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2281	ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2282	[snipletsDictionary includesKey:snipletsName] whileTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2283	nr := (nr ? 1) + 1.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2284	snipletsName := (snipletsBaseName,'(%1)') bindWith:nr
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2285	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2286	]
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2287	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2288	snipletsDictionary at:snipletsName put:selection
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2289
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2290	"Modified: / 24-11-2006 / 12:44:16 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2291	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2292
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2293	addSharedPool
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2294	\|allPools poolToAdd\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2295
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2296	allPools := SharedPool allSubclasses collect:[:p \| p name].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2297	allPools removeAll:(poolsConsideredInDoIts ? #()).
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2298
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2299	poolToAdd := Dialog
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2300	choose:'Select a SharedPool to Add (To be known in doIt-Evaluations):'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2301	fromList:allPools
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2302	lines:15.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2303	poolToAdd isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2304	^ self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2305	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2306	poolsConsideredInDoIts isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2307	poolsConsideredInDoIts := (Set new).
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2308	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2309	poolsConsideredInDoIts add:poolToAdd.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2310	workspaces do:[:ws \|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2311	ws poolsConsideredInDoIts:poolsConsideredInDoIts.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2312	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2313
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2314	"Modified: / 24-11-2006 / 12:44:16 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2315	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2316
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2317	addSharedPoolInspector
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2318	\|pool\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2319
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2320	pool := Dialog requestSharedPool:'SharedPool' title:nil initialAnswer:nil.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2321	pool isEmptyOrNil ifTrue:[^ self].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2322	^ self addNamespaceInspectorFor:(Smalltalk at:pool asSymbol)
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2323
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2324	"Created: / 29-05-2007 / 19:10:50 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2325	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2326
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2327	addStopWatch
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2328	\|v clock\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2329
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2330	v := View new.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2331	v viewBackground:Color white.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2332	clock := ClockView in:v.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2333	clock beStopWatch.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2334
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2335	clock
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2336	origin:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2337	\|ext\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2338
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2339	ext := (v height) min:(v width).
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2340	(v extent - ext) // 2
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2341	]
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2342	extent:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2343	\|ext\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2344
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2345	ext := (v height) min:(v width).
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2346	ext @ ext
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2347	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2348
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2349	self addWindow:v named:'StopWatch%1'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2350	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2351
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2352	addTeaTimer
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2353	\|l dt tEnd dur answer\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2354
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2355	dt := LastTeaWaitTime ? (3*60).
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2356	answer := Dialog
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2357	request:'Delta-Time (seconds), Duration (n s/m/h) or End-Time (hh:mm:ss):'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2358	initialAnswer:(TimeDuration seconds:dt) printString.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2359	answer isEmptyOrNil ifTrue:[^ self].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2360
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2361	"/ allow 3 formats:
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2362	"/ hh:mm:ss -> endTime
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2363	"/ nnn s -> x seconds
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2364	"/ nnn m -> x minutes
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2365	"/ nnn h -> x hours
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2366	"/ nnn -> seconds
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2367
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2368	tEnd := Time readFromString:answer onError:nil.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2369	tEnd isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2370	dur := TimeDuration readFromString:answer onError:nil.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2371	dur isNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2372	dt := Number readFromString:answer onError:[^ self].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2373	LastTeaWaitTime := dt.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2374	tEnd := Timestamp now addSeconds:dt.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2375	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2376	dt := dur asSeconds.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2377	tEnd := Timestamp now + dur.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2378	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2379	] ifFalse:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2380	dt := tEnd - Time now.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2381	tEnd := tEnd asTimestamp.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2382	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2383
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2384	l := Label new.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2385	l sizeFixed:true.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2386	l label:'Waiting... [',(TimeDuration seconds:dt) printString,']'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2387	l viewBackground:Color red.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2388	self addWindow:l named:'TeaTimer%1'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2389
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2390	[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2391	Error handle:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2392	#intentionallyLeftBlank
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2393	] do:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2394	\|remaining\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2395
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2396	[AbsoluteTime now < tEnd ] whileTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2397	remaining := tEnd - AbsoluteTime now.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2398	l label:'Waiting... [',(TimeDuration seconds:remaining) printString,']'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2399	Delay waitForSeconds:1.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2400	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2401	3 timesRepeat:[ l beep. Delay waitForSeconds:0.4 ].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2402	l label:'TEA is ready !!'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2403	l viewBackground:Color green.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2404	l topView raiseDeiconified.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2405	]
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2406	] fork.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2407
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2408	"Modified: / 23-11-2006 / 16:48:14 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2409	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2410
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2411	addWorkspaceVariable
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2412	\|name selectedWorkspacesTextView selection\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2413
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2414	selectedWorkspacesTextView := self selectedWorkspacesTextView.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2415	selectedWorkspacesTextView notNil ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2416	selection := selectedWorkspacesTextView selection.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2417	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2418
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2419	name := Dialog
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2420	request:'Name of new Workspace Variable:'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2421	initialAnswer:(selection ? '') asString string
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2422	okLabel:'Add'
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2423	title:'Enter Variable Name'.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2424	name size == 0 ifTrue:[
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2425	^ self
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2426	].
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2427	Workspace addWorkspaceVariable:name.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2428
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2429	"Modified: / 24-11-2006 / 12:44:16 / cg"
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2430	!
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2431
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2432	addWorkspaceVariableInspector
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2433	\|v\|
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2434
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2435	v := self addInspectorOn:(Workspace workspaceVariables) basic:false suppressPseudoSlots:true.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2436	v dereferenceValueHolders:true.
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2437	v fieldListLabel:'Name'.
9085 261f07323189 added: Claus Gittinger <cg@exept.de> parents: 9059 diff changeset	2438	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Workspace Variables'.
8763 22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2439	! !
22ea00721dff time parsing fix Claus Gittinger <cg@exept.de> parents: 8709 diff changeset	2440
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2441	!WorkspaceApplication methodsFor:'menu-actions-editing'!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2442
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2443	babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2444	"translate the selected text and paste it after the selection"
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2445
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2446	self selectedWorkspace babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2447	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2448
7831 afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2449	changesBrowserOnText
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2450	ChangeSetBrowser
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2451	openOn:(ChangeSet fromStream:self selectedWorkspacesTextView contentsAsString readStream)
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2452
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2453	"Created: / 27-08-2007 / 10:57:30 / cg"
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2454	!
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	2455
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	2456	fileInText
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	2457	self selectedWorkspacesTextView contentsAsString readStream fileIn
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	2458	!
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	2459
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2460	filterText
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2461	\|template filterBlock newList oldList answer nDeleted deletedLines\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2462
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2463	template :=
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2464	'"/ general text filter;
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2465	"/ the following block should evaluate to true for all lines
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2466	"/ you want to keep - lines for which the block returns false will be removed.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2467	"/ Beginner warning: Smalltalk know-how is useful here.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2468
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2469	[:line \|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2470	"/ any condition on line.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2471	"/ Notice, that line might be a Text object (i.e. non-string),
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2472	"/ so you may want to use line string.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2473	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2474	"/ Useful queries on the line are:
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2475	"/ - size the length of the line
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2476	"/ - hasChangeOfEmphasis any bold, italic etc.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2477	"/ - startsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2478	"/ - endsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2479
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2480	"/ example filter (removes all empty lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2481	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2482	"/ line size > 0
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2483
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2484	"/ example filter (removes all lines which do not end with some suffix)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2485	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2486	"/ (line asLowercase endsWith:''foo'') not
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2487
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2488	"/ dummy filter (keeps all lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2489	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2490	true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2491	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2492	'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2493
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2494	filterBlock := self askForFilterBlock:'Filter block:'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2495	template:template
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2496	rememberIn:#LastFilterBlockString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2497	filterBlock isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2498
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2499	oldList := self selectedWorkspacesTextView list.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2500	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2501	newList := oldList select:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2502	newList := newList collect:[:line \| (line isString and:[line size == 0]) ifTrue:[nil] ifFalse:[line]].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2503	nDeleted := oldList size - newList size.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2504	nDeleted == 0 ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2505	self information:'No lines were deleted.'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2506	^ self
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2507	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2508
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2509	answer := Dialog confirmWithCancel:(resources
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2510	string:'%1 lines remain (%2 deleted). Change text ?'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2511	with:newList size
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2512	with:nDeleted)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2513	labels:#( 'Cancel' 'No, Show Deleted' 'Yes').
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2514	answer isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2515	answer ifFalse:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2516	deletedLines := oldList reject:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2517	TextBox openOn:(deletedLines asStringCollection) title:'Filtered lines'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2518	^ self.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2519	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2520
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2521	self selectedWorkspacesTextView list:newList.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2522	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2523
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2524	googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2525	self selectedWorkspacesTextView googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2526	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2527
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2528	indent
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2529	\|macro\|
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2530
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2531	macro := (UserPreferences current functionKeySequences at:#IndentBy4).
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2532	self selectedWorkspacesTextView
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2533	undoableDo:[ self selectedWorkspacesTextView executeKeyboardMacro:macro ]
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2534	info:'Indent'.
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2535	!
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2536
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2537	pasteLastDoIt
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2538	\|s\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2539
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2540	s := self lastDoItsString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2541	s notNil ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2542	self paste:s
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2543	]
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2544	!
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2545
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2546	undent
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2547	\|macro\|
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2548
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2549	macro := (UserPreferences current functionKeySequences at:#UndentBy4).
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2550	self selectedWorkspacesTextView
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2551	undoableDo:[ self selectedWorkspacesTextView executeKeyboardMacro:macro ]
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2552	info:'Undent'.
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2553	! !
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2554
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2555	!WorkspaceApplication methodsFor:'menu-dynamic'!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2556
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2557	languageListMenuSlice
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2558	\|m allLanguages\|
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2559
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2560	allLanguages := OrderedCollection new.
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2561	ProgrammingLanguage allDo:[:eachLanguage \|
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2562	eachLanguage isSmalltalk ifFalse:[
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2563	allLanguages add:eachLanguage
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2564	]
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2565	].
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2566	allLanguages sort:[:a :b \| a name < b name].
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2567
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2568	m := Menu new.
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2569	m addItem:(MenuItem
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2570	label:'Smalltalk'
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2571	choice:#syntaxHolder
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2572	choiceValue:SmalltalkLanguage instance).
9341 aa3c5825ec98 refactored to allow redefinition of defaultSyntax Claus Gittinger <cg@exept.de> parents: 9304 diff changeset	2573
9304 6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2574	allLanguages notEmpty ifTrue:[
6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2575	m addItem:(MenuItem separator).
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2576
9304 6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2577	allLanguages do:[:eachLanguage \|
6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2578	m addItem:(MenuItem
6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2579	label:(eachLanguage name)
6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2580	choice:#syntaxHolder
6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2581	choiceValue:eachLanguage).
6d9d835a55bf changed: #languageListMenuSlice Claus Gittinger <cg@exept.de> parents: 9301 diff changeset	2582	].
9300 07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2583	].
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2584	^ m
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2585	!
07364a10a823 syntax to choose from is fetched via ProgramminLanguage list; Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	2586
8350 642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2587	makeRecentDoItsMenuFor:aSelector
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2588	\|doIts m cmdLabelLen\|
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2589
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2590	cmdLabelLen := 40.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2591
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2592	doIts := Workspace doItHistory.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2593	doIts size > 0 ifTrue:[
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2594	m := Menu new.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2595	doIts do:[:doItEntry \|
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2596	\|lines label item\|
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2597
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2598	lines := doItEntry withoutLeadingSeparators asStringCollection.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2599	label := lines first.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2600	(label size > cmdLabelLen) ifTrue:[
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2601	label := (label contractTo:cmdLabelLen)
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2602	].
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2603	(lines size > 1) ifTrue:[
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2604	label := label , ' [...]'
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2605	].
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2606	label := '''' , label , ''''.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2607
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2608	item := MenuItem label:label.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2609	m addItem:item.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2610	item value:aSelector.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2611	item argument:doItEntry.
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2612	].
9301 b00cab1c54d8 changed: #makeRecentDoItsMenuFor: Claus Gittinger <cg@exept.de> parents: 9300 diff changeset	2613	m addItem: (MenuItem separator).
8350 642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2614	m addItem: (MenuItem new
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2615	label: (resources string:'Clear History');
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2616	value: #clearHistory;
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2617	activeHelpKey: #historyEmptyMenu;
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2618	translateLabel:true).
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2619	].
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2620	^ m
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2621	!
642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2622
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2623	pasteRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2624	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2625
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2626	^ self recentDoItsMenuFor:#'paste:'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2627	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2628
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2629	recentDoItsMenuFor:aSelector
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2630	<resource: #programMenu >
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2631
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2632	^ [
8350 642a6e1afcac * empty log message * Claus Gittinger <cg@exept.de> parents: 8342 diff changeset	2633	self makeRecentDoItsMenuFor:aSelector
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2634	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2635	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2636
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2637	redoRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2638	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2639
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2640	^ self recentDoItsMenuFor:#'pasteAndExecute:'
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2641	! !
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2642
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2643	!WorkspaceApplication methodsFor:'private'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2644
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2645	askIfAnyModified:question yesButton:yesButtonText
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2646	(workspaces contains:[:aView \| self isModifiedWorkspace:aView]) ifFalse:[^ true].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2647
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2648	(Dialog
6353 b9e2940b7714 * empty log message * Claus Gittinger <cg@exept.de> parents: 6323 diff changeset	2649	confirm:(resources stringWithCRs:question)
6636 0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	2650	yesLabel:(resources string:yesButtonText)
0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	2651	noLabel:(resources string:'Cancel'))
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2652	ifTrue:[
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2653	"/ reset modified flag so question is asked only once
6045 3589c863290a * empty log message * ca parents: 6022 diff changeset	2654	workspaces
3589c863290a * empty log message * ca parents: 6022 diff changeset	2655	select:[:aView \| (self isModifiedWorkspace:aView)]
3589c863290a * empty log message * ca parents: 6022 diff changeset	2656	thenDo:[:eachModifiedTextView \|
7662 9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2657	eachModifiedTextView
9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2658	perform:#modified: with:false
9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2659	ifNotUnderstood:[].
6045 3589c863290a * empty log message * ca parents: 6022 diff changeset	2660	].
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2661	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2662	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2663	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2664	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2665
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2666	compilerClassForSyntaxName:syntax
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2667	syntax == #Smalltalk ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2668	^ Compiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2669	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2670	syntax == #JavaScript ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2671	^ JavaScriptCompiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2672	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2673	^ Compiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2674	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2675
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2676	createEvaluationWorkspace
8292 d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2677	\|ws l b box resultView environmentView panel workspaceVariables timeLabel\|
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2678
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2679	workspaceVariables := Workspace workspaceVariables.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2680
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2681	panel := VariableVerticalPanel new.
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2682	panel showHandle:true.
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2683
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2684	box := View new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2685	l := Label new.
8292 d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2686	l label:(resources string:'Eval:').
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2687	l layout:((0.0@0.0 corner:0.5@0.0) asLayout bottomOffset:22).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2688	l adjust:#left.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2689	box add:l.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2690
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2691	ws := HVScrollableView for:Workspace.
7662 9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2692	ws scrolledView name:#'Workspace'.
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2693	ws autoDefineVariables:#workspace.
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2694	ws layout:((0.0@0.0 corner:1.0@1.0) asLayout topOffset:22; bottomOffset:-22).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2695	box add:ws.
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2696
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2697	b := Button new.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2698	b label:'DoIt'.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2699	b layout:((0.25@1.0 corner:0.5@1.0) asLayout topOffset:-22).
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2700	b adjust:#left.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2701	b action:[ws doIt].
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2702	box add:b.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2703
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2704	b := Button new.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2705	b label:'InspectIt'.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2706	b layout:((0.5@1.0 corner:0.75@1.0) asLayout topOffset:-22).
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2707	b adjust:#left.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2708	b action:[ws inspectIt].
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2709	box add:b.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2710
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2711	b := Button new.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2712	b label:'BrowseIt'.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2713	b layout:((0.75@1.0 corner:1.0@1.0) asLayout topOffset:-22).
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2714	b adjust:#left.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2715	b action:[ws browseIt].
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2716	box add:b.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2717
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2718	panel add:box.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2719
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2720	box := View new.
8292 d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2721	box add:(Label new label:(resources string:'Value:'); adjust:#left; layout:((0.0@0.0 corner:0.5@0.0) asLayout bottomOffset:22)).
d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2722	box add:(timeLabel := Label new label:''; adjust:#right; layout:((0.5@0.0 corner:1.0@0.0) asLayout bottomOffset:22)).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2723	resultView := HVScrollableView for:TextCollector.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2724	box add:(resultView layout:((0@0 corner:1.0@1.0) asLayout topOffset:22); yourself).
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2725
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2726	panel add:box.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2727
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2728	box := View new.
8292 d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2729	box add:(Label new label:(resources string:'Environment:'); adjust:#left; layout:((0.0@0.0 corner:1.0@0.0) asLayout bottomOffset:22)).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2730	environmentView := DictionaryInspectorView new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2731	environmentView suppressPseudoSlots:true.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2732	environmentView inspect:workspaceVariables.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2733	environmentView dereferenceValueHolders:true.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2734	environmentView fieldListLabel:'Variable'.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2735	box add:(environmentView layout:((0@0 corner:1.0@1.0) asLayout topOffset:22); yourself).
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2736
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2737	panel add:box.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2738
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2739	"/ self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Eval'.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2740
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2741	ws doItAction:[:theCode \|
8292 d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2742	\|t result resultString\|
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2743
8292 d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2744	t := TimeDuration toRun:[
d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2745	result := ws executeDoIt:theCode.
d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2746	].
d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2747	timeLabel label:(resources string:'Exec. Time: %1' with:t printString).
d4d4520832b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8286 diff changeset	2748
6752 a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2749	resultString := [
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2750	result storeString
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2751	] on:Error do:[
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2752	result printString
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2753	].
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2754
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2755	resultView showCR:resultString.
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2756	9 to:1 by:-1 do:[:h\|
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2757	(workspaceVariables includesKey:('_%1' bindWith:h-1)) ifTrue:[
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2758	workspaceVariables
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2759	at:('_%1' bindWith:h)
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2760	put:(workspaceVariables at:('_%1' bindWith:h-1)).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2761	].
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2762	].
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2763	workspaceVariables at:'_0' put:(ValueHolder with:result).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2764	environmentView doUpdate.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2765	result.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2766	].
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2767	panel relativeCorners:#(0.4 0.6 1.0).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2768	^ panel
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2769
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2770	"Modified: / 24-11-2006 / 11:06:33 / cg"
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2771	!
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2772
5295 e3c5a7b20d9d refactored (added abstract superclass) Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	2773	createWorkspace
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2774	\|ws\|
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2775
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2776	ws := (HVScrollableView for:Workspace).
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2777	ws autoDefineVariables:autoDefineVariables.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2778	ws poolsConsideredInDoIts:poolsConsideredInDoIts.
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2779	^ ws
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	2780	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	2781
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2782	isModifiedWorkspace:aView
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2783	\|view\|
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2784
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2785	view := self workspaceViewOfView:aView.
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2786
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	2787	(view isNil
a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	2788	or:[view modified not
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2789	or:[view contentsWasSaved
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	2790	or:[view contents withoutSeparators isEmpty]]]) ifTrue:[
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2791	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2792	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2793	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2794	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2795
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2796	lastDoItsString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2797	\|history\|
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	2798
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2799	history := Workspace doItHistory.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2800	history size > 0 ifFalse:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2801	self selectedWorkspacesTextView flash.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2802	^ nil
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	2803	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2804	^ history first
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2805	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2806
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2807	syntaxNameForCompilerClass:aClass
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2808	aClass == Compiler ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2809	^ #Smalltalk
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2810	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2811	aClass == JavaScriptCompiler ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2812	^ #JavaScript
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2813	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2814	^ #Smalltalk
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2815	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2816
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2817	workspaceSelectionChanged
5855 a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	2818	\|compilerClass selectedWorkspace\|
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2819
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2820	super workspaceSelectionChanged.
5855 a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	2821	selectedWorkspace := self selectedWorkspace.
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2822
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2823	compilerClass := (selectedWorkspace or:[(selectedWorkspace isKindOf:Workspace) not])
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2824	ifTrue:[Compiler]
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2825	ifFalse:[selectedWorkspace compilerClass].
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2826	self syntaxHolder setValue:(self syntaxNameForCompilerClass:compilerClass).
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2827	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2828
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2829	!WorkspaceApplication methodsFor:'user actions'!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2830
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2831	infoVisibilityChanged
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2832	super infoVisibilityChanged.
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2833	UserPreferences current infoVisibleInWorkspace:(self infoVisibleHolder value)
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2834
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2835	"Created: / 14-07-2007 / 16:46:58 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2836	!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2837
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2838	toolBarVisibilityChanged
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2839	super toolBarVisibilityChanged.
8499 b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2840	UserPreferences current toolbarVisibleInWorkspace:(self toolBarVisibleHolder value).
b13954af77b0 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8492 diff changeset	2841	UserPreferences current editToolbarVisibleInWorkspace:(self editToolBarVisibleHolder value).
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2842
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2843	"Created: / 14-07-2007 / 16:45:31 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2844	! !
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2845
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2846	!WorkspaceApplication class methodsFor:'documentation'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2847
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2848	version
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	2849	^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.190 2010-03-09 11:14:19 cg Exp $'
9059 3ed3d94ea9b7 added: #openSettingsDialog Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	2850	!
3ed3d94ea9b7 added: #openSettingsDialog Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	2851
3ed3d94ea9b7 added: #openSettingsDialog Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	2852	version_CVS
9381 7839c9193cfa added:5 methods Claus Gittinger <cg@exept.de> parents: 9372 diff changeset	2853	^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.190 2010-03-09 11:14:19 cg Exp $'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2854	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Mar 2010 12:14:19 +0100
changeset 9381	7839c9193cfa
parent 9372	3727c6e226cf
child 9569	e090ccd7a651
permissions	-rw-r--r--