hg/stx-libtool: WorkspaceApplication.st@b9e2940b7714 (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	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	12
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	"{ Package: 'stx:libtool' }"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
5303 fe0d2165b716 * empty log message * Claus Gittinger <cg@exept.de> parents: 5295 diff changeset	15	MultiViewToolApplication subclass:#WorkspaceApplication
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	16	instanceVariableNames:'autoDefineVariables syntaxHolder'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	17	classVariableNames:'LastFilterBlockString LastProcessingBlockString'
3222 b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	18	poolDictionaries:''
b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 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
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	!WorkspaceApplication class methodsFor:'interface specs'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	"This resource specification was automatically generated
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	by the UIPainter of ST/X."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	"Do not manually edit this!! If it is corrupted,
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	the UIPainter may not be able to read the specification."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	UIPainter new openOnClass:WorkspaceApplication andSelector:#windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	WorkspaceApplication new openInterface:#windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	WorkspaceApplication open
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	<resource: #canvas>
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	^
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	#(#FullSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	#name: #windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	#window:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	#(#WindowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	#label: 'Workspace'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	#name: 'Workspace'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	#min: #(#Point 10 10)
3845 b4baee71ee18 no max size Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	72	#bounds: #(#Rectangle 13 23 445 264)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	#menu: #mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	#component:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	#(#SpecCollection
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	#collection: #(
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	78	#(#NoteBookViewSpec
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	79	#name: 'NoteBook1'
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	80	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	81	#model: #selectedWorkspaceIndexHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	82	#menu: #tabList
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	83	#useIndex: true
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	84	#accessTabMenuAction: #tabMenuAt:
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	85	#canvas: #workspaceHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	86	#canvasInset: 0
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	87	#canvasFrameLevel: 0
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	88	#keepCanvasAlive: true
4369 9b496f6aa2a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4359 diff changeset	89	#tabLevel: 1
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	90	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	!WorkspaceApplication class methodsFor:'menu specs'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	"This resource specification was automatically generated
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	by the MenuEditor of ST/X."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	"Do not manually edit this!! If it is corrupted,
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	the MenuEditor may not be able to read the specification."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	MenuEditor new openOnClass:WorkspaceApplication andSelector:#mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication mainMenu)) startUp
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	<resource: #menu>
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	^
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	114	#(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	115	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	116	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	117	label: 'File'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	118	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	119	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	120	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	121	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	122	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	123	label: 'New Workspace'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	124	itemValue: newWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	125	translateLabel: true
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	126	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	127	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	128	label: 'New SystemWorkspace'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	129	itemValue: newSystemWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	130	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	132	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	133	label: '-'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	135	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	136	label: 'Load File...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	137	itemValue: menuLoad
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	138	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	140	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	141	label: '-'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	143	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	144	label: 'Save As...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	145	itemValue: menuSaveAs
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	146	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	148	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	149	enabled: hasMultipleBuffersHolder
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	150	label: 'Save all As...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	151	itemValue: menuSaveAllAs
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	152	translateLabel: true
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	153	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	154	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	155	label: '-'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	157	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	158	label: 'Exit'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	159	itemValue: closeRequest
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	160	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	167	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	168	label: 'Buffers'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	169	nameKey: Buffer
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	170	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	171	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	172	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	173	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	174	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	175	label: 'Add Buffer'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	176	itemValue: addWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	177	translateLabel: true
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	178	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	179	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	180	enabled: anyWorkspaceVariableIsDefined
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	181	label: 'Add Buffer on Workspace Variables'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	182	itemValue: addWorkspaceVariableInspector
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	183	translateLabel: true
4098 aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	184	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	185	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	186	label: 'Add Buffer on Global Variables'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	187	itemValue: addGlobalVariableInspector
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	188	translateLabel: true
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	189	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	190	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	191	label: 'Rename...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	192	itemValue: renameWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	193	translateLabel: true
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	194	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	195	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	196	label: '-'
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	197	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	198	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	199	enabled: canRemoveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	200	label: 'Remove Buffer'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	201	itemValue: removeWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	202	translateLabel: true
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	203	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	204	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	205	nil
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	206	nil
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	207	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	208	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	209	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	210	label: 'Edit'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	211	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	212	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	213	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	214	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	215	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	216	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	217	label: 'Cut'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	218	itemValue: cutSelection
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	219	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	221	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	222	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	223	label: 'Copy'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	224	itemValue: copySelection
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	225	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	227	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	228	label: 'Paste'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	229	itemValue: paste
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	230	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	232	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	233	enabled: hasHistory
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	234	label: 'Paste Last'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	235	itemValue: pasteLastDoIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	236	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	237	submenuChannel: pasteRecentDoItMenu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	238	keepLinkedMenu: true
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	239	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	240	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	241	label: '-'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	242	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	243	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	244	label: 'Select All'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	245	itemValue: selectAll
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	246	translateLabel: true
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	247	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	248	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	249	label: '-'
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	250	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	251	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	252	label: 'Filter Text...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	253	itemValue: filterText
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	254	translateLabel: true
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	255	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	256	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	257	label: 'Process Text...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	258	itemValue: processText
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	259	translateLabel: true
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	260	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	261	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	262	label: '-'
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	263	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	264	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	265	label: 'Web Services'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	266	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	267	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	268	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	269	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	270	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	271	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	272	label: 'Google Spell'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	273	itemValue: googleSpellingSuggestion
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	274	translateLabel: true
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	275	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	276	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	277	label: 'Translate'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	278	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	279	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	280	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	281	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	282	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	283	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	284	label: 'English -> German'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	285	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	286	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	287	argument: 'en_de'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	288	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	289	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	290	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	291	label: 'English -> French'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	292	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	293	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	294	argument: 'en_fr'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	295	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	296	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	297	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	298	label: 'English -> Spanish'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	299	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	300	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	301	argument: 'en_es'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	302	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	303	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	304	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	305	label: 'English -> Portuguese'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	306	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	307	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	308	argument: 'en_pt'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	309	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	310	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	311	label: '-'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	312	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	313	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	314	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	315	label: 'German -> English'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	316	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	317	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	318	argument: 'de_en'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	319	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	320	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	321	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	322	label: 'French -> English'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	323	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	324	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	325	argument: 'fr_en'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	326	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	327	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	328	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	329	label: 'Spanish -> English'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	330	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	331	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	332	argument: 'es_en'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	333	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	334	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	335	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	336	label: 'Portuguese -> English'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	337	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	338	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	339	argument: 'pt_en'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	340	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	341	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	342	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	343	label: 'Russian -> English'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	344	itemValue: babelFishTranslate:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	345	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	346	argument: 'ru_en'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	347	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	348	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	349	nil
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	350	nil
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	351	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	352	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	353	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	354	nil
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	355	nil
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	356	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	357	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	363	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	364	label: 'Workspace'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	365	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	366	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	367	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	368	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	369	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	370	label: 'Add Workspace Variable...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	371	itemValue: addWorkspaceVariable
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	372	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	373	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	374	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	375	enabled: anyWorkspaceVariableIsDefined
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	376	label: 'Remove Workspace Variable...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	377	itemValue: removeWorkspaceVariable
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	378	translateLabel: true
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	379	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	380	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	381	enabled: anyWorkspaceVariableIsDefined
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	382	label: 'Remove all Workspace Variables...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	383	itemValue: removeAllWorkspaceVariables
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	384	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	385	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	386	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	387	label: '-'
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	388	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	389	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	390	enabled: anyWorkspaceVariableIsDefined
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	391	label: 'Inspect Workspace Variables'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	392	itemValue: inspectWorkspaceVariables
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	393	translateLabel: true
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	394	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	395	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	396	label: '-'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	397	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	398	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	399	label: 'Settings'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	400	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	401	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	402	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	403	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	404	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	405	label: 'Autodefine as Workspace Variable'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	406	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	407	hideMenuOnActivated: false
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	408	choice: autoDefineVariables
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	409	choiceValue: workspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	410	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	411	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	412	label: 'Autodefine as DoIt Variable'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	413	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	414	hideMenuOnActivated: false
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	415	choice: autoDefineVariables
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	416	choiceValue: doIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	417	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	418	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	419	label: 'Autodefine off'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	420	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	421	hideMenuOnActivated: false
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	422	choice: autoDefineVariables
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	423	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	424	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	425	label: '-'
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	426	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	427	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	428	label: 'Syntax'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	429	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	430	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	431	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	432	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	433	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	434	label: 'Smalltalk'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	435	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	436	choice: syntaxHolder
5983 2e05d5fa48e4 horiz. layout Claus Gittinger <cg@exept.de> parents: 5855 diff changeset	437	choiceValue: Smalltalk
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	438	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	439	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	440	label: 'JavaScript'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	441	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	442	choice: syntaxHolder
5983 2e05d5fa48e4 horiz. layout Claus Gittinger <cg@exept.de> parents: 5855 diff changeset	443	choiceValue: JavaScript
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	444	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	445	)
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	446	nil
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	447	nil
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	448	)
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	449	)
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	450	)
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	451	nil
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	452	nil
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	453	)
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	454	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	455	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	456	nil
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	457	nil
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	458	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	459	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	460	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	461	label: 'Smalltalk'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	462	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	463	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	464	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	465	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	466	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	467	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	468	label: 'DoIt'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	469	itemValue: doIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	470	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	472	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	473	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	474	label: 'PrintIt'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	475	itemValue: printIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	476	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	478	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	479	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	480	label: 'InspectIt'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	481	itemValue: inspectIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	482	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	484	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	485	label: '-'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	487	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	488	enabled: hasHistory
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	489	label: 'Redo Last'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	490	itemValue: redoLastDoIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	491	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	492	submenuChannel: redoRecentDoItMenu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	493	keepLinkedMenu: true
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	494	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	495	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	496	label: '-'
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	497	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	498	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	499	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	500	label: 'TimeIt'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	501	itemValue: timeIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	502	translateLabel: true
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	503	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	504	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	505	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	506	label: 'SpyOnIt'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	507	itemValue: spyOnIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	508	translateLabel: true
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	509	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	510	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	511	label: '-'
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	512	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	513	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	514	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	515	label: 'Browse Class'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	516	itemValue: browseIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	517	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	519	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	520	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	521	label: 'Browse Implementors of It'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	522	itemValue: browseImplementorsOfIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	523	translateLabel: true
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	524	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	525	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	526	enabled: hasSelectionInActiveWorkspace
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	527	label: 'Browse References to It'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	528	itemValue: browseReferencesToIt
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	529	translateLabel: true
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	530	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	531	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	532	label: '-'
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	533	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	534	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	535	label: 'FileIn Text'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	536	itemValue: fileInText
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	537	translateLabel: true
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	538	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	539	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	540	label: '-'
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	541	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	542	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	543	label: 'Add Global Variable...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	544	itemValue: addGlobalVariable
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	545	translateLabel: true
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	546	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	547	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	548	label: 'Remove Global Variable...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	549	itemValue: removeGlobalVariable
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	550	translateLabel: true
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	551	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	557	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	558	label: 'Help'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	559	translateLabel: true
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	560	startGroup: right
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	561	submenu:
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	562	(Menu
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	563	(
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	564	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	565	label: 'Documentation'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	566	itemValue: openDocumentation
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	567	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	569	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	570	label: '-'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571	)
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	572	(MenuItem
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	573	label: 'About this Application...'
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	574	itemValue: openAboutThisApplication
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	575	translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585	)
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	586	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	587
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	588	tabMenu
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	589	"This resource specification was automatically generated
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	590	by the MenuEditor of ST/X."
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	591
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	592	"Do not manually edit this!! If it is corrupted,
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	593	the MenuEditor may not be able to read the specification."
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	594
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	595	"
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	596	MenuEditor new openOnClass:WorkspaceApplication andSelector:#tabMenu
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	597	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication tabMenu)) startUp
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	598	"
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	599
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	600	<resource: #menu>
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	601
6229 6411930716bc * empty log message * Claus Gittinger <cg@exept.de> parents: 6212 diff changeset	602	^
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	603	#(#Menu
6322 ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	604	#(
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	605	#(#MenuItem
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	606	#label: 'Add Tab'
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	607	#translateLabel: true
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	608	"/ #triggerOnDown: true
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	609	#value: #addWorkspace
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	610	)
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	611	#(#MenuItem
6323 26e8c0041993 * empty log message * Claus Gittinger <cg@exept.de> parents: 6322 diff changeset	612	#label: '-'
26e8c0041993 * empty log message * Claus Gittinger <cg@exept.de> parents: 6322 diff changeset	613	)
26e8c0041993 * empty log message * Claus Gittinger <cg@exept.de> parents: 6322 diff changeset	614	#(#MenuItem
6322 ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	615	#label: 'Remove Tab'
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	616	#translateLabel: true
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	617	"/ #triggerOnDown: true
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	618	#value: #removeWorkspace:
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	619	#enabled: #canRemoveWorkspace:
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	620	)
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	621	#(#MenuItem
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	622	#label: '-'
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	623	)
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	624	#(#MenuItem
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	625	#label: 'Rename...'
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	626	#translateLabel: true
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	627	"/ #triggerOnDown: true
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	628	#value: #renameWorkspace:
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	629	)
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	630	)
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	631	nil
ed6fcaae0faf * empty log message * Claus Gittinger <cg@exept.de> parents: 6267 diff changeset	632	nil
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	633	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	634	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	635
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	636	!WorkspaceApplication class methodsFor:'special startup'!
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	637
6022 f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	638	openOnFile:aFilename
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	639	"launch a new workspace on the contents of some file"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	640
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	641	\|ws\|
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	642
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	643	ws := self openWith:nil.
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	644	ws loadFile:aFilename.
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	645	^ ws
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	646
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	647	"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	648	WorkspaceApplication openOnFile:'Makefile'
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	649	"
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	650	!
f2a53298475e * empty log message * Claus Gittinger <cg@exept.de> parents: 5985 diff changeset	651
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	652	openSystemWorkspace
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	653	\|wsApp path needRemove font\|
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	654
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	655	needRemove := true.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	656
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	657	wsApp := self new.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	658	wsApp allButOpen.
3337 46dd799d3446 * empty log message * Claus Gittinger <cg@exept.de> parents: 3336 diff changeset	659	wsApp window extent:640@400.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	660
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	661	path := (Smalltalk getSystemFileName:'README') ? '../../README'.
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	662	path := path asFilename.
722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	663	path isReadable ifTrue:[
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	664	wsApp addWindow:(HVScrollableView for:Workspace) named:'README' asFirst:false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	665	wsApp loadFile:path.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	666	wsApp removeWorkspace:1. "/ the original Workspace
4183 029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	667	wsApp renameWorkspace:1 to:'LICENCE README'.
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	668	needRemove := false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	669	].
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	670
3346 6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	671	"/ 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	672	"/ path asFilename exists ifTrue:[
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	673	"/ wsApp addWindow:(licenceView := HVScrollableView for:HTMLDocumentView) named:'License' asFirst:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	674	"/ licenceView homeDocument:'../../doc/online/english/LICENCE_STX.html'.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	675	"/ licenceView updateLabelFlag:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	676	"/ needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	677	"/ needRemove := false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	678	"/ ].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	679
5684 b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	680	wsApp graphicsDevice platformName = 'X11' ifTrue:[
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	681	font := Font family:'unifont' face:'medium' style:'roman' size:16 encoding:'iso10646-1'.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	682	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	683	font isNil ifTrue:[
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	684	font := Font family:'arial' face:'medium' style:'roman' size:12 encoding:'iso10646-1'.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	685	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	686	].
b40fc8afd13c * empty log message * ca parents: 5682 diff changeset	687	] ifFalse:[
5685 a853fa00f9f8 * empty log message * ca parents: 5684 diff changeset	688	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	689	font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	690	].
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	691
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	692	#(
6212 36749efdb024 * empty log message * Claus Gittinger <cg@exept.de> parents: 6211 diff changeset	693	('Hello_utf8.wsp' HELLO_UTF_FILE 'Hello' #'utf8' )
36749efdb024 * empty log message * Claus Gittinger <cg@exept.de> parents: 6211 diff changeset	694	('Welcome.wsp' WELCOME_FILE 'Welcome' nil )
36749efdb024 * empty log message * Claus Gittinger <cg@exept.de> parents: 6211 diff changeset	695	('Setup.wsp' SETUP_FILE 'Setup' nil )
36749efdb024 * empty log message * Claus Gittinger <cg@exept.de> parents: 6211 diff changeset	696	('Keyboard.wsp' KEYBOARD_FILE 'Keyboard' nil )
36749efdb024 * empty log message * Claus Gittinger <cg@exept.de> parents: 6211 diff changeset	697	('GettingStarted.wsp' GETTING_STARTED_FILE 'Getting Started' nil )
6211 84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	698	) do:[:quadruple \|
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	699	\|file resKey title forcedEncoding pane encoding\|
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	700
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	701	file := quadruple at:1.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	702	resKey := quadruple at:2.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	703	file := self classResources string:resKey default:file.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	704
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	705	title := quadruple at:3.
84e88d412e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	706	forcedEncoding := quadruple at:4.
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	707
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	708	path := (Smalltalk getSystemFileName:file).
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	709
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	710	(path notNil and:[path asFilename isReadable]) ifTrue:[
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	711	wsApp addWindow:(pane := HVScrollableView for:Workspace) named:title asFirst:false.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	712
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	713	forcedEncoding notNil ifTrue:[
5694 23de3a41e575 * empty log message * Claus Gittinger <cg@exept.de> parents: 5693 diff changeset	714	encoding := forcedEncoding.
5804 dc6bd90bd4ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5752 diff changeset	715	font notNil ifTrue:[
dc6bd90bd4ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5752 diff changeset	716	pane font:font.
dc6bd90bd4ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5752 diff changeset	717	]
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	718	] ifFalse:[
6173 4ba4589e4952 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 6056 diff changeset	719	encoding := CharacterEncoder guessEncodingOfFile:path.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	720	(encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	721	encoding := nil
5681 53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	722	].
53dba8c1cfa5 unicode demo Claus Gittinger <cg@exept.de> parents: 5649 diff changeset	723	].
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	724	wsApp loadFile:path encoding:encoding label:title.
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	725	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	726	needRemove := false.
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	727	].
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	728	].
5693 6193522a042b * empty log message * Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	729	wsApp openWindow.
6193522a042b * empty log message * Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	730	wsApp selectedWorkspaceIndexHolder value:2.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	731
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	732	"
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	733	self openSystemWorkspace
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	734	"
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	735	!
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	736
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	737	openWith:initialText
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	738	"launch a new workspace with some initial contents"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	739
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	740	^ self openWith:initialText selected:false
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	741
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	742	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	743	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	744	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	745	!
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	746
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	747	openWith:initialText selected:selectedBoolean
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	748	"launch a new workspace with some initial contents"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	749
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	750	\|workspace\|
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	751
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	752	workspace := self new.
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	753	workspace open.
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	754	workspace selectedWorkspace contents:initialText selected:selectedBoolean.
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	755	^ workspace
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	756
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	757	"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	758	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	759	"
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	760	! !
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	761
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	762	!WorkspaceApplication methodsFor:'aspects'!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	763
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	764	autoDefineVariables
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	765	autoDefineVariables isNil ifTrue:[
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	766	autoDefineVariables := ValueHolder new.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	767	(UserPreferences current autoDefineWorkspaceVariables) ifTrue:[
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	768	autoDefineVariables value:#workspace.
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	769	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	770	autoDefineVariables onChangeSend:#autoDefineVariablesChanged to:self.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	771	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	772	^ autoDefineVariables.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	773	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	774
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	775	hasHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	776	^ Workspace doItHistory size > 0.
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	777	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	778
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	779	setCompilerForSyntax
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	780	\|syntax\|
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	781
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	782	syntax := syntaxHolder value.
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	783	self selectedWorkspace compilerClass:(self compilerClassForSyntaxName:syntax).
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	784	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	785
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	786	syntaxHolder
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	787	syntaxHolder isNil ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	788	syntaxHolder := #Smalltalk asValue.
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	789	syntaxHolder onChangeSend:#setCompilerForSyntax to:self
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	790	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	791	^ syntaxHolder
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	792	! !
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	793
4358 b0023a5ca3b8 category change Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	794	!WorkspaceApplication methodsFor:'aspects-queries'!
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	795
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	796	anyWorkspaceVariableIsDefined
6267 ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	797	^ Workspace anyWorkspaceVariableIsDefined
ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	798
ebcb6b917498 * empty log message * Claus Gittinger <cg@exept.de> parents: 6266 diff changeset	799	"Modified: / 20-04-2005 / 11:57:59 / cg"
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802	!WorkspaceApplication methodsFor:'initialization & release'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804	closeRequest
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	805	(self askIfAnyModified:'Text was not saved. Close anyway ?' yesButton:'Close') ifFalse:[
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806	^ self
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807	].
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809	^ super closeRequest
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811
4359 35995cc972f7 category change Claus Gittinger <cg@exept.de> parents: 4358 diff changeset	812	!WorkspaceApplication methodsFor:'menu-actions'!
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	814	addGlobalVariable
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	815	\|name nameKey selection\|
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	816
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	817	selection := self selectedWorkspacesTextView selection ? ''.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	818
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	819	name := Dialog
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	820	request:'Name of new Global Variable:'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	821	initialAnswer:(selection asString string)
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	822	okLabel:'Add'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	823	title:'Enter Variable Name'.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	824	name size == 0 ifTrue:[
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	825	^ self
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	826	].
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	827	nameKey := name asSymbol.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	828
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	829	(Smalltalk includesKey:nameKey) ifTrue:[
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	830	self warn:'Global named ''' , name , ''' already exists.'.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	831	^ self.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	832	].
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	833	Smalltalk at:nameKey put:nil.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	834	!
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	835
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	836	addGlobalVariableInspector
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	837	\|v\|
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	838
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	839	v := self addInspectorOn:(Smalltalk) basic:false suppressPseudoSlots:true.
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	840	v fieldListLabel:'Name'.
4208 84260a3d6e20 checkin from browser Claus Gittinger <cg@exept.de> parents: 4183 diff changeset	841	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Globals (Smalltalk)'.
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	842	!
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	843
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	844	addInspectorOn:aValue basic:isBasicInspector suppressPseudoSlots:suppressPseudoSlots
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	845	\|view cls resultString\|
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	846
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	847	isBasicInspector ifFalse:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	848	cls := aValue inspectorClass.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	849	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	850	cls isNil ifTrue:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	851	cls := InspectorView
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	852	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	853	view := cls new.
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	854	view suppressPseudoSlots:suppressPseudoSlots.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	855	view inspect:aValue.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	856	"/ v allowFollow:true.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	857	aValue isBehavior ifTrue:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	858	resultString := aValue name
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	859	] ifFalse:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	860	resultString := aValue classNameWithArticle
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	861	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	862	self addWindow:view named:('Inspecting: ' , resultString).
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	863	^ view
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	864	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	865
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	866	addWorkspace
5295 e3c5a7b20d9d refactored (added abstract superclass) Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	867	self addWindow:(self createWorkspace) named:'Workspace%1'
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	868	!
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	869
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	870	addWorkspaceVariable
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	871	\|name selection\|
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	872
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	873	selection := self selectedWorkspacesTextView selection ? ''.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	874
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	875	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	876	request:'Name of new Workspace Variable:'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	877	initialAnswer:(selection asString string)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	878	okLabel:'Add'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	879	title:'Enter Variable Name'.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	880	name size == 0 ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	881	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	882	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	883	Workspace addWorkspaceVariable:name.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	884	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	885
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	886	addWorkspaceVariableInspector
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	887	\|v\|
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	888
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	889	v := self addInspectorOn:(Workspace workspaceVariables) basic:false suppressPseudoSlots:true.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	890	v dereferenceValueHolders:true.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	891	v fieldListLabel:'Name'.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	892	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Variables'.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	893	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	894
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	895	askForFilterBlock:message template:template rememberIn:nameOfClassVar
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	896	\|filterBlockString filterBlock dialog textHolder classVarValue\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	897
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	898	classVarValue := self class classVarAt:nameOfClassVar ifAbsent:nil.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	899	classVarValue isNil ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	900	self class classVarAt:nameOfClassVar put:template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	901	classVarValue := template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	902	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	903
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	904	textHolder := ValueHolder new.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	905	dialog := Dialog
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	906	forRequestText:(resources string:message)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	907	lines:25
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	908	columns:70
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	909	initialAnswer:classVarValue
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	910	model:textHolder.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	911	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	912	dialog open.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	913	dialog accepted ifFalse:[^ nil].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	914
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	915	filterBlockString := textHolder value.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	916	self class classVarAt:nameOfClassVar put:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	917
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	918	filterBlock := Parser evaluate:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	919	filterBlock isBlock ifFalse:[
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	920	self error:'bad input for filterBlock' mayProceed:true.
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	921	^ nil
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	922	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	923
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	924	^ filterBlock
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	925	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	926
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	927	autoDefineVariablesChanged
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	928	\|autoDefine\|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	929
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	930	autoDefine := autoDefineVariables value.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	931	UserPreferences current autoDefineWorkspaceVariables:(autoDefine == #workspace).
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	932	workspaces do:[:each \|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	933	each autoDefineVariables:autoDefine
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	934	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	935	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	936
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	937	basicInspectIt
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	938	self inspectIt:true
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	939	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	940
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	941	browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	942	self selectedWorkspacesTextView browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	943	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	944
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	945	browseIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	946	self selectedWorkspacesTextView browseIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	949	browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	950	self selectedWorkspacesTextView browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	951	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	952
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	953	clearHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	954	Workspace clearDoItHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	955	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	956
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	doIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	958	self selectedWorkspacesTextView doIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	960
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	961	inspectIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	962	self inspectIt:false
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	963	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	964
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	965	inspectIt:isBasicInspector
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	966	\|ws\|
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	967
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	968	ws := self selectedWorkspacesTextView.
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	969	ws
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	970	do:(ws selection)
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	971	withValueDo:[:result \|
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	972	self addInspectorOn:result basic:isBasicInspector suppressPseudoSlots:false
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	973	]
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	974
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	975	"/ self selectedWorkspace inspectIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	976	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	977
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	978	inspectWorkspaceVariables
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	979	\|wsvars\|
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	980
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	981	wsvars := Workspace workspaceVariables.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	982	wsvars size == 0 ifTrue:[
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	983	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	984	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	985	].
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	986	wsvars inspect
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	987	!
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	988
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	989	loadFile:aFileName
5649 f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	990	self loadFile:aFileName encoding:nil
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	991	!
f6e8c040ffb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	992
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	993	loadFile:aFileName encoding:encodingSymbolOrNil
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	994	\|lbl\|
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	995
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	996	lbl := aFileName asFilename withoutSuffix baseName.
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	997	self loadFile:aFileName encoding:encodingSymbolOrNil label:lbl.
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	998	!
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	999
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1000	loadFile:aFileName encoding:encodingSymbolOrNil label:label
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1001	\|file ws\|
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1002
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1003	file := aFileName asFilename.
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1004	ws := self selectedWorkspacesTextView.
722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1005	[
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1006	\|contents\|
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1007
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1008	contents := file contents.
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1009	encodingSymbolOrNil notNil ifTrue:[
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1010	contents := contents encodeFrom:encodingSymbolOrNil into:#'unicode'.
5742 d9fa63dfd978 remember fileEncoding Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	1011	ws externalEncoding:encodingSymbolOrNil.
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1012	].
5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1013	ws contents:contents.
5752 1377fd220c4c remember loaded file (for save as) Claus Gittinger <cg@exept.de> parents: 5742 diff changeset	1014	ws defaultFileNameForFileDialog:file pathName.
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1015	] on:StreamError do:[:ex\|
722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1016	Dialog warn:(resources string:'Cannot open %1: %2' with:file asString with:ex description).
5196 13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1017	^ self
13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1018	].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1019	ws modified:false.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1020
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1021	tabList size <= 1 ifTrue:[
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1022	self window label:label.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1023	] ifFalse:[
5692 5db7964d2b43 * empty log message * Claus Gittinger <cg@exept.de> parents: 5685 diff changeset	1024	tabList at:self selectedWorkspaceIndexHolder value put:label
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1025	]
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1026	!
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1027
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1028	menuLoad
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1029	\|file\|
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1031	(self askIfModified:'Text was modified. Load anyway ?' yesButton:'Load') ifFalse:[ ^ self].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1032
5846 d959a98a0047 * empty log message * Claus Gittinger <cg@exept.de> parents: 5804 diff changeset	1033	file := Dialog requestFileName:(resources string:'Load file') default:'file.wsp' pattern:'*.wsp'.
5490 722da73f31ed Handle file open errors Stefan Vogel <sv@exept.de> parents: 5358 diff changeset	1034	file size ~~ 0 ifTrue:[
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1035	self loadFile:file
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036	]
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1039	newSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1040	self class openSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1041	!
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1042
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1043	openDocumentation
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1044	"opens the documentation file"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046	self openHTMLDocument: 'tools/misc/TOP.html#WORKSPACE'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1049	pasteAndExecute:aString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1050	self paste:aString.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1051	self printIt
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1052	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1053
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	printIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1055	self selectedWorkspacesTextView printIt
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1056	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1057
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1058	processText
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1059	\|template filterBlock newList oldList answer nChanged changedLines flags\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1060
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1061	template :=
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1062	'"/ general text processor;
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1063	"/ the following block should evaluate to a new line,
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1064	"/ given the original line as argument.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1065	"/ Beginner warning: Smalltalk know-how is useful here.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1066
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1067	[:line \|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1068	"/ any processing on line.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1069	"/ 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	1070	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1071	"/ Useful operations on the line are:
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1072	"/ - '' .... '' , concatenation of any prefix/suffix
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1073	"/ - leftPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1074	"/ - rightPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1075	"/ - copyTo:(size min:N)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1076	"/ - asUppercase
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1077	"/ - asLowercase
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1078	"/ - withoutSeparators remove whiteSpace
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1079	"/ - asCollectionOfWords words
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1080
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1081	"/ makes everything bold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1082	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1083	"/ line allBold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1084
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1085	"/ first word only
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1086	"/
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1087	"/ line withoutSeparators asCollectionOfWords first
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1088
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1089	"/ dummy filter (keeps all lines as-is)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1090	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1091	line
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1092	]
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1093	'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1094	filterBlock := self askForFilterBlock:'Processing block:'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1095	template:template
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1096	rememberIn:#LastProcessingBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1097	filterBlock isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1098
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1099	oldList := self selectedWorkspacesTextView list.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1100	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1101	newList := oldList collect:[:line \| \|newLine\|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1102	newLine := line.
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1103	Error handle:[:ex \|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1104	] do:[
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1105	newLine := filterBlock value:line
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1106	].
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1107	newLine
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1108	].
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1109	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	1110
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1111	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	1112	flags := flags select:[:flag \| flag].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1113	nChanged := flags size.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1114	nChanged == 0 ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1115	self information:'No lines were changed.'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1116	^ self
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1117	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1118
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1119	answer := Dialog confirmWithCancel:(resources
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1120	string:'%1 lines changed. Change text ?'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1121	with:nChanged)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1122	labels:#( 'Cancel' 'No, Show Changed' 'Yes').
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1123	answer isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1124	answer ifFalse:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1125	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	1126	changedLines := changedLines collect:[:i \| (newList at:i)].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1127	TextBox openOn:(changedLines asStringCollection) title:'Changed lines'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1128	^ self.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1129	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1130
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1131	self selectedWorkspacesTextView list:newList.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1132	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1133
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1134	redoLastDoIt
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1135	\|s\|
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1136
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1137	s := self lastDoItsString.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1138	s notNil ifTrue:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1139	self pasteAndExecute:s
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1140	]
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1141	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1142
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1143	removeAllWorkspaceVariables
5846 d959a98a0047 * empty log message * Claus Gittinger <cg@exept.de> parents: 5804 diff changeset	1144	(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	1145	ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1146	Workspace removeAllWorkspaceVariables
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1147	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1148	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1149
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1150	removeGlobalVariable
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1151	\|name nameKey selection value\|
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1152
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1153	selection := self selectedWorkspacesTextView selection ? ''.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1154
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1155	name := Dialog
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1156	request:'Remove Global Variable:'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1157	initialAnswer:(selection asString string)
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1158	okLabel:'Remove'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1159	title:'Remove Global'.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1160
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1161	name size == 0 ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1162	nameKey := name asSymbolIfInterned.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1163	nameKey isNil ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1164
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1165	(Smalltalk includesKey:nameKey) ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1166	self warn:('No such Global Binding: ''%1''.' bindWith:name).
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1167	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1168	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1169
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1170	value := Smalltalk at:nameKey.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1171	value notNil ifTrue:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1172	(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	1173	ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1174	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1175	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1176	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1177	Smalltalk at:nameKey put:nil.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1178	Smalltalk removeKey:nameKey
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1179	!
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1180
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1181	removeWorkspaceVariable
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1182	\|name selection wsVarNames\|
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1183
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1184	wsVarNames := Workspace workspaceVariableNames.
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1185	wsVarNames isEmpty ifTrue:[
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1186	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1187	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1188	].
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1189
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1190	selection := self selectedWorkspacesTextView selection ? ''.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1191
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1192	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1193	request:'Variable to remove:'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1194	initialAnswer:(selection asString string)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1195	okLabel:'Remove'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1196	title:'Enter Variable Name'
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1197	list:(wsVarNames asOrderedCollection sort).
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1198	name isEmptyOrNil ifTrue:[
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1199	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1200	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1201	Workspace removeWorkspaceVariable:name.
6266 15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1202
15c3122497ff * empty log message * Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	1203	"Modified: / 20-04-2005 / 11:56:28 / cg"
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1204	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1205
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1206	spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1207	self selectedWorkspacesTextView spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1208	!
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1209
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1210	timeIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1211	self selectedWorkspacesTextView timeIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1212	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1213
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1214	!WorkspaceApplication methodsFor:'menu-actions-editing'!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1215
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1216	babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1217	"translate the selected text and paste it after the selection"
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1218
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1219	self selectedWorkspace babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1220	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1221
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1222	fileInText
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1223	self selectedWorkspacesTextView contentsAsString readStream fileIn
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1224	!
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1225
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1226	filterText
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1227	\|template filterBlock newList oldList answer nDeleted deletedLines\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1228
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1229	template :=
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1230	'"/ general text filter;
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1231	"/ the following block should evaluate to true for all lines
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1232	"/ 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	1233	"/ Beginner warning: Smalltalk know-how is useful here.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1234
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1235	[:line \|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1236	"/ any condition on line.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1237	"/ 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	1238	"/ so you may want to use line string.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1239	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1240	"/ Useful queries on the line are:
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1241	"/ - size the length of the line
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1242	"/ - hasChangeOfEmphasis any bold, italic etc.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1243	"/ - startsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1244	"/ - endsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1245
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1246	"/ example filter (removes all empty lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1247	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1248	"/ line size > 0
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1249
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1250	"/ 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	1251	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1252	"/ (line asLowercase endsWith:''foo'') not
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1253
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1254	"/ dummy filter (keeps all lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1255	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1256	true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1257	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1258	'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1259
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1260	filterBlock := self askForFilterBlock:'Filter block:'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1261	template:template
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1262	rememberIn:#LastFilterBlockString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1263	filterBlock isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1264
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1265	oldList := self selectedWorkspacesTextView list.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1266	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1267	newList := oldList select:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1268	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	1269	nDeleted := oldList size - newList size.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1270	nDeleted == 0 ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1271	self information:'No lines were deleted.'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1272	^ self
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1273	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1274
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1275	answer := Dialog confirmWithCancel:(resources
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1276	string:'%1 lines remain (%2 deleted). Change text ?'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1277	with:newList size
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1278	with:nDeleted)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1279	labels:#( 'Cancel' 'No, Show Deleted' 'Yes').
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1280	answer isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1281	answer ifFalse:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1282	deletedLines := oldList reject:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1283	TextBox openOn:(deletedLines asStringCollection) title:'Filtered lines'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1284	^ self.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1285	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1286
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1287	self selectedWorkspacesTextView list:newList.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1288	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1289
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1290	googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1291	self selectedWorkspacesTextView googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1292	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1293
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1294	pasteLastDoIt
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1295	\|s\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1296
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1297	s := self lastDoItsString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1298	s notNil ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1299	self paste:s
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1300	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1301	! !
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1302
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1303	!WorkspaceApplication methodsFor:'menu-dynamic'!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1304
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1305	pasteRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1306	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1307
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1308	^ self recentDoItsMenuFor:#'paste:'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1309	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1310
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1311	recentDoItsMenuFor:aSelector
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1312	<resource: #programMenu >
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1313
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1314	^ [
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1315	\|doIts m classHistory currentClass\|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1316
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1317	doIts := Workspace doItHistory.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1318	doIts size > 0 ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1319	m := Menu new.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1320	doIts do:[:doItEntry \|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1321	\|lines label item\|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1322
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1323	label := doItEntry withoutLeadingSeparators asStringCollection first.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1324	(label size > 20) ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1325	label := (label contractTo:20)
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1326	] ifFalse:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1327	(lines size > 1) ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1328	label := label , '...'
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1329	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1330	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1331	label := '''' , label , ''''.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1332
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1333	item := MenuItem label:label.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1334	m addItem:item.
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1335	item value:aSelector.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1336	item argument:doItEntry.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1337	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1338	m addItem: (MenuItem new label:'-').
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1339	m addItem: (MenuItem new
5358 b122ec142dba checkin from browser Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	1340	label: (resources string:'Clear History');
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1341	value: #clearHistory;
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1342	activeHelpKey: #historyEmptyMenu;
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1343	translateLabel:true).
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1344	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1345	m
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1346	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1347	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1348
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1349	redoRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1350	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1351
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1352	^ self recentDoItsMenuFor:#'pasteAndExecute:'
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1353	! !
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1354
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	!WorkspaceApplication methodsFor:'private'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1357	askIfAnyModified:question yesButton:yesButtonText
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1358	(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	1359
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1360	(Dialog
6353 b9e2940b7714 * empty log message * Claus Gittinger <cg@exept.de> parents: 6323 diff changeset	1361	confirm:(resources stringWithCRs:question)
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1362	yesLabel:(resources at:yesButtonText)
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1363	noLabel:(resources at:'Cancel'))
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1364	ifTrue:[
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1365	"/ reset modified flag so question is asked only once
6045 3589c863290a * empty log message * ca parents: 6022 diff changeset	1366	workspaces
3589c863290a * empty log message * ca parents: 6022 diff changeset	1367	select:[:aView \| (self isModifiedWorkspace:aView)]
3589c863290a * empty log message * ca parents: 6022 diff changeset	1368	thenDo:[:eachModifiedTextView \|
3589c863290a * empty log message * ca parents: 6022 diff changeset	1369	eachModifiedTextView modified:false.
3589c863290a * empty log message * ca parents: 6022 diff changeset	1370	].
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1371	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1372	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1373	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1374	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1375
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1376	compilerClassForSyntaxName:syntax
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1377	syntax == #Smalltalk ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1378	^ Compiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1379	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1380	syntax == #JavaScript ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1381	^ JavaScriptCompiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1382	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1383	^ Compiler
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1384	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1385
5295 e3c5a7b20d9d refactored (added abstract superclass) Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	1386	createWorkspace
5547 65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1387	\|ws\|
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1388
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1389	ws := (HVScrollableView for:Workspace).
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1390	ws autoDefineVariables:autoDefineVariables.
65af7af97085 initial value of #autoDefine was not set correctly Claus Gittinger <cg@exept.de> parents: 5490 diff changeset	1391	^ ws
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1392	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1393
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1394	isModifiedWorkspace:aView
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1395	\|view\|
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1396
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1397	view := self workspaceViewOfView:aView.
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1398
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1399	(view isNil
a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1400	or:[view modified not
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1401	or:[view contentsWasSaved
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1402	or:[view contents withoutSeparators isEmpty]]]) ifTrue:[
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1403	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1404	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1405	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1406	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1407
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1408	lastDoItsString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1409	\|history\|
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1410
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1411	history := Workspace doItHistory.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1412	history size > 0 ifFalse:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1413	self selectedWorkspacesTextView flash.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1414	^ nil
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1415	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1416	^ history first
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1417	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1418
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1419	syntaxNameForCompilerClass:aClass
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1420	aClass == Compiler ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1421	^ #Smalltalk
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1422	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1423	aClass == JavaScriptCompiler ifTrue:[
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1424	^ #JavaScript
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1425	].
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1426	^ #Smalltalk
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1427	!
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1428
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1429	workspaceSelectionChanged
5855 a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	1430	\|compilerClass selectedWorkspace\|
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1431
729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1432	super workspaceSelectionChanged.
5855 a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	1433	selectedWorkspace := self selectedWorkspace.
a91fbf8b707c * empty log message * Claus Gittinger <cg@exept.de> parents: 5852 diff changeset	1434	compilerClass := selectedWorkspace isNil ifTrue:[Compiler] ifFalse:[selectedWorkspace compilerClass].
5852 729c4b42a98e syntax setting Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1435	self syntaxHolder setValue:(self syntaxNameForCompilerClass:compilerClass).
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1436	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1437
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438	!WorkspaceApplication class methodsFor:'documentation'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1439
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1440	version
6353 b9e2940b7714 * empty log message * Claus Gittinger <cg@exept.de> parents: 6323 diff changeset	1441	^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.102 2005-07-13 15:43:57 cg Exp $'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1442	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 13 Jul 2005 17:44:48 +0200
changeset 6353	b9e2940b7714
parent 6323	26e8c0041993
child 6408	e0f701a20cae
permissions	-rw-r--r--