hg/stx-libtool: WorkspaceApplication.st@acf03e4d7859 (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
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	15	instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	16	classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	17	DefaultToolBarVisible Sniplets'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	18	poolDictionaries:''
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	19	category:'Interface-Smalltalk'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
3191 52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	22	!WorkspaceApplication class methodsFor:'documentation'!
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	23
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	24	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	25	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	26	COPYRIGHT (c) 2001 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	27	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	28
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	29	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	30	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	31	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	32	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	33	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	34	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	35	"
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
3191 52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	38	documentation
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	39	"
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	40	A simple wrapper around a WorkSpace-View, adding a pullDown menu.
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	41
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	42	[author:]
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	43	Claus Gittinger
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	44	"
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	45	! !
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	47	!WorkspaceApplication class methodsFor:'defaults'!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	48
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	49	defaultInfoVisible
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	50	^ UserPreferences current infoVisibleInWorkspace
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	51
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	52	"Created: / 14-07-2007 / 16:43:21 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	53	!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	54
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	55	defaultToolbarVisible
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	56	^ UserPreferences current toolbarVisibleInWorkspace
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	57
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	58	"Created: / 14-07-2007 / 16:42:50 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	59	! !
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	60
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	61	!WorkspaceApplication class methodsFor:'interface specs'!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	62
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	63	manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	64	"This resource specification was automatically generated
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	65	by the UIPainter of ST/X."
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	66
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	67	"Do not manually edit this!! If it is corrupted,
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	68	the UIPainter may not be able to read the specification."
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	69
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	70	"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	71	UIPainter new openOnClass:WorkspaceApplication andSelector:#manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	72	WorkspaceApplication new openInterface:#manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	73	"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	74
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	75	<resource: #canvas>
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	76
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	77	^
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	78	#(FullSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	79	name: manageSnipletsDialogSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	80	window:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	81	(WindowSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	82	label: 'Manage Sniplets'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	83	name: 'Manage Sniplets'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	84	min: (Point 10 10)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	85	bounds: (Rectangle 0 0 379 590)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	86	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	87	component:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	88	(SpecCollection
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	89	collection: (
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	90	(LabelSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	91	label: 'Sniplet:'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	92	name: 'Label1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	93	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	94	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	95	adjust: left
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	(VariableVerticalPanelSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	98	name: 'VariableVerticalPanel1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	99	layout: (LayoutFrame 0 0 30 0 0 1 -80 1)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	100	component:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	101	(SpecCollection
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	102	collection: (
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	103	(SequenceViewSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	104	name: 'List1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	105	model: selectedSniplet
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	106	hasHorizontalScrollBar: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	107	hasVerticalScrollBar: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	108	useIndex: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	109	sequenceList: listOfSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	110	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	111	(TextEditorSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	112	name: 'TextEditor1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	113	model: selectedSnipletsText
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	114	hasHorizontalScrollBar: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	115	hasVerticalScrollBar: true
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	116	hasKeyboardFocusInitially: false
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	117	viewClassName: ''
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	118	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	119	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	120
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	121	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	122	handles: (Any 0.5 1.0)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	123	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	124	(HorizontalPanelViewSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	125	name: 'ButtonPanel'
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	126	layout: (LayoutFrame 0 0 -70 1 0 1 -40 1)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	127	horizontalLayout: center
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	128	verticalLayout: center
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	129	horizontalSpace: 3
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	130	verticalSpace: 3
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	131	component:
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	132	(SpecCollection
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	133	collection: (
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	134	(ActionButtonSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	135	label: 'Save Changes'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	136	name: 'Button4'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	137	translateLabel: true
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	138	model: saveSelectedSniplet
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	139	enableChannel: saveEnabled
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	140	extent: (Point 125 22)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	141	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	142	(ActionButtonSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	143	label: 'Remove'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	144	name: 'Button2'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	145	translateLabel: true
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	146	model: removeSelectedSniplet
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	147	enableChannel: removeEnabled
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	148	extent: (Point 125 22)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	149	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	150	(ActionButtonSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	151	label: 'Paste'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	152	name: 'Button3'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	153	translateLabel: true
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	154	model: pasteSelectedSniplet
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	155	enableChannel: pasteEnabled
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	156	extent: (Point 125 22)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	157	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	158	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	159
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	160	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	161	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	162	(DividerSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	163	name: 'Separator1'
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	164	layout: (LayoutFrame 0 0.0 557 0 0 1.0 561 0)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	165	)
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	166	(HorizontalPanelViewSpec
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	167	name: 'CloseButtonPanel'
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	168	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	169	horizontalLayout: fitSpace
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	170	verticalLayout: center
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	171	horizontalSpace: 3
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	172	verticalSpace: 3
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	173	reverseOrderIfOKAtLeft: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	174	component:
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	175	(SpecCollection
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	176	collection: (
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	177	(ActionButtonSpec
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	178	label: 'Close'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	179	name: 'Button1'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	180	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	181	model: cancel
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	182	extent: (Point 373 22)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	183	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	184	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	185
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	186	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	187	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	188	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	189
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	190	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	191	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	192	! !
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	193
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	!WorkspaceApplication class methodsFor:'menu specs'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	196	bufferMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	197	"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	198	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	199
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	200	"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	201	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	202
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	203	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	204	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	205	(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	206	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	207
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	208	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	209
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	210	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	211	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	212	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	213	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	214	label: 'Add Buffer'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	215	itemValue: addWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	216	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	217	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	218	(MenuItem
8111 4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	219	label: '-'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	220	isVisible: thisIsASmalltalkWorkspace
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	221	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	222	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	223	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	224	itemValue: addMyWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	225	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	226	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	227	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	228	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	229	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	230	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	231	itemValue: addWorkspaceVariableInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	232	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	233	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	234	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	235	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	236	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	237	itemValue: addGlobalVariableInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	238	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	239	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	240	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	241	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	242	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	243	itemValue: addNamespaceInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	244	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	245	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	246	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	247	(MenuItem
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	248	label: 'Add Buffer on SharedPool...'
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	249	itemValue: addSharedPoolInspector
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	250	translateLabel: true
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	251	isVisible: thisIsASmalltalkWorkspace
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	252	)
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	253	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	254	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	255	itemValue: addClassVariableInspector
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	256	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	257	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	258	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	259	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	260	label: '-'
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	261	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	262	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	263	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	264	label: 'Add Evaluation Buffer'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	265	itemValue: addEvaluationWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	266	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	267	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	268	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	269	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	270	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	271	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	272	(MenuItem
8111 4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	273	label: 'Tea Timer'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	274	itemValue: addTeaTimer
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	275	translateLabel: true
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	276	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	277	(MenuItem
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	278	label: 'Stop Watch'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	279	itemValue: addStopWatch
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	280	translateLabel: true
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	281	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	282	(MenuItem
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	283	label: '-'
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	284	)
4bee96da760c * empty log message * Claus Gittinger <cg@exept.de> parents: 8106 diff changeset	285	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	286	label: 'Rename...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	287	itemValue: renameWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	288	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	289	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	290	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	291	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	292	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	293	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	294	enabled: canRemoveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	295	label: 'Remove Buffer'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	296	itemValue: removeWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	297	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	298	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	299	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	300	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	301	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	302	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	303	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	304
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	305	editMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	306	"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	307	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	308
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	309	"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	310	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	311
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	312	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	313	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	314	(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	315	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	316
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	317	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	318
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	319	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	320	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	321	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	322	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	323	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	324	label: 'Cut'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	325	itemValue: cutSelection
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	326	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	327	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	328	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	329	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	330	label: 'Copy'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	331	itemValue: copySelection
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	332	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	333	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	334	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	335	label: 'Paste'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	336	itemValue: paste
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	337	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	338	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	339	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	340	enabled: hasHistory
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	341	label: 'Paste Last'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	342	itemValue: pasteLastDoIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	343	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	344	submenuChannel: pasteRecentDoItMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	345	keepLinkedMenu: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	346	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	347	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	348	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	349	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	350	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	351	(MenuItem
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	352	label: 'Copy as Sniplet...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	353	itemValue: addSelectionToSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	354	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	355	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	356	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	357	label: 'Paste Sniplet...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	358	itemValue: pasteSniplet
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	359	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	360	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	361	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	362	label: 'Manage Sniplets...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	363	itemValue: manageSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	364	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	365	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	366	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	367	label: '-'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	368	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	369	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	370	label: 'Select All'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	371	itemValue: selectAll
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	372	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	373	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	374	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	375	label: '-'
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	376	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	377	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	378	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	379	label: 'Filter Text...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	380	itemValue: filterText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	381	translateLabel: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	382	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	383	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	384	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	385	label: 'Process Text...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	386	itemValue: processText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	387	translateLabel: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	388	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	389	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	390	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	391	label: '-'
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	392	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	393	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	394	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	395	label: 'Services'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	396	translateLabel: true
8134 e2d9bc2a289e smalltalk functions only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8133 diff changeset	397	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	398	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	399	(Menu
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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	402	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	403	label: 'Google Spell'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	404	itemValue: googleSpellingSuggestion
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	405	translateLabel: true
7876 3e9f6e7b9ff2 * empty log message * Claus Gittinger <cg@exept.de> parents: 7866 diff changeset	406	isVisible: thisIsASmalltalkWorkspace
7865 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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	409	label: 'Translate'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	410	translateLabel: true
7876 3e9f6e7b9ff2 * empty log message * Claus Gittinger <cg@exept.de> parents: 7866 diff changeset	411	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	412	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	413	(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	414	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	415	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	416	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	417	label: 'English -> German'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	418	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	419	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	420	argument: 'en_de'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	421	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	422	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	423	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	424	label: 'English -> French'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	425	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	426	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	427	argument: 'en_fr'
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: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	431	label: 'English -> Spanish'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	432	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	433	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	434	argument: 'en_es'
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	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	438	label: 'English -> Portuguese'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	439	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	440	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	441	argument: 'en_pt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	442	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	443	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	444	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	445	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	446	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	447	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	448	label: 'German -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	449	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	450	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	451	argument: 'de_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	452	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	453	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	454	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	455	label: 'French -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	456	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	457	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	458	argument: 'fr_en'
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	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	462	label: 'Spanish -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	463	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	464	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	465	argument: 'es_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	466	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	467	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	468	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	469	label: 'Portuguese -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	470	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	471	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	472	argument: 'pt_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	473	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	474	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	475	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	476	label: 'Russian -> English'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	477	itemValue: babelFishTranslate:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	478	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	479	argument: 'ru_en'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	480	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	481	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	482	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	483	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	484	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	485	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	486	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	487	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	488	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	489	)
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	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	492	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	493	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	494	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	495	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	496
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	497	fileMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	498	"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	499	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	500
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	501	"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	502	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	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	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	506	(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	507	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	508
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	509	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	510
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	511	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	512	#(Menu
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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	515	label: 'New Workspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	516	itemValue: newWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	517	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	518	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	519	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	520	label: 'New SystemWorkspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	521	itemValue: newSystemWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	522	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	523	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	524	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	525	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	526	label: 'New EvaluationWorkspace'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	527	itemValue: newEvaluationWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	528	translateLabel: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	529	isVisible: thisIsASmalltalkWorkspace
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	530	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	531	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	532	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	533	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	534	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	535	label: 'Load File...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	536	itemValue: menuLoad
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	537	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	538	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	539	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	540	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	541	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	542	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	543	label: 'Save As...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	544	itemValue: menuSaveAs
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	545	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	546	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	547	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	548	enabled: hasMultipleBuffersHolder
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	549	label: 'Save all As...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	550	itemValue: menuSaveAllAs
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	551	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	552	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	553	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	554	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	555	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	556	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	557	label: 'Print...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	558	itemValue: menuPrint
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	559	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	560	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	561	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	562	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	563	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	564	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	565	label: 'Exit'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	566	itemValue: closeRequest
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	567	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	568	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	569	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	570	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	571	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	572	)
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
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	575	helpMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	576	"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	577	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	578
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	579	"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	580	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	581
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	582	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	583	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	584	(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	585	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	586
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	587	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	588
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	#(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	591	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	592	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	593	label: 'Documentation'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	594	itemValue: openDocumentation
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	595	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	596	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	597	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	598	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	599	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	600	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	601	label: 'About this Application...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	602	itemValue: openAboutThisApplication
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	603	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	604	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	605	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	606	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	607	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	608	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	609	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	610
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	611	mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	"This resource specification was automatically generated
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613	by the MenuEditor of ST/X."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	614
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615	"Do not manually edit this!! If it is corrupted,
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616	the MenuEditor may not be able to read the specification."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	MenuEditor new openOnClass:WorkspaceApplication andSelector:#mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication mainMenu)) startUp
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	623	<resource: #menu>
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	624
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	625	^
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	626	#(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	627	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	628	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	629	label: 'File'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	630	translateLabel: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	631	submenuChannel: fileMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	632	keepLinkedMenu: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	633	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	634	(MenuItem
8147 eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	635	label: 'Buffers'
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	636	translateLabel: true
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	637	submenuChannel: bufferMenu
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	638	keepLinkedMenu: true
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	639	)
eeab5c4f8ec8 menu order: Claus Gittinger <cg@exept.de> parents: 8146 diff changeset	640	(MenuItem
8146 47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	641	label: 'Edit'
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	642	translateLabel: true
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	643	submenuChannel: editMenu
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	644	keepLinkedMenu: true
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	645	)
47249d18de95 menu order: Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	646	(MenuItem
7651 45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	647	label: 'View'
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	648	translateLabel: true
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	649	submenuChannel: viewMenu
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	650	keepLinkedMenu: true
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	651	)
45321b7e15df workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7612 diff changeset	652	(MenuItem
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	653	label: 'Workspace'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	654	translateLabel: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	655	submenuChannel: workspaceMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	656	keepLinkedMenu: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	657	isVisible: thisIsASmalltalkWorkspace
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	658	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	659	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	660	label: 'Smalltalk'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	661	translateLabel: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	662	submenuChannel: smalltalkMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	663	keepLinkedMenu: true
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	664	isVisible: thisIsASmalltalkWorkspace
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	666	(MenuItem
7461 605ae97c85db support '?' as help (for now: controlled by resources) Claus Gittinger <cg@exept.de> parents: 7441 diff changeset	667	label: 'MENU_Help'
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	668	translateLabel: true
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	669	submenuChannel: helpMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	670	keepLinkedMenu: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675	)
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	676	!
7831 afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	677
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	678	smalltalkMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	679	"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	680	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	681
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	682	"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	683	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	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	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	687	(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	688	"
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	<resource: #menu>
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	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	693	#(Menu
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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	696	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	697	label: 'DoIt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	698	itemValue: doIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	699	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	700	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	701	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	702	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	703	label: 'PrintIt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	704	itemValue: printIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	705	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	706	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	707	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	708	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	709	label: 'InspectIt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	710	itemValue: inspectIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	711	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	712	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	713	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	714	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	715	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	716	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	717	enabled: hasHistory
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	718	label: 'Redo Last'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	719	itemValue: redoLastDoIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	720	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	721	submenuChannel: redoRecentDoItMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	722	keepLinkedMenu: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	723	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	724	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	725	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	726	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	727	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	728	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	729	label: 'TimeIt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	730	itemValue: timeIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	731	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	732	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	733	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	734	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	735	label: 'SpyOnIt'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	736	itemValue: spyOnIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	737	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	738	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	739	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	740	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	741	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	742	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	743	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	744	label: 'Browse Class'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	745	itemValue: browseIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	746	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	747	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	748	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	749	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	750	label: 'Browse Implementors of It'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	751	itemValue: browseImplementorsOfIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	752	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	753	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	754	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	755	enabled: hasSelectionInActiveWorkspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	756	label: 'Browse References to It'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	757	itemValue: browseReferencesToIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	758	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	759	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	760	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	761	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	762	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	763	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	764	label: 'FileIn Text'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	765	itemValue: fileInText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	766	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	767	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	768	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	769	label: 'ChangeList on Text'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	770	itemValue: changesBrowserOnText
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	771	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	772	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	773	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	774	label: '-'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	775	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	776	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	777	label: 'Add Global Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	778	itemValue: addGlobalVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	779	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	780	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	781	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	782	label: 'Remove Global Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	783	itemValue: removeGlobalVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	784	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	785	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	786	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	787	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	788	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	789	)
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	790	!
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	791
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	792	toolBarMenu
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	793	"This resource specification was automatically generated
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	794	by the MenuEditor of ST/X."
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	795
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	796	"Do not manually edit this!! If it is corrupted,
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	797	the MenuEditor may not be able to read the specification."
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	798
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	799	"
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	800	MenuEditor new openOnClass:WorkspaceApplication andSelector:#toolBarMenu
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	801	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication toolBarMenu)) startUp
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	802	"
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	803
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	804	<resource: #menu>
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	805
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	806	^
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	807	#(Menu
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	808	(
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	809	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	810	label: ''
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	811	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	812	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	813	label: 'Add Buffer'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	814	itemValue: addWorkspace
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	815	translateLabel: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	816	isButton: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	817	labelImage: (ResourceRetriever ToolbarIconLibrary addBufferIcon)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	818	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	819	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	820	label: '-'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	821	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	822	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	823	label: 'Save As...'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	824	itemValue: menuSaveAs
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	825	translateLabel: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	826	isButton: true
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	827	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	828	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	829	(MenuItem
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	830	label: '-'
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	831	isVisible: doItMenuButtonVisibile
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	832	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	833	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	834	label: 'DoIt'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	835	itemValue: doIt
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	836	translateLabel: true
7789 c9f1c54da8be * empty log message * Claus Gittinger <cg@exept.de> parents: 7744 diff changeset	837	isButton: true
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	838	isVisible: doItMenuButtonVisibile
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	839	labelImage: (ResourceRetriever ToolbarIconLibrary doItIcon)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	840	)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	841	(MenuItem
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	842	label: 'PrintIt'
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	843	itemValue: printIt
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	844	translateLabel: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	845	isButton: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	846	isVisible: printItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	847	labelImage: (ResourceRetriever ToolbarIconLibrary printItIcon)
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	848	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	849	(MenuItem
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	850	label: 'InspectIt'
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	851	itemValue: inspectIt
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	852	translateLabel: true
7789 c9f1c54da8be * empty log message * Claus Gittinger <cg@exept.de> parents: 7744 diff changeset	853	isButton: true
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	854	isVisible: inspectItMenuButtonVisibile
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	855	labelImage: (ResourceRetriever ToolbarIconLibrary inspectItIcon)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	856	)
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	857	(MenuItem
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	858	label: 'BrowseIt'
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	859	itemValue: browseIt
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	860	translateLabel: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	861	isButton: true
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	862	isVisible: browseItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	863	labelImage: (ResourceRetriever ToolbarIconLibrary browseItIcon)
7658 a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	864	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	865	)
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	866	nil
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	867	nil
a0749bf9f21a * empty log message * Claus Gittinger <cg@exept.de> parents: 7651 diff changeset	868	)
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	869	!
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	870
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	871	workspaceMenu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	872	"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	873	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	874
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	875	"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	876	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	877
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	878	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	879	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	880	(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	881	"
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	882
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	883	<resource: #menu>
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	884
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	885	^
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	886	#(Menu
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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	889	label: 'Add Workspace Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	890	itemValue: addWorkspaceVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	891	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	892	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	893	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	894	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	895	label: 'Remove Workspace Variable...'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	896	itemValue: removeWorkspaceVariable
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	897	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	898	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	899	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	900	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	901	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	902	itemValue: removeAllWorkspaceVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	903	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	904	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	905	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	906	label: '-'
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
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	909	label: 'Add SharedPool...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	910	itemValue: addSharedPool
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	911	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	912	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	913	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	914	label: 'Remove SharedPool...'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	915	itemValue: removeSharedPool
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	916	translateLabel: true
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	917	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	918	(MenuItem
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	919	label: '-'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	920	)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	921	(MenuItem
7865 ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	922	enabled: anyWorkspaceVariableIsDefined
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	923	label: 'Inspect Workspace Variables'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	924	itemValue: inspectWorkspaceVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	925	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	926	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	927	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	928	label: '-'
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	label: 'Settings'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	932	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	933	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	934	(Menu
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: 'Autodefine as Workspace Variable'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	938	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	939	hideMenuOnActivated: false
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	940	choice: autoDefineVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	941	choiceValue: workspace
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	942	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	943	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	944	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	945	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	946	hideMenuOnActivated: false
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	947	choice: autoDefineVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	948	choiceValue: doIt
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	949	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	950	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	951	label: 'Autodefine off'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	952	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	953	hideMenuOnActivated: false
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	954	choice: autoDefineVariables
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	955	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	956	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	957	label: '-'
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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	960	label: 'Syntax'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	961	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	962	submenu:
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	963	(Menu
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	964	(
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	965	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	966	label: 'Smalltalk'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	967	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	968	choice: syntaxHolder
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	969	choiceValue: Smalltalk
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	(MenuItem
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	972	label: 'JavaScript'
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	973	translateLabel: true
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	974	choice: syntaxHolder
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	975	choiceValue: JavaScript
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	976	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	977	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	978	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	979	nil
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	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	982	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	983	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	984	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	985	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	986	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	987	)
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	988	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	989	nil
ae5b649724dd separated submenus into separate specs (for easier customization in subclasses) Claus Gittinger <cg@exept.de> parents: 7853 diff changeset	990	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	991	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	993	!WorkspaceApplication class methodsFor:'special startup'!
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	994
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	995	openEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	996	\|wsApp path needRemove font\|
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	997
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	998	needRemove := true.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	999
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1000	wsApp := self new.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1001	wsApp allButOpen.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1002	wsApp window extent:400@500.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1003
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1004	wsApp addEvaluationWorkspace.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1005	wsApp removeWorkspace:1.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1006	wsApp renameWorkspace:1 to:'Evaluator'.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1007
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1008	wsApp openWindow.
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1009	wsApp selectedWorkspaceIndexHolder value:1.
7849 e3e01db99dd9 open methods return the just created ws Claus Gittinger <cg@exept.de> parents: 7848 diff changeset	1010	^ wsApp
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1011
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1012	"
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1013	self openEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1014	"
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1015
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1016	"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	1017	"Modified: / 25-09-2007 / 21:00:45 / cg"
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1018	!
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1019
6022 f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1020	openOnFile:aFilename
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1021	"launch a new workspace on the contents of some file"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1022
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1023	\|ws\|
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1024
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1025	ws := self openWith:nil.
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1026	ws loadFile:aFilename.
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1027	^ ws
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1028
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1029	"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1030	WorkspaceApplication openOnFile:'Makefile'
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1031	"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1032	!
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	1033
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1034	openSystemWorkspace
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1035	\|wsApp path needRemove font\|
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1036
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1037	needRemove := true.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1038
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1039	wsApp := self new.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1040	wsApp allButOpen.
7686 b4d299712d63 * empty log message * Claus Gittinger <cg@exept.de> parents: 7662 diff changeset	1041
b4d299712d63 * empty log message * Claus Gittinger <cg@exept.de> parents: 7662 diff changeset	1042	(wsApp builder componentAt:'NoteBook') destroyTabAction:nil.
b4d299712d63 * empty log message * Claus Gittinger <cg@exept.de> parents: 7662 diff changeset	1043
3337 46dd799d3446 * empty log message * Claus Gittinger <cg@exept.de> parents: 3336 diff changeset	1044	wsApp window extent:640@400.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1045
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1046	path := (Smalltalk getSystemFileName:'README') ? '../../README'.
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1047	path := path asFilename.
722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1048	path isReadable ifTrue:[
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1049	wsApp addWindow:(HVScrollableView for:Workspace) named:'README' asFirst:false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1050	wsApp loadFile:path.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1051	wsApp removeWorkspace:1. "/ the original Workspace
4183 029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	1052	wsApp renameWorkspace:1 to:'LICENCE README'.
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1053	needRemove := false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1054	].
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1055
3346 6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1056	"/ 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	1057	"/ path asFilename exists ifTrue:[
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1058	"/ wsApp addWindow:(licenceView := HVScrollableView for:HTMLDocumentView) named:'License' asFirst:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1059	"/ licenceView homeDocument:'../../doc/online/english/LICENCE_STX.html'.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1060	"/ licenceView updateLabelFlag:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1061	"/ needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1062	"/ needRemove := false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1063	"/ ].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1064
5684 b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1065	wsApp graphicsDevice platformName = 'X11' ifTrue:[
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1066	font := Font family:'unifont' face:'medium' style:'roman' size:16 encoding:'iso10646-1'.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1067	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1068	font isNil ifTrue:[
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1069	font := Font family:'arial' face:'medium' style:'roman' size:12 encoding:'iso10646-1'.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1070	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1071	].
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	1072	] ifFalse:[
5685 a853fa00f9f8 * empty log message * ca parents: 5684 diff changeset	1073	font := Font family:'Arial Unicode MS' face:'medium' style:'roman' size:10 encoding:'ms-ansi'.
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1074	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1075	].
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1076
7612 42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1077	#( "/ file resourceKey title forcedEncoding
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1078	('Hello_utf8.wsp' HELLO_UTF_FILE 'Hello' #'utf8' )
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1079	('Welcome.wsp' WELCOME_FILE 'Welcome' nil )
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1080	('Setup.wsp' SETUP_FILE 'Setup' nil )
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1081	('Keyboard.wsp' KEYBOARD_FILE 'Keyboard' nil )
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1082	('GettingStarted.wsp' GETTING_STARTED_FILE 'Getting Started' nil )
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1083	"/ if these are present, show them.
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1084	('Private.wsp' PRIVATE_FILE 'Private Workspace' nil )
42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1085	('MyWorkspace.wsp' MYWORKSPACE_FILE 'My Workspace' nil )
6211 84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1086	) do:[:quadruple \|
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1087	\|file resKey title forcedEncoding pane encoding\|
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1088
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1089	file := quadruple at:1.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1090	resKey := quadruple at:2.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1091	file := self classResources string:resKey default:file.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1092
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1093	title := quadruple at:3.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	1094	forcedEncoding := quadruple at:4.
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1095
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1096	path := (Smalltalk getSystemFileName:file).
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1097
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1098	(path notNil and:[path asFilename isReadable]) ifTrue:[
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1099	wsApp addWindow:(pane := HVScrollableView for:Workspace) named:title asFirst:false.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1100
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1101	forcedEncoding notNil ifTrue:[
5694 23de3a41e575 * empty log message * Claus Gittinger <cg@exept.de> parents: 5693 diff changeset	1102	encoding := forcedEncoding.
5804 dc6bd90bd4ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5752 diff changeset	1103	font notNil ifTrue:[
dc6bd90bd4ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5752 diff changeset	1104	pane font:font.
dc6bd90bd4ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5752 diff changeset	1105	]
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1106	] ifFalse:[
6173 4ba4589e4952 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 6056 diff changeset	1107	encoding := CharacterEncoder guessEncodingOfFile:path.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1108	(encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1109	encoding := nil
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1110	].
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	1111	].
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1112	wsApp loadFile:path encoding:encoding label:title.
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1113	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1114	needRemove := false.
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1115	].
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	1116	].
5693 6193522a042b * empty log message * Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	1117	wsApp openWindow.
6193522a042b * empty log message * Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	1118	wsApp selectedWorkspaceIndexHolder value:2.
7849 e3e01db99dd9 open methods return the just created ws Claus Gittinger <cg@exept.de> parents: 7848 diff changeset	1119	^ wsApp
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1120
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1121	"
7850 a637bd14a034 example-comment Claus Gittinger <cg@exept.de> parents: 7849 diff changeset	1122	\|ws b\|
a637bd14a034 example-comment Claus Gittinger <cg@exept.de> parents: 7849 diff changeset	1123	ws := self openSystemWorkspace.
7853 9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1124	ws addMyWorkspace.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1125	ws selectedWorkspaceIndexHolder value:(ws workspaces size).
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1126	ws selectedWorkspace contents:'Tools::NewSystemBrowser open'; selectAll.
7850 a637bd14a034 example-comment Claus Gittinger <cg@exept.de> parents: 7849 diff changeset	1127	ws selectedWorkspace
7851 a6c81764dcfd example-comment Claus Gittinger <cg@exept.de> parents: 7850 diff changeset	1128	add:(b := Button label:'DoIt' action:[ws doIt. b destroy])
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1129	"
7853 9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1130	"
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1131	\|ws b\|
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1132	ws := self new.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1133	ws open.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1134	ws selectedWorkspace contents:'Tools::NewSystemBrowser open'; selectAll.
9b2c497d75cd * empty log message * ab parents: 7851 diff changeset	1135	"
7612 42b1c57c6cc7 Private.wsp and MyWorkspace.wsp Claus Gittinger <cg@exept.de> parents: 7544 diff changeset	1136
7851 a6c81764dcfd example-comment Claus Gittinger <cg@exept.de> parents: 7850 diff changeset	1137	"Modified: / 25-09-2007 / 21:04:50 / cg"
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1138	!
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1139
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1140	openWith:initialText
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1141	"launch a new workspace with some initial contents"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1142
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1143	^ self openWith:initialText selected:false
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1144
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1145	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1146	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1147	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1148	!
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1149
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1150	openWith:initialText selected:selectedBoolean
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1151	"launch a new workspace with some initial contents"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1152
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1153	\|workspace\|
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1154
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1155	workspace := self new.
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1156	workspace open.
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	1157	workspace selectedWorkspace contents:initialText selected:selectedBoolean.
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1158	^ workspace
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1159
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1160	"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1161	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	1162	"
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1163	! !
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1164
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1165	!WorkspaceApplication methodsFor:'aspects'!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1166
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1167	autoDefineVariables
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1168	autoDefineVariables isNil ifTrue:[
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1169	autoDefineVariables := ValueHolder new.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1170	(UserPreferences current autoDefineWorkspaceVariables) ifTrue:[
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1171	autoDefineVariables value:#workspace.
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1172	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1173	autoDefineVariables onChangeSend:#autoDefineVariablesChanged to:self.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1174	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1175	^ autoDefineVariables.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1176	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1177
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1178	browseItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1179	^ self thisIsASmalltalkWorkspace
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1180	!
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1181
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1182	doItMenuButtonVisibile
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1183	^ self thisIsASmalltalkWorkspace
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1184	!
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1185
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1186	hasHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1187	^ Workspace doItHistory size > 0.
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1188	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1189
8133 8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1190	inspectItMenuButtonVisibile
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1191	^ self thisIsASmalltalkWorkspace
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1192	!
8b09d048b345 doIt button only in smalltalks workspace Claus Gittinger <cg@exept.de> parents: 8111 diff changeset	1193
8226 ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1194	printItMenuButtonVisibile
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1195	^ self thisIsASmalltalkWorkspace
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1196	!
ad5a7ea9fbcd * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1197
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1198	setCompilerForSyntax
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1199	\|syntax\|
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1200
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1201	syntax := syntaxHolder value.
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1202	self selectedWorkspace compilerClass:(self compilerClassForSyntaxName:syntax).
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1203	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1204
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1205	syntaxHolder
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1206	syntaxHolder isNil ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1207	syntaxHolder := #Smalltalk asValue.
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1208	syntaxHolder onChangeSend:#setCompilerForSyntax to:self
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1209	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1210	^ syntaxHolder
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1211	! !
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1212
4358 b0023a5ca3b8 category change Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1213	!WorkspaceApplication methodsFor:'aspects-queries'!
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1214
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1215	anyWorkspaceVariableIsDefined
6267 ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	1216	^ Workspace anyWorkspaceVariableIsDefined
ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	1217
ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	1218	"Modified: / 20-04-2005 / 11:57:59 / cg"
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1221	!WorkspaceApplication methodsFor:'defaults'!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1222
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1223	defaultFileNameForLoad
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1224	^ 'file.wsp'
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1225
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1226	"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	1227	!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1228
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1229	defaultFileNameForSave
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1230	^ self selectedWorkspace defaultFileNameForFileDialog ? super defaultFileNameForSave
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1231	!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1232
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1233	defaultFileNameForSaveAll
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1234	^ 'file.wsp'
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1235
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1236	"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	1237	!
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1238
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1239	defaultPatternLoad
8032 d4099cd34621 * empty log message * Claus Gittinger <cg@exept.de> parents: 7944 diff changeset	1240	^ '.wsp; .txt; *.rc'
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1241
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1242	"Created: / 25-10-2006 / 14:57:25 / cg"
7866 122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1243	!
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1244
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1245	thisIsASmalltalkWorkspace
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1246	"can be redefined in a subclass to disable smalltalk-specific menu items"
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1247
122d1ea32cb4 UI cleanup Claus Gittinger <cg@exept.de> parents: 7865 diff changeset	1248	^ true
7474 f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1249	! !
f18ef25a1ca6 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 7461 diff changeset	1250
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	!WorkspaceApplication methodsFor:'initialization & release'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253	closeRequest
6636 0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	1254	"asks for permission before closing"
0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	1255
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1256	(self askIfAnyModified:'Text was not saved. Close anyway ?' yesButton:'Close') ifFalse:[
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257	^ self
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258	].
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260	^ super closeRequest
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262
4359 35995cc972f7 category change Claus Gittinger <cg@exept.de> parents: 4358 diff changeset	1263	!WorkspaceApplication methodsFor:'menu-actions'!
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264
6508 ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1265	addClassVariableInspector
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1266	\|v\|
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1267
6817 63d4f5f919d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6752 diff changeset	1268	ClassVariablesInspectorView isNil ifTrue:[
7441 cf6994beff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 7412 diff changeset	1269	self error:'Missing class: "ClassVariablesInspectorView"'.
6817 63d4f5f919d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6752 diff changeset	1270	^ self.
63d4f5f919d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6752 diff changeset	1271	].
6508 ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1272	v := self addInspectorOn:Smalltalk inspectorClass:ClassVariablesInspectorView suppressPseudoSlots:true.
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1273
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1274	v fieldListLabel:'Name'.
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1275	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Class Variables'.
6817 63d4f5f919d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6752 diff changeset	1276
7441 cf6994beff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 7412 diff changeset	1277	"Modified: / 22-10-2006 / 11:28:14 / cg"
6508 ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1278	!
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1279
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	1280	addEvaluationWorkspace
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1281	^ self addWindow:(self createEvaluationWorkspace) named:'Eval%1'
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1282
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1283	"Modified: / 13-10-2006 / 12:16:35 / cg"
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	1284	!
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	1285
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1286	addGlobalVariable
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1287	\|name nameKey selection\|
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1288
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1289	selection := self selectedWorkspacesTextView selection ? ''.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1290
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1291	name := Dialog
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1292	request:'Name of new Global Variable:'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1293	initialAnswer:(selection asString string)
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1294	okLabel:'Add'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1295	title:'Enter Variable Name'.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1296	name size == 0 ifTrue:[
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1297	^ self
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1298	].
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1299	nameKey := name asSymbol.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1300
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1301	(Smalltalk includesKey:nameKey) ifTrue:[
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1302	self warn:'Global named ''' , name , ''' already exists.'.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1303	^ self.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1304	].
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1305	Smalltalk at:nameKey put:nil.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1306	!
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	1307
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	1308	addGlobalVariableInspector
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1309	^ self addNamespaceInspectorFor:Smalltalk
6817 63d4f5f919d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6752 diff changeset	1310
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1311	"Modified: / 29-05-2007 / 19:08:58 / cg"
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	1312	!
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	1313
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1314	addInspectorOn:aValue basic:isBasicInspector suppressPseudoSlots:suppressPseudoSlots
6508 ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1315	\|inspectorClass\|
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1316
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1317	isBasicInspector ifFalse:[
6508 ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1318	inspectorClass := aValue inspectorClass.
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1319	].
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1320	inspectorClass isNil ifTrue:[
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1321	inspectorClass := InspectorView
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1322	].
6508 ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1323
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1324	^ self
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1325	addInspectorOn:aValue
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1326	inspectorClass:inspectorClass
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1327	suppressPseudoSlots:suppressPseudoSlots
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1328	!
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1329
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1330	addInspectorOn:aValue inspectorClass:inspectorClass suppressPseudoSlots:suppressPseudoSlots
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1331	\|view resultString\|
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1332
ec11a54c72ee +class var inspector Claus Gittinger <cg@exept.de> parents: 6457 diff changeset	1333	view := inspectorClass new.
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1334	view suppressPseudoSlots:suppressPseudoSlots.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1335	view inspect:aValue.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1336	"/ v allowFollow:true.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1337	aValue isBehavior ifTrue:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1338	resultString := aValue name
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1339	] ifFalse:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1340	resultString := aValue classNameWithArticle
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1341	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1342	self addWindow:view named:('Inspecting: ' , resultString).
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1343	^ view
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1344	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1345
7744 f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1346	addMyWorkspace
7848 838219a5fb55 also search for myWorkspace in home directory. ca parents: 7831 diff changeset	1347	\|pane f\|
7744 f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1348
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1349	self addWindow:(pane := HVScrollableView for:Workspace) named:'My Workspace' asFirst:false.
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1350	'MyWorkspace.wsp' asFilename exists ifTrue:[
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1351	self loadFile:'MyWorkspace.wsp' label:'My Workspace'.
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1352	] ifFalse:[
7848 838219a5fb55 also search for myWorkspace in home directory. ca parents: 7831 diff changeset	1353	(f := Filename homeDirectory construct:'MyWorkspace.wsp') exists ifTrue:[
838219a5fb55 also search for myWorkspace in home directory. ca parents: 7831 diff changeset	1354	self loadFile:f label:'My Workspace'.
838219a5fb55 also search for myWorkspace in home directory. ca parents: 7831 diff changeset	1355	] ifFalse:[
838219a5fb55 also search for myWorkspace in home directory. ca parents: 7831 diff changeset	1356	pane defaultFileNameForFileDialog:'MyWorkspace.wsp'.
838219a5fb55 also search for myWorkspace in home directory. ca parents: 7831 diff changeset	1357	].
7744 f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1358	].
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1359
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1360	"Modified: / 15-03-2007 / 11:54:17 / cg"
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1361	!
f42194557dc4 MyWorkspace Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	1362
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1363	addNamespaceInspector
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1364	\|ns\|
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1365
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1366	ns := Dialog requestNameSpace:'Namespace' initialAnswer:nil.
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1367	ns isEmptyOrNil ifTrue:[^ self].
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1368	^ self addNamespaceInspectorFor:(Smalltalk at:ns asSymbol)
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1369
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1370	"Created: / 29-05-2007 / 19:10:50 / cg"
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1371	!
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1372
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1373	addNamespaceInspectorFor:aNameSpaceOrSharedPool
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1374	\|v label\|
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1375
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1376	SmalltalkInspectorView isNil ifTrue:[
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1377	self error:'Missing class: "SmalltalkInspectorView"'.
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1378	^ nil.
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1379	].
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1380
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1381	v := self
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1382	addInspectorOn:aNameSpaceOrSharedPool
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1383	inspectorClass:SmalltalkInspectorView
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1384	suppressPseudoSlots:true.
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1385
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1386	v fieldListLabel:'Name'.
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1387	aNameSpaceOrSharedPool == Smalltalk ifTrue:[
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1388	label := 'Smalltalk (Globals)'
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1389	] ifFalse:[
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1390	aNameSpaceOrSharedPool isSharedPool ifTrue:[
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1391	label := aNameSpaceOrSharedPool name,' (SharedPool)'
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1392	] ifFalse:[
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1393	label := aNameSpaceOrSharedPool name,' (Namespace)'
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1394	].
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1395	].
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1396
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1397	self
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1398	renameWorkspace:(self selectedWorkspaceIndexHolder value)
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1399	to:label.
7800 91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1400	^ v
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1401
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1402	"Created: / 29-05-2007 / 19:08:45 / cg"
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1403	!
91c7285805a1 +add buffer on namespace Claus Gittinger <cg@exept.de> parents: 7789 diff changeset	1404
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1405	addSelectionToSniplets
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1406	\|selection snipletsBaseName snipletsName nr snipletsDictionary\|
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1407
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1408	selection := (self selectedWorkspacesTextView selection ? '') asString.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1409	selection isEmpty ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1410	Dialog information:(resources string:'Nothing Selected').
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1411	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1412	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1413
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1414	snipletsBaseName := Dialog request:(resources string:'Name of Sniplet:').
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1415	snipletsBaseName isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1416	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1417	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1418	snipletsBaseName isEmpty ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1419	snipletsBaseName := Time now asString.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1420	].
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1421	snipletsDictionary := Workspace sniplets.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1422
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1423	snipletsName := snipletsBaseName.
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1424	(snipletsDictionary includesKey:snipletsName) ifTrue:[
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1425	(Dialog confirm:(resources string:'Replace existing sniplet named "%1" ?' with:snipletsName))
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1426	ifFalse:[
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1427	[snipletsDictionary includesKey:snipletsName] whileTrue:[
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1428	nr := (nr ? 1) + 1.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1429	snipletsName := (snipletsBaseName,'(%1)') bindWith:nr
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1430	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1431	]
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1432	].
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1433	snipletsDictionary at:snipletsName put:selection
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1434
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1435	"Modified: / 24-11-2006 / 12:44:16 / cg"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1436	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1437
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1438	addSharedPool
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1439	\|allPools poolToAdd\|
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1440
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1441	allPools := SharedPool allSubclasses collect:[:p \| p name].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1442	allPools removeAll:(poolsConsideredInDoIts ? #()).
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1443
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1444	poolToAdd := Dialog
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1445	choose:'Select a SharedPool to Add (To be known in doIt-Evaluations):'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1446	fromList:allPools
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1447	lines:15.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1448	poolToAdd isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1449	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1450	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1451	poolsConsideredInDoIts isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1452	poolsConsideredInDoIts := (Set new).
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1453	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1454	poolsConsideredInDoIts add:poolToAdd.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1455	workspaces do:[:ws \|
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1456	ws poolsConsideredInDoIts:poolsConsideredInDoIts.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1457	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1458
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1459	"Modified: / 24-11-2006 / 12:44:16 / cg"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1460	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1461
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1462	addSharedPoolInspector
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1463	\|pool\|
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1464
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1465	pool := Dialog requestSharedPool:'SharedPool' title:nil initialAnswer:nil.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1466	pool isEmptyOrNil ifTrue:[^ self].
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1467	^ self addNamespaceInspectorFor:(Smalltalk at:pool asSymbol)
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1468
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1469	"Created: / 29-05-2007 / 19:10:50 / cg"
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1470	!
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1471
8106 020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1472	addStopWatch
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1473	\|v clock\|
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1474
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1475	v := View new.
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1476	v viewBackground:Color white.
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1477	clock := ClockView in:v.
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1478	clock beStopWatch.
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1479
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1480	clock
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1481	origin:[
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1482	\|ext\|
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1483
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1484	ext := (v height) min:(v width).
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1485	(v extent - ext) // 2
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1486	]
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1487	extent:[
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1488	\|ext\|
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1489
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1490	ext := (v height) min:(v width).
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1491	ext @ ext
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1492	].
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1493
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1494	self addWindow:v named:'StopWatch%1'.
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1495	!
020e7fae9a26 +stopWatch Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	1496
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1497	addTeaTimer
6425 a88acd959059 * empty log message * Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	1498	\|l dt tEnd answer\|
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1499
6425 a88acd959059 * empty log message * Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	1500	dt := LastTeaWaitTime ? (3*60).
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1501	answer := Dialog
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1502	request:'Delta-Time (seconds) or End-Time (hh:mm:ss):'
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1503	initialAnswer:dt printString.
6425 a88acd959059 * empty log message * Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	1504	answer isEmptyOrNil ifTrue:[^ self].
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1505
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1506	tEnd := Time readFrom:answer onError:nil.
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1507	tEnd isNil ifTrue:[
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1508	dt := Number readFrom:answer onError:[^ self].
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1509	LastTeaWaitTime := dt.
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1510	tEnd := AbsoluteTime now addSeconds:dt.
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1511	] ifFalse:[
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1512	dt := tEnd - Time now.
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1513	tEnd := tEnd asAbsoluteTime.
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1514	].
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1515
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1516	l := Label new.
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1517	l sizeFixed:true.
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1518	l label:'Waiting ... [',dt printString,' sec]'.
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1519	l viewBackground:Color red.
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1520	self addWindow:l named:'TeaTimer%1'.
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1521
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1522	[
6424 57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1523	Error handle:[
6636 0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	1524	#intentionallyLeftBlank
6424 57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1525	] do:[
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1526	\|remaining\|
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1527
6424 57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1528	[AbsoluteTime now < tEnd ] whileTrue:[
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1529	remaining := tEnd - AbsoluteTime now.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1530	l label:'Waiting ... [',remaining printString,' sec]'.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1531	Delay waitForSeconds:1.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1532	].
7537 cfc57e7d5948 * empty log message * Claus Gittinger <cg@exept.de> parents: 7474 diff changeset	1533	3 timesRepeat:[ l beep. Delay waitForSeconds:0.4 ].
6424 57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1534	l label:'TEA is ready !!'.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1535	l viewBackground:Color green.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1536	l topView raiseDeiconified.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6423 diff changeset	1537	]
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1538	] fork.
7537 cfc57e7d5948 * empty log message * Claus Gittinger <cg@exept.de> parents: 7474 diff changeset	1539
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	1540	"Modified: / 23-11-2006 / 16:48:14 / cg"
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1541	!
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	1542
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1543	addWorkspaceVariable
7544 a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1544	\|name selectedWorkspacesTextView selection\|
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1545
7544 a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1546	selectedWorkspacesTextView := self selectedWorkspacesTextView.
a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1547	selectedWorkspacesTextView notNil ifTrue:[
a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1548	selection := selectedWorkspacesTextView selection.
a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1549	].
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1550
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1551	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1552	request:'Name of new Workspace Variable:'
7544 a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1553	initialAnswer:(selection ? '') asString string
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1554	okLabel:'Add'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1555	title:'Enter Variable Name'.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1556	name size == 0 ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1557	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1558	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1559	Workspace addWorkspaceVariable:name.
7544 a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1560
a98f0b4a43dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7541 diff changeset	1561	"Modified: / 24-11-2006 / 12:44:16 / cg"
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1562	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1563
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1564	addWorkspaceVariableInspector
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1565	\|v\|
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1566
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1567	v := self addInspectorOn:(Workspace workspaceVariables) basic:false suppressPseudoSlots:true.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1568	v dereferenceValueHolders:true.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1569	v fieldListLabel:'Name'.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1570	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Variables'.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1571	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1572
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1573	askForFilterBlock:message template:template rememberIn:nameOfClassVar
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1574	\|filterBlockString filterBlock dialog textHolder classVarValue\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1575
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1576	classVarValue := self class classVarAt:nameOfClassVar ifAbsent:nil.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1577	classVarValue isNil ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1578	self class classVarAt:nameOfClassVar put:template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1579	classVarValue := template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1580	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1581
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1582	textHolder := ValueHolder new.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1583	dialog := Dialog
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1584	forRequestText:(resources string:message)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1585	lines:25
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1586	columns:70
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1587	initialAnswer:classVarValue
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1588	model:textHolder.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1589	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	1590	dialog open.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1591	dialog accepted ifFalse:[^ nil].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1592
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1593	filterBlockString := textHolder value.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1594	self class classVarAt:nameOfClassVar put:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1595
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1596	filterBlock := Parser evaluate:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1597	filterBlock isBlock ifFalse:[
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1598	self error:'bad input for filterBlock' mayProceed:true.
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1599	^ nil
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1600	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1601
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1602	^ filterBlock
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1603	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1604
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1605	autoDefineVariablesChanged
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1606	\|autoDefine\|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1607
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1608	autoDefine := autoDefineVariables value.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1609	UserPreferences current autoDefineWorkspaceVariables:(autoDefine == #workspace).
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1610	workspaces do:[:each \|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1611	each autoDefineVariables:autoDefine
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1612	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1613	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	1614
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1615	basicInspectIt
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1616	self inspectIt:true
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1617	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1618
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1619	browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1620	self selectedWorkspacesTextView browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1621	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1622
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1623	browseIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1624	self selectedWorkspacesTextView browseIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1625	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1626
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1627	browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1628	self selectedWorkspacesTextView browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1629	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1630
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1631	clearHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1632	Workspace clearDoItHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1633	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1634
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1635	doIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1636	self selectedWorkspacesTextView doIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1637	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1638
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1639	inspectIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1640	self inspectIt:false
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1641	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1642
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1643	inspectIt:isBasicInspector
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1644	\|ws\|
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1645
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1646	ws := self selectedWorkspacesTextView.
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1647	ws
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1648	do:(ws selection)
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1649	withValueDo:[:result \|
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1650	self addInspectorOn:result basic:isBasicInspector suppressPseudoSlots:false
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1651	]
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1652
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1653	"/ self selectedWorkspace inspectIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1654	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1655
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1656	inspectWorkspaceVariables
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1657	\|wsvars\|
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1658
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1659	wsvars := Workspace workspaceVariables.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1660	wsvars size == 0 ifTrue:[
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1661	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1662	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1663	].
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1664	wsvars inspect
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1665	!
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1666
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1667	manageSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1668	\|bindings listOfSniplets removeAction pasteAction
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1669	hasSelectionHolder removeEnabledHolder pasteEnabledHolder
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1670	selectedSnipletHolder selectedSnipletsTextHolder selectedSnipletsName
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1671	snipletsDictionary saveEnabledHolder saveAction \|
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1672
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1673	snipletsDictionary := Workspace sniplets.
78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1674	snipletsDictionary isEmptyOrNil ifTrue:[
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1675	Dialog information:'No Sniplets to Manage'.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1676	^ self.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1677	].
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1678
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1679	listOfSniplets := List withAll:(snipletsDictionary keys asOrderedCollection sort).
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1680	selectedSnipletsTextHolder := '' asValue.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1681
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1682	selectedSnipletHolder := nil asValue.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1683	selectedSnipletHolder onChangeEvaluate:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1684	(selectedSnipletHolder value) isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1685	selectedSnipletsName := nil.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1686	selectedSnipletsTextHolder value:''.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1687	] ifFalse:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1688	selectedSnipletsName := listOfSniplets at:(selectedSnipletHolder value).
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1689	selectedSnipletsTextHolder value:(snipletsDictionary at:selectedSnipletsName).
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1690	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1691	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1692
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1693	hasSelectionHolder := BlockValue with:[:m \| m value notNil] argument:selectedSnipletHolder.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1694	removeEnabledHolder := hasSelectionHolder.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1695	pasteEnabledHolder := hasSelectionHolder.
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1696	saveEnabledHolder := BlockValue with:[:m :textHolder\|
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1697	m value notNil
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1698	and:[(snipletsDictionary at:(listOfSniplets at:(selectedSnipletHolder value))) ~= textHolder value]
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1699	] argument: selectedSnipletHolder argument: selectedSnipletsTextHolder.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1700
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1701	removeAction := [
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1702	snipletsDictionary removeKey:selectedSnipletsName.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1703	listOfSniplets remove:selectedSnipletsName.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1704	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1705
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1706	pasteAction := [
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1707	\|text\|
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1708	text := snipletsDictionary at:selectedSnipletsName.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1709	self paste:text
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1710	].
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1711	saveAction := [
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1712	\|originalText newText\|
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1713	originalText := snipletsDictionary at:selectedSnipletsName.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1714	newText := selectedSnipletsTextHolder value.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1715	originalText ~= newText ifTrue:[
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1716	snipletsDictionary at: selectedSnipletsName put: newText.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1717	].
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1718	saveEnabledHolder recomputeValue.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1719	].
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1720
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1721	bindings := IdentityDictionary new.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1722	bindings at:#listOfSniplets put:listOfSniplets.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1723	bindings at:#selectedSniplet put:selectedSnipletHolder asValue.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1724	bindings at:#selectedSnipletsText put:selectedSnipletsTextHolder.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1725	bindings at:#removeSelectedSniplet put:removeAction.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1726	bindings at:#pasteSelectedSniplet put:pasteAction.
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1727	bindings at:#saveSelectedSniplet put:saveAction.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1728	bindings at:#removeEnabled put:removeEnabledHolder.
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1729	bindings at:#pasteEnabled put:pasteEnabledHolder.
acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	1730	bindings at:#saveEnabled put:saveEnabledHolder.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1731
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1732	self openDialogInterface:#manageSnipletsDialogSpec withBindings:bindings
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1733	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1734
7403 73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1735	newEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1736	self class openEvaluationWorkspace
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1737
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1738	"Created: / 13-10-2006 / 12:19:47 / cg"
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1739	!
73712386ea82 menu: open/add evaluation workspace Claus Gittinger <cg@exept.de> parents: 6865 diff changeset	1740
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1741	newSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1742	self class openSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1743	!
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1744
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745	openDocumentation
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746	"opens the documentation file"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1747
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748	self openHTMLDocument: 'tools/misc/TOP.html#WORKSPACE'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1749	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1751	pasteAndExecute:aString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1752	self paste:aString.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1753	self printIt
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1754	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1755
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1756	pasteSniplet
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1757	\|allSniplets snipletToPaste snipletsDictionary\|
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1758
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1759	snipletsDictionary := Workspace sniplets.
78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1760	snipletsDictionary isEmptyOrNil ifTrue:[
7944 3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1761	Dialog information:'No Sniplets to Paste'.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1762	^ self.
3d185d0ca8e9 sharedPool inspection support Claus Gittinger <cg@exept.de> parents: 7931 diff changeset	1763	].
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1764	allSniplets := snipletsDictionary keys asOrderedCollection sort.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1765
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1766	snipletToPaste := Dialog
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1767	choose:'Paste Sniplet:'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1768	fromList:allSniplets
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1769	lines:10.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1770	snipletToPaste isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1771	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1772	].
8285 78f27e6a2520 made sniplets globally accessable fm parents: 8226 diff changeset	1773	self paste:(snipletsDictionary at:snipletToPaste).
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1774
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1775	"Modified: / 24-11-2006 / 12:44:16 / cg"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1776	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1777
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778	printIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1779	self selectedWorkspacesTextView printIt
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1780	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1781
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1782	processText
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1783	\|template filterBlock newList oldList answer nChanged changedLines flags\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1784
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1785	template :=
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1786	'"/ general text processor;
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1787	"/ the following block should evaluate to a new line,
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1788	"/ given the original line as argument.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1789	"/ Beginner warning: Smalltalk know-how is useful here.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1790
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1791	[:line \|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1792	"/ any processing on line.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1793	"/ 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	1794	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1795	"/ Useful operations on the line are:
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1796	"/ - '' .... '' , concatenation of any prefix/suffix
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1797	"/ - leftPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1798	"/ - rightPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1799	"/ - copyTo:(size min:N)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1800	"/ - asUppercase
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1801	"/ - asLowercase
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1802	"/ - withoutSeparators remove whiteSpace
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1803	"/ - asCollectionOfWords words
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1804
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1805	"/ makes everything bold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1806	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1807	"/ line allBold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1808
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1809	"/ first word only
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1810	"/
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1811	"/ line withoutSeparators asCollectionOfWords first
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1812
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1813	"/ dummy filter (keeps all lines as-is)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1814	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1815	line
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1816	]
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1817	'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1818	filterBlock := self askForFilterBlock:'Processing block:'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1819	template:template
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1820	rememberIn:#LastProcessingBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1821	filterBlock isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1822
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1823	oldList := self selectedWorkspacesTextView list.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1824	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1825	newList := oldList collect:[:line \| \|newLine\|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1826	newLine := line.
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1827	Error handle:[:ex \|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1828	] do:[
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1829	newLine := filterBlock value:line
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1830	].
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1831	newLine
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1832	].
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1833	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	1834
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1835	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	1836	flags := flags select:[:flag \| flag].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1837	nChanged := flags size.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1838	nChanged == 0 ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1839	self information:'No lines were changed.'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1840	^ self
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1841	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1842
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1843	answer := Dialog confirmWithCancel:(resources
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1844	string:'%1 lines changed. Change text ?'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1845	with:nChanged)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1846	labels:#( 'Cancel' 'No, Show Changed' 'Yes').
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1847	answer isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1848	answer ifFalse:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1849	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	1850	changedLines := changedLines collect:[:i \| (newList at:i)].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1851	TextBox openOn:(changedLines asStringCollection) title:'Changed lines'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1852	^ self.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1853	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1854
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1855	self selectedWorkspacesTextView list:newList.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1856	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1857
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1858	redoLastDoIt
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1859	\|s\|
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1860
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1861	s := self lastDoItsString.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1862	s notNil ifTrue:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1863	self pasteAndExecute:s
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1864	]
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1865	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1866
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1867	removeAllWorkspaceVariables
5846 d959a98a0047 * empty log message * Claus Gittinger <cg@exept.de> parents: 5804 diff changeset	1868	(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	1869	ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1870	Workspace removeAllWorkspaceVariables
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1871	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1872	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1873
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1874	removeGlobalVariable
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1875	\|name nameKey selection value\|
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1876
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1877	selection := self selectedWorkspacesTextView selection ? ''.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1878
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1879	name := Dialog
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1880	request:'Remove Global Variable:'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1881	initialAnswer:(selection asString string)
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1882	okLabel:'Remove'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1883	title:'Remove Global'.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1884
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1885	name size == 0 ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1886	nameKey := name asSymbolIfInterned.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1887	nameKey isNil ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1888
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1889	(Smalltalk includesKey:nameKey) ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1890	self warn:('No such Global Binding: ''%1''.' bindWith:name).
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1891	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1892	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1893
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1894	value := Smalltalk at:nameKey.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1895	value notNil ifTrue:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1896	(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	1897	ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1898	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1899	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1900	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1901	Smalltalk at:nameKey put:nil.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1902	Smalltalk removeKey:nameKey
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1903	!
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1904
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1905	removeSharedPool
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1906	\|poolToRemove\|
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1907
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1908	poolsConsideredInDoIts isEmptyOrNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1909	Dialog information:'No pools have been added yet'.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1910	^ self.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1911	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1912
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1913	poolToRemove := Dialog
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1914	choose:'Pool to Remove (No longer known in doIt-Evaluations):'
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1915	fromList:(poolsConsideredInDoIts asOrderedCollection sort)
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1916	lines:10.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1917
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1918	poolToRemove isNil ifTrue:[
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1919	^ self
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1920	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1921	poolsConsideredInDoIts remove:poolToRemove.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1922	workspaces do:[:ws \|
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1923	ws poolsConsideredInDoits:poolsConsideredInDoIts.
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1924	].
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1925
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1926	"Modified: / 24-11-2006 / 12:44:16 / cg"
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1927	!
99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1928
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1929	removeWorkspaceVariable
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1930	\|name selection wsVarNames\|
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1931
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1932	wsVarNames := Workspace workspaceVariableNames.
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1933	wsVarNames isEmpty ifTrue:[
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1934	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1935	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1936	].
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1937
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1938	selection := self selectedWorkspacesTextView selection ? ''.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1939
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1940	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1941	request:'Variable to remove:'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1942	initialAnswer:(selection asString string)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1943	okLabel:'Remove'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1944	title:'Enter Variable Name'
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1945	list:(wsVarNames asOrderedCollection sort).
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1946	name isEmptyOrNil ifTrue:[
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1947	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1948	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1949	Workspace removeWorkspaceVariable:name.
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1950
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1951	"Modified: / 20-04-2005 / 11:56:28 / cg"
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1952	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1953
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1954	spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1955	self selectedWorkspacesTextView spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1956	!
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1957
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1958	timeIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1959	self selectedWorkspacesTextView timeIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1962	!WorkspaceApplication methodsFor:'menu-actions-editing'!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1963
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1964	babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1965	"translate the selected text and paste it after the selection"
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1966
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1967	self selectedWorkspace babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1968	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1969
7831 afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1970	changesBrowserOnText
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1971	ChangeSetBrowser
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1972	openOn:(ChangeSet fromStream:self selectedWorkspacesTextView contentsAsString readStream)
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1973
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1974	"Created: / 27-08-2007 / 10:57:30 / cg"
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1975	!
afaba61f009f +changeList on text Claus Gittinger <cg@exept.de> parents: 7825 diff changeset	1976
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1977	fileInText
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1978	self selectedWorkspacesTextView contentsAsString readStream fileIn
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1979	!
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1980
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1981	filterText
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1982	\|template filterBlock newList oldList answer nDeleted deletedLines\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1983
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1984	template :=
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1985	'"/ general text filter;
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1986	"/ the following block should evaluate to true for all lines
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1987	"/ 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	1988	"/ Beginner warning: Smalltalk know-how is useful here.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1989
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1990	[:line \|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1991	"/ any condition on line.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1992	"/ 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	1993	"/ so you may want to use line string.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1994	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1995	"/ Useful queries on the line are:
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1996	"/ - size the length of the line
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1997	"/ - hasChangeOfEmphasis any bold, italic etc.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1998	"/ - startsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1999	"/ - endsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2000
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2001	"/ example filter (removes all empty lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2002	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2003	"/ line size > 0
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2004
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2005	"/ 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	2006	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2007	"/ (line asLowercase endsWith:''foo'') not
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2008
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2009	"/ dummy filter (keeps all lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2010	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2011	true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2012	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2013	'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2014
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2015	filterBlock := self askForFilterBlock:'Filter block:'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2016	template:template
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2017	rememberIn:#LastFilterBlockString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2018	filterBlock isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2019
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2020	oldList := self selectedWorkspacesTextView list.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2021	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2022	newList := oldList select:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2023	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	2024	nDeleted := oldList size - newList size.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2025	nDeleted == 0 ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2026	self information:'No lines were deleted.'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2027	^ self
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2028	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2029
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2030	answer := Dialog confirmWithCancel:(resources
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2031	string:'%1 lines remain (%2 deleted). Change text ?'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2032	with:newList size
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2033	with:nDeleted)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2034	labels:#( 'Cancel' 'No, Show Deleted' 'Yes').
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2035	answer isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2036	answer ifFalse:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2037	deletedLines := oldList reject:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2038	TextBox openOn:(deletedLines asStringCollection) title:'Filtered lines'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2039	^ self.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2040	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2041
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2042	self selectedWorkspacesTextView list:newList.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2043	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2044
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2045	googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2046	self selectedWorkspacesTextView googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2047	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2048
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2049	pasteLastDoIt
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2050	\|s\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2051
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2052	s := self lastDoItsString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2053	s notNil ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2054	self paste:s
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2055	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2056	! !
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	2057
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2058	!WorkspaceApplication methodsFor:'menu-dynamic'!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2059
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2060	pasteRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2061	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2062
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2063	^ self recentDoItsMenuFor:#'paste:'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2064	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2065
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2066	recentDoItsMenuFor:aSelector
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2067	<resource: #programMenu >
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2068
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2069	^ [
7728 ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2070	\|doIts m classHistory currentClass cmdLabelLen\|
ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2071
ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2072	cmdLabelLen := 40.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2073
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2074	doIts := Workspace doItHistory.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2075	doIts size > 0 ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2076	m := Menu new.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2077	doIts do:[:doItEntry \|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2078	\|lines label item\|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2079
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2080	label := doItEntry withoutLeadingSeparators asStringCollection first.
7728 ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2081	(label size > cmdLabelLen) ifTrue:[
ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2082	label := (label contractTo:cmdLabelLen)
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2083	] ifFalse:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2084	(lines size > 1) ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2085	label := label , '...'
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2086	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2087	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2088	label := '''' , label , ''''.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2089
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2090	item := MenuItem label:label.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2091	m addItem:item.
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2092	item value:aSelector.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2093	item argument:doItEntry.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2094	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2095	m addItem: (MenuItem new label:'-').
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2096	m addItem: (MenuItem new
5358 b122ec142dba checkin from browser Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	2097	label: (resources string:'Clear History');
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2098	value: #clearHistory;
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2099	activeHelpKey: #historyEmptyMenu;
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2100	translateLabel:true).
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2101	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2102	m
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2103	].
7728 ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2104
ea8817f9cde3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7686 diff changeset	2105	"Modified: / 12-03-2007 / 08:57:56 / cg"
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2106	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2107
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2108	redoRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2109	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2110
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2111	^ self recentDoItsMenuFor:#'pasteAndExecute:'
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2112	! !
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	2113
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2114	!WorkspaceApplication methodsFor:'private'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2115
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2116	askIfAnyModified:question yesButton:yesButtonText
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2117	(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	2118
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2119	(Dialog
6353 b9e2940b7714 * empty log message * Claus Gittinger <cg@exept.de> parents: 6323 diff changeset	2120	confirm:(resources stringWithCRs:question)
6636 0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	2121	yesLabel:(resources string:yesButtonText)
0df4d1386e30 * empty log message * Claus Gittinger <cg@exept.de> parents: 6508 diff changeset	2122	noLabel:(resources string:'Cancel'))
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2123	ifTrue:[
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2124	"/ reset modified flag so question is asked only once
6045 3589c863290a * empty log message * ca parents: 6022 diff changeset	2125	workspaces
3589c863290a * empty log message * ca parents: 6022 diff changeset	2126	select:[:aView \| (self isModifiedWorkspace:aView)]
3589c863290a * empty log message * ca parents: 6022 diff changeset	2127	thenDo:[:eachModifiedTextView \|
7662 9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2128	eachModifiedTextView
9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2129	perform:#modified: with:false
9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2130	ifNotUnderstood:[].
6045 3589c863290a * empty log message * ca parents: 6022 diff changeset	2131	].
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2132	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2133	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2134	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2135	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2136
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2137	compilerClassForSyntaxName:syntax
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2138	syntax == #Smalltalk ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2139	^ Compiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2140	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2141	syntax == #JavaScript ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2142	^ JavaScriptCompiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2143	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2144	^ Compiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2145	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2146
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2147	createEvaluationWorkspace
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2148	\|ws l b box resultView environmentView panel workspaceVariables\|
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2149
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2150	workspaceVariables := Workspace workspaceVariables.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2151
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2152	panel := VariableVerticalPanel new.
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2153	panel showHandle:true.
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2154
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2155	box := View new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2156	l := Label new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2157	l label:'Eval:'.
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2158	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	2159	l adjust:#left.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2160	box add:l.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2161
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2162	ws := HVScrollableView for:Workspace.
7662 9ad6030ecba2 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7658 diff changeset	2163	ws scrolledView name:#'Workspace'.
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2164	ws autoDefineVariables:#workspace.
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2165	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	2166	box add:ws.
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2167
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2168	b := Button new.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2169	b label:'DoIt'.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2170	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	2171	b adjust:#left.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2172	b action:[ws doIt].
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2173	box add:b.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2174
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2175	b := Button new.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2176	b label:'InspectIt'.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2177	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	2178	b adjust:#left.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2179	b action:[ws inspectIt].
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2180	box add:b.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2181
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2182	b := Button new.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2183	b label:'BrowseIt'.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2184	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	2185	b adjust:#left.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2186	b action:[ws browseIt].
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2187	box add:b.
c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2188
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2189	panel add:box.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2190
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2191	box := View new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2192	box add:(Label new label:'Value:'; adjust:#left; layout:((0.0@0.0 corner:1.0@0.0) asLayout bottomOffset:22)).
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2193	resultView := HVScrollableView for:TextCollector.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2194	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	2195
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2196	panel add:box.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2197
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2198	box := View new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2199	box add:(Label new label:'Environment:'; adjust:#left; layout:((0.0@0.0 corner:1.0@0.0) asLayout bottomOffset:22)).
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2200	environmentView := DictionaryInspectorView new.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2201	environmentView suppressPseudoSlots:true.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2202	environmentView inspect:workspaceVariables.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2203	environmentView dereferenceValueHolders:true.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2204	environmentView fieldListLabel:'Variable'.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2205	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	2206
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2207	panel add:box.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2208
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2209	"/ self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Eval'.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2210
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2211	ws doItAction:[:theCode \|
6752 a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2212	\|result resultString\|
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2213
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2214	result := ws executeDoIt:theCode.
6752 a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2215	resultString := [
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2216	result storeString
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2217	] on:Error do:[
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2218	result printString
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2219	].
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2220
a05ea7328388 * empty log message * Claus Gittinger <cg@exept.de> parents: 6699 diff changeset	2221	resultView showCR:resultString.
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2222	9 to:1 by:-1 do:[:h\|
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2223	(workspaceVariables includesKey:('_%1' bindWith:h-1)) ifTrue:[
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2224	workspaceVariables
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2225	at:('_%1' bindWith:h)
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2226	put:(workspaceVariables at:('_%1' bindWith:h-1)).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2227	].
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2228	].
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2229	workspaceVariables at:'_0' put:(ValueHolder with:result).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2230	environmentView doUpdate.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2231	result.
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2232	].
6865 c69e5225b03b * empty log message * Claus Gittinger <cg@exept.de> parents: 6817 diff changeset	2233	panel relativeCorners:#(0.4 0.6 1.0).
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2234	^ panel
7541 957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2235
957ae975e391 handles in the eval-workspace Claus Gittinger <cg@exept.de> parents: 7537 diff changeset	2236	"Modified: / 24-11-2006 / 11:06:33 / cg"
6699 d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2237	!
d8eaa3937354 eval buffer Claus Gittinger <cg@exept.de> parents: 6636 diff changeset	2238
5295 e3c5a7b20d9d refactored (added abstract superclass) Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	2239	createWorkspace
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2240	\|ws\|
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2241
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2242	ws := (HVScrollableView for:Workspace).
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2243	ws autoDefineVariables:autoDefineVariables.
7931 99ce6134cbca sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	2244	ws poolsConsideredInDoIts:poolsConsideredInDoIts.
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	2245	^ ws
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	2246	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	2247
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2248	isModifiedWorkspace:aView
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2249	\|view\|
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2250
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2251	view := self workspaceViewOfView:aView.
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2252
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	2253	(view isNil
a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	2254	or:[view modified not
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2255	or:[view contentsWasSaved
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	2256	or:[view contents withoutSeparators isEmpty]]]) ifTrue:[
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2257	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2258	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2259	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2260	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	2261
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2262	lastDoItsString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2263	\|history\|
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	2264
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2265	history := Workspace doItHistory.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2266	history size > 0 ifFalse:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2267	self selectedWorkspacesTextView flash.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2268	^ nil
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	2269	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	2270	^ history first
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2271	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2272
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2273	syntaxNameForCompilerClass:aClass
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2274	aClass == Compiler ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2275	^ #Smalltalk
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2276	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2277	aClass == JavaScriptCompiler ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2278	^ #JavaScript
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2279	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2280	^ #Smalltalk
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2281	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2282
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2283	workspaceSelectionChanged
5855 a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	2284	\|compilerClass selectedWorkspace\|
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2285
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2286	super workspaceSelectionChanged.
5855 a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	2287	selectedWorkspace := self selectedWorkspace.
6421 38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2288
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2289	compilerClass := (selectedWorkspace or:[(selectedWorkspace isKindOf:Workspace) not])
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2290	ifTrue:[Compiler]
38dc014c8ab6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	2291	ifFalse:[selectedWorkspace compilerClass].
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	2292	self syntaxHolder setValue:(self syntaxNameForCompilerClass:compilerClass).
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2293	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2294
7825 a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2295	!WorkspaceApplication methodsFor:'user actions'!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2296
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2297	infoVisibilityChanged
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2298	super infoVisibilityChanged.
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2299	UserPreferences current infoVisibleInWorkspace:(self infoVisibleHolder value)
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2300
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2301	"Created: / 14-07-2007 / 16:46:58 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2302	!
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2303
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2304	toolBarVisibilityChanged
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2305	super toolBarVisibilityChanged.
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2306	UserPreferences current toolbarVisibleInWorkspace:(self toolBarVisibleHolder value)
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2307
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2308	"Created: / 14-07-2007 / 16:45:31 / cg"
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2309	! !
a1ab35cf516e * empty log message * Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	2310
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2311	!WorkspaceApplication class methodsFor:'documentation'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2312
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2313	version
8286 acf03e4d7859 manage Sniplets fm parents: 8285 diff changeset	2314	^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.156 2008-10-01 09:43:37 fm Exp $'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2315	! !

author	fm
	Wed, 01 Oct 2008 11:43:37 +0200
changeset 8286	acf03e4d7859
parent 8285	78f27e6a2520
child 8292	d4d4520832b0
permissions	-rw-r--r--