hg/stx-libtool: WorkspaceApplication.st@99d5c5f7e4b8 (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
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	ToolApplicationModel subclass:#WorkspaceApplication
3667 12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	16	instanceVariableNames:'workspaces tabList selectedWorkspaceIndexHolder workspaceHolder
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	17	autoDefineWorkspaceVariables autoDefineVariables'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	18	classVariableNames:'LastFilterBlockString LastProcessingBlockString'
3222 b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	19	poolDictionaries:''
b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	20	category:'Interface-Smalltalk'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
3191 52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	23	!WorkspaceApplication class methodsFor:'documentation'!
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	24
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	25	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	26	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	27	COPYRIGHT (c) 2001 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	28	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	29
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	30	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	31	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	32	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	33	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	34	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	35	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	36	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	37	!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5098 diff changeset	38
3191 52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	39	documentation
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	40	"
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	41	A simple wrapper around a WorkSpace-View, adding a pullDown menu.
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	42
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	43	[author:]
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	44	Claus Gittinger
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	45	"
52879128b8a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3160 diff changeset	46	! !
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	!WorkspaceApplication class methodsFor:'interface specs'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	"This resource specification was automatically generated
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	by the UIPainter of ST/X."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	"Do not manually edit this!! If it is corrupted,
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	the UIPainter may not be able to read the specification."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	UIPainter new openOnClass:WorkspaceApplication andSelector:#windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	WorkspaceApplication new openInterface:#windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	WorkspaceApplication open
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	<resource: #canvas>
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	^
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	#(#FullSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	#name: #windowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	#window:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	#(#WindowSpec
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	#label: 'Workspace'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	#name: 'Workspace'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	#min: #(#Point 10 10)
3845 b4baee71ee18 no max size Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	73	#bounds: #(#Rectangle 13 23 445 264)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	#menu: #mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	#component:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	#(#SpecCollection
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	#collection: #(
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	79	#(#NoteBookViewSpec
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	80	#name: 'NoteBook1'
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	81	#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	82	#model: #selectedWorkspaceIndexHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	83	#menu: #tabList
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	84	#useIndex: true
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	85	#accessTabMenuAction: #tabMenuAt:
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	86	#canvas: #workspaceHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	87	#canvasInset: 0
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	88	#canvasFrameLevel: 0
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	89	#keepCanvasAlive: true
4369 9b496f6aa2a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4359 diff changeset	90	#tabLevel: 1
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	91	)
3154 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
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	!WorkspaceApplication class methodsFor:'menu specs'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	"This resource specification was automatically generated
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	by the MenuEditor of ST/X."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	"Do not manually edit this!! If it is corrupted,
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	the MenuEditor may not be able to read the specification."
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	MenuEditor new openOnClass:WorkspaceApplication andSelector:#mainMenu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication mainMenu)) startUp
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	<resource: #menu>
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	^
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	#(#Menu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	#(
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	#label: 'File'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	#submenu:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	#(#Menu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	#(
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	#(#MenuItem
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	124	#label: 'New Workspace'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	125	#itemValue: #newWorkspace
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	#translateLabel: true
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	127	)
65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	128	#(#MenuItem
65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	129	#label: 'New SystemWorkspace'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	130	#itemValue: #newSystemWorkspace
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	131	#translateLabel: true
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	#label: '-'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	#label: 'Load File...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	138	#itemValue: #menuLoad
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	#label: '-'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	#label: 'Save As...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	146	#itemValue: #menuSaveAs
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	#(#MenuItem
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	150	#enabled: #hasMultipleBuffersHolder
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	151	#label: 'Save all As...'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	152	#itemValue: #menuSaveAllAs
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	153	#translateLabel: true
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	154	)
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	155	#(#MenuItem
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	#label: '-'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	#label: 'Exit'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	160	#itemValue: #closeRequest
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	)
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	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	#(#MenuItem
3736 687a0a8de66c * empty log message * Claus Gittinger <cg@exept.de> parents: 3722 diff changeset	169	#label: 'Buffers'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	170	#nameKey: #Buffer
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	171	#translateLabel: true
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	172	#submenu:
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	173	#(#Menu
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	174	#(
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	175	#(#MenuItem
3222 b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	176	#label: 'Add Buffer'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	177	#itemValue: #addWorkspace
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	178	#translateLabel: true
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	179	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	180	#(#MenuItem
4098 aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	181	#enabled: #anyWorkspaceVariableIsDefined
aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	182	#label: 'Add Buffer on Workspace Variables'
aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	183	#itemValue: #addWorkspaceVariableInspector
aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	184	#translateLabel: true
aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	185	)
aadc513a6f37 checkin from browser Claus Gittinger <cg@exept.de> parents: 4096 diff changeset	186	#(#MenuItem
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	187	#label: 'Add Buffer on Global Variables'
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	188	#itemValue: #addGlobalVariableInspector
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	189	#translateLabel: true
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	190	)
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	191	#(#MenuItem
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	192	#label: 'Rename...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	193	#itemValue: #renameWorkspace
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	194	#translateLabel: true
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	195	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	196	#(#MenuItem
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	197	#label: '-'
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	198	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	199	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	200	#enabled: #canRemoveWorkspace
3222 b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	201	#label: 'Remove Buffer'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	202	#itemValue: #removeWorkspace
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	203	#translateLabel: true
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	)
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	nil
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	208	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	209	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	210	#(#MenuItem
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	#label: 'Edit'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	#submenu:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	#(#Menu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	#(
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	217	#enabled: #hasSelectionInActiveWorkspace
4591 083328c16498 editMenu: order is cut-copy-paste (as in windows) Claus Gittinger <cg@exept.de> parents: 4542 diff changeset	218	#label: 'Cut'
083328c16498 editMenu: order is cut-copy-paste (as in windows) Claus Gittinger <cg@exept.de> parents: 4542 diff changeset	219	#itemValue: #cutSelection
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	223	#enabled: #hasSelectionInActiveWorkspace
4591 083328c16498 editMenu: order is cut-copy-paste (as in windows) Claus Gittinger <cg@exept.de> parents: 4542 diff changeset	224	#label: 'Copy'
083328c16498 editMenu: order is cut-copy-paste (as in windows) Claus Gittinger <cg@exept.de> parents: 4542 diff changeset	225	#itemValue: #copySelection
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	#label: 'Paste'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	230	#itemValue: #paste
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	)
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	233	#(#MenuItem
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	234	#enabled: #hasHistory
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	235	#label: 'Paste Last'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	236	#itemValue: #pasteLastDoIt
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	237	#translateLabel: true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	238	#submenuChannel: #pasteRecentDoItMenu
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	239	)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	240	#(#MenuItem
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	241	#label: '-'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	242	)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	243	#(#MenuItem
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	244	#label: 'Select All'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	245	#itemValue: #selectAll
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	246	#translateLabel: true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	247	)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	248	#(#MenuItem
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	249	#label: '-'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	250	)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	251	#(#MenuItem
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	252	#label: 'Filter Text...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	253	#itemValue: #filterText
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	254	#translateLabel: true
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	255	)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	256	#(#MenuItem
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	257	#label: 'Process Text...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	258	#itemValue: #processText
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	259	#translateLabel: true
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	260	)
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	261	#(#MenuItem
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	262	#label: '-'
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	263	)
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	264	#(#MenuItem
4829 1ba6f569e4dd menu label Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	265	#label: 'Web Services'
4480 defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	266	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	267	#submenu:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	268	#(#Menu
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	269	#(
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	270	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	271	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	272	#label: 'Google Spell'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	273	#itemValue: #googleSpellingSuggestion
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	274	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	275	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	276	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	277	#label: 'Translate'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	278	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	279	#submenu:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	280	#(#Menu
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	281	#(
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	282	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	283	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	284	#label: 'English -> German'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	285	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	286	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	287	#argument: 'en_de'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	288	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	289	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	290	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	291	#label: 'English -> French'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	292	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	293	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	294	#argument: 'en_fr'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	295	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	296	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	297	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	298	#label: 'English -> Spanish'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	299	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	300	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	301	#argument: 'en_es'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	302	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	303	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	304	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	305	#label: 'English -> Portuguese'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	306	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	307	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	308	#argument: 'en_pt'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	309	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	310	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	311	#label: '-'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	312	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	313	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	314	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	315	#label: 'German -> English'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	316	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	317	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	318	#argument: 'de_en'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	319	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	320	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	321	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	322	#label: 'French -> English'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	323	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	324	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	325	#argument: 'fr_en'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	326	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	327	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	328	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	329	#label: 'Spanish -> English'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	330	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	331	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	332	#argument: 'es_en'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	333	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	334	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	335	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	336	#label: 'Portuguese -> English'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	337	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	338	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	339	#argument: 'pt_en'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	340	)
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	341	#(#MenuItem
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	342	#enabled: #hasSelectionInActiveWorkspace
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	343	#label: 'Russian -> English'
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	344	#itemValue: #babelFishTranslate:
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	345	#translateLabel: true
defa79bbdaaa translation service Claus Gittinger <cg@exept.de> parents: 4474 diff changeset	346	#argument: 'ru_en'
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	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	#(#MenuItem
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	364	#label: 'Workspace'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	365	#translateLabel: true
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	366	#submenu:
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	367	#(#Menu
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	368	#(
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	369	#(#MenuItem
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	370	#label: 'Add Workspace Variable...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	371	#itemValue: #addWorkspaceVariable
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	372	#translateLabel: true
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	373	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	374	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	375	#enabled: #anyWorkspaceVariableIsDefined
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	376	#label: 'Remove Workspace Variable...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	377	#itemValue: #removeWorkspaceVariable
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	378	#translateLabel: true
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	379	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	380	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	381	#enabled: #anyWorkspaceVariableIsDefined
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	382	#label: 'Remove all Workspace Variables...'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	383	#itemValue: #removeAllWorkspaceVariables
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	384	#translateLabel: true
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	385	)
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	386	#(#MenuItem
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	387	#label: '-'
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	388	)
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	389	#(#MenuItem
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	390	#enabled: #anyWorkspaceVariableIsDefined
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	391	#label: 'Inspect Workspace Variables'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	392	#itemValue: #inspectWorkspaceVariables
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	393	#translateLabel: true
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	394	)
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	395	#(#MenuItem
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	396	#label: '-'
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	397	)
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	398	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	399	#label: 'Settings'
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	400	#translateLabel: true
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	401	#submenu:
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	402	#(#Menu
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	403	#(
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	404	#(#MenuItem
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	405	#label: 'Autodefine as Workspace Variable'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	406	#translateLabel: true
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	407	#hideMenuOnActivated: false
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	408	#choice: #autoDefineVariables
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	409	#choiceValue: #workspace
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	410	)
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	411	#(#MenuItem
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	412	#label: 'Autodefine as DoIt Variable'
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	413	#translateLabel: true
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	414	#hideMenuOnActivated: false
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	415	#choice: #autoDefineVariables
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	416	#choiceValue: #doIt
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	417	)
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	418	#(#MenuItem
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	419	#label: 'Autodefine off'
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	420	#translateLabel: true
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	421	#hideMenuOnActivated: false
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	422	#choice: #autoDefineVariables
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	423	)
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	424	)
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	425	nil
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	426	nil
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	427	)
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	428	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	429	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	430	nil
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	431	nil
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	432	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	433	)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	434	#(#MenuItem
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435	#label: 'Smalltalk'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	437	#submenu:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438	#(#Menu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	#(
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	441	#enabled: #hasSelectionInActiveWorkspace
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442	#label: 'DoIt'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	443	#itemValue: #doIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	445	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	447	#enabled: #hasSelectionInActiveWorkspace
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	#label: 'PrintIt'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	449	#itemValue: #printIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	452	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	453	#enabled: #hasSelectionInActiveWorkspace
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	454	#label: 'InspectIt'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	455	#itemValue: #inspectIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459	#label: '-'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461	#(#MenuItem
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	462	#enabled: #hasHistory
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	463	#label: 'Redo Last'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	464	#itemValue: #redoLastDoIt
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	465	#translateLabel: true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	466	#submenuChannel: #redoRecentDoItMenu
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	467	)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	468	#(#MenuItem
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	469	#label: '-'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	470	)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	471	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	472	#enabled: #hasSelectionInActiveWorkspace
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	473	#label: 'TimeIt'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	474	#itemValue: #timeIt
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	475	#translateLabel: true
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	476	)
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	477	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	478	#enabled: #hasSelectionInActiveWorkspace
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	479	#label: 'SpyOnIt'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	480	#itemValue: #spyOnIt
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	481	#translateLabel: true
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	482	)
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	483	#(#MenuItem
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	484	#label: '-'
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	485	)
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	486	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	487	#enabled: #hasSelectionInActiveWorkspace
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	488	#label: 'Browse Class'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	489	#itemValue: #browseIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	)
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	492	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	493	#enabled: #hasSelectionInActiveWorkspace
3710 07c3b3d5f941 menu Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	494	#label: 'Browse Implementors of It'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	495	#itemValue: #browseImplementorsOfIt
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	496	#translateLabel: true
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	497	)
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	498	#(#MenuItem
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	499	#enabled: #hasSelectionInActiveWorkspace
3710 07c3b3d5f941 menu Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	500	#label: 'Browse References to It'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	501	#itemValue: #browseReferencesToIt
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	502	#translateLabel: true
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	503	)
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	504	#(#MenuItem
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	505	#label: '-'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	506	)
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	507	#(#MenuItem
5262 99d5c5f7e4b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5261 diff changeset	508	#label: 'FileIn Text'
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	509	#itemValue: #fileInText
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	510	#translateLabel: true
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	511	)
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	512	#(#MenuItem
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	513	#label: '-'
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	514	)
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	515	#(#MenuItem
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	516	#label: 'Add Global Variable...'
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	517	#itemValue: #addGlobalVariable
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	518	#translateLabel: true
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	519	)
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	520	#(#MenuItem
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	521	#label: 'Remove Global Variable...'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	522	#itemValue: #removeGlobalVariable
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	523	#translateLabel: true
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	524	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	527	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	530	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531	#label: 'Help'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	532	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533	#startGroup: #right
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	534	#submenu:
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535	#(#Menu
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	#(
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	#label: 'Documentation'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	539	#itemValue: #openDocumentation
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542	#(#MenuItem
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543	#label: '-'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	#(#MenuItem
3282 c871f7928ff2 menu label Claus Gittinger <cg@exept.de> parents: 3236 diff changeset	546	#label: 'About this Application...'
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	547	#itemValue: #openAboutThisApplication
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548	#translateLabel: true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555	)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	nil
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	)
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	559	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	560
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	561	tabMenu
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	562	"This resource specification was automatically generated
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	563	by the MenuEditor of ST/X."
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	564
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	565	"Do not manually edit this!! If it is corrupted,
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	566	the MenuEditor may not be able to read the specification."
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	567
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	568	"
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	569	MenuEditor new openOnClass:WorkspaceApplication andSelector:#tabMenu
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	570	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication tabMenu)) startUp
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	571	"
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	572
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	573	<resource: #menu>
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	574
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	575	^
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	576	#(#Menu
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	577	#(
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	578	#(#MenuItem
3222 b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	579	#label: 'Add Buffer'
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	580	#translateLabel: true
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	581	"/ #triggerOnDown: true
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	582	#value: #addWorkspace
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	583	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	584	#(#MenuItem
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	585	#label: 'Rename...'
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	586	#translateLabel: true
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	587	"/ #triggerOnDown: true
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	588	#value: #renameWorkspace:
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	589	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	590	#(#MenuItem
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	591	#label: '-'
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	592	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	593	#(#MenuItem
3222 b95c86b3b511 checkin from browser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	594	#label: 'Remove Buffer'
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	595	#translateLabel: true
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	596	"/ #triggerOnDown: true
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	597	#value: #removeWorkspace:
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	598	#enabled: #canRemoveWorkspace:
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	)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	601	nil
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	602	nil
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	603	)
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	606	!WorkspaceApplication class methodsFor:'special startup'!
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	607
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	608	openSystemWorkspace
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	609	\|wsApp licenceView path needRemove\|
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	610
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	611	needRemove := true.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	612
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	613	wsApp := self new.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	614	wsApp allButOpen.
3337 46dd799d3446 * empty log message * Claus Gittinger <cg@exept.de> parents: 3336 diff changeset	615	wsApp window extent:640@400.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	616
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	617	path := (Smalltalk getSystemFileName:'README') ? '../../README'.
3532 e38c9dd404a2 care for missing workspace files Claus Gittinger <cg@exept.de> parents: 3507 diff changeset	618	(path notNil and:[path asFilename exists]) ifTrue:[
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	619	wsApp addWindow:(HVScrollableView for:Workspace) named:'README' asFirst:false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	620	wsApp loadFile:path.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	621	wsApp removeWorkspace:1. "/ the original Workspace
4183 029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	622	wsApp renameWorkspace:1 to:'LICENCE README'.
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	623	needRemove := false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	624	].
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	625
3346 6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	626	"/ 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	627	"/ path asFilename exists ifTrue:[
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	628	"/ wsApp addWindow:(licenceView := HVScrollableView for:HTMLDocumentView) named:'License' asFirst:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	629	"/ licenceView homeDocument:'../../doc/online/english/LICENCE_STX.html'.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	630	"/ licenceView updateLabelFlag:false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	631	"/ needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	632	"/ needRemove := false.
6655b8c0241d x Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	633	"/ ].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	634
4985 8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	635	path := (Smalltalk getSystemFileName:'GettingStarted.wsp').
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	636	(path notNil and:[path asFilename exists]) ifTrue:[
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	637	wsApp addWindow:(HVScrollableView for:Workspace) named:'Getting Started' asFirst:false.
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	638	wsApp loadFile:path.
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	639	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	640	needRemove := false.
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	641	].
8d39e69b91c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4829 diff changeset	642
3347 ee907655178a * empty log message * Claus Gittinger <cg@exept.de> parents: 3346 diff changeset	643	path := (Smalltalk getSystemFileName:'Keyboard.wsp').
3532 e38c9dd404a2 care for missing workspace files Claus Gittinger <cg@exept.de> parents: 3507 diff changeset	644	(path notNil and:[path asFilename exists]) ifTrue:[
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	645	wsApp addWindow:(HVScrollableView for:Workspace) named:'Keyboard' asFirst:false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	646	wsApp loadFile:path.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	647	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	648	needRemove := false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	649	].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	650
4183 029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	651	path := (Smalltalk getSystemFileName:'Setup.wsp').
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	652	(path notNil and:[path asFilename exists]) ifTrue:[
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	653	wsApp addWindow:(HVScrollableView for:Workspace) named:'Setup' asFirst:false.
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	654	wsApp loadFile:path.
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	655	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	656	needRemove := false.
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	657	].
029eae063c6e another info view Claus Gittinger <cg@exept.de> parents: 4154 diff changeset	658
3347 ee907655178a * empty log message * Claus Gittinger <cg@exept.de> parents: 3346 diff changeset	659	path := (Smalltalk getSystemFileName:'Hello.wsp').
3532 e38c9dd404a2 care for missing workspace files Claus Gittinger <cg@exept.de> parents: 3507 diff changeset	660	(path notNil and:[path asFilename exists]) ifTrue:[
3345 7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	661	wsApp addWindow:(HVScrollableView for:Workspace) named:'Welcome' asFirst:false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	662	wsApp loadFile:path.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	663	needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	664	needRemove := false.
7ddc24baa0b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	665	].
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	666
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	667	wsApp openWindow
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	668
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	669	"
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	670	self openSystemWorkspace
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	671	"
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	672	!
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	673
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	674	openWith:initialText
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	675	"launch a new workspace with some initial contents"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	676
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	677	^ self openWith:initialText selected:false
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	678
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	679	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	680	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	681	"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	682	!
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	683
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	684	openWith:initialText selected:selectedBoolean
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	685	"launch a new workspace with some initial contents"
663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	686
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	687	\|workspace\|
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	688
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	689	workspace := self new.
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	690	workspace open.
5098 663519a20afd * empty log message * Claus Gittinger <cg@exept.de> parents: 4985 diff changeset	691	workspace selectedWorkspace contents:initialText selected:selectedBoolean.
4542 1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	692	^ workspace
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	693
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	694	"
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	695	WorkspaceApplication openWith:'Transcript showCR:''hello world'''
1881967c7262 * empty log message * Claus Gittinger <cg@exept.de> parents: 4509 diff changeset	696	"
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	697	! !
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	698
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	!WorkspaceApplication methodsFor:'accessing'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	701	selectedWorkspace
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	702	\|wsIndex\|
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	703
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	704	workspaces isNil ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	705	workspaces := OrderedCollection new.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	706	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	707	wsIndex := self selectedWorkspaceIndexHolder value.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	708	wsIndex == 0 ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	709	^ nil
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	710	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	711
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	712	workspaces size < wsIndex ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	713	workspaces grow:wsIndex.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	714	workspaces at:wsIndex put:(HVScrollableView for:Workspace).
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	715	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	716	^ workspaces at:wsIndex
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	717	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	718
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	719	tabMenuAt:index
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	720	\|m i ws\|
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	721
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	722	m := self class tabMenu.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	723	m := m decodeAsLiteralArray.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	724	i := m detectItem:[:item \| item value == #removeWorkspace:] ifNone:nil.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	725	i notNil ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	726	i argument:index.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	727	index ~~ self selectedWorkspaceIndexHolder value ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	728	"/ for now: if that buffer is modified,
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	729	"/ do not allow removing.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	730	"/ (must be brought to front, in order for check-for-modification to work)
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	731	ws := workspaces at:index.
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	732	(ws isKindOf:ScrollableView) ifTrue:[
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	733	ws := ws scrolledView
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	734	].
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	735	((ws isKindOf:TextView) not
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	736	or:[ ws modified ])
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	737	ifTrue:[
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	738	i disable
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	739	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	740	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	741	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	742	i := m detectItem:[:item \| item value == #renameWorkspace:] ifNone:nil.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	743	i notNil ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	744	i argument:index.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	745	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	746
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	747	m findGuiResourcesIn:self.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	748	^ m
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	749	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	750
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	751	workspaceHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	752	workspaceHolder isNil ifTrue:[
3207 88ed12ce69a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 3198 diff changeset	753	workspaceHolder := ValueHolder with:(self selectedWorkspace).
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	754	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	755	^ workspaceHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	756	! !
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	757
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	758	!WorkspaceApplication methodsFor:'aspects'!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	759
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	760	autoDefineVariables
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	761	autoDefineVariables isNil ifTrue:[
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	762	autoDefineVariables := ValueHolder new.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	763	(UserPreferences current autoDefineWorkspaceVariables) ifTrue:[
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	764	autoDefineVariables value:#workspace
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	765	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	766	autoDefineVariables onChangeSend:#autoDefineVariablesChanged to:self.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	767	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	768	^ autoDefineVariables.
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
3667 12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	771	autoDefineWorkspaceVariables
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	772	"does not work yet - needs more interaction with parser"
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	773
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	774	autoDefineWorkspaceVariables isNil ifTrue:[
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	775	autoDefineWorkspaceVariables := UserPreferences current autoDefineWorkspaceVariables asValue.
3667 12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	776	autoDefineWorkspaceVariables onChangeSend:#autoDefineWorkspaceVariablesChanged to:self.
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	777	].
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	778	^ autoDefineWorkspaceVariables.
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	779	!
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	780
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	781	hasHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	782	^ Workspace doItHistory size > 0.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	783	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	784
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	785	selectedWorkspaceIndexHolder
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	786	selectedWorkspaceIndexHolder isNil ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	787	selectedWorkspaceIndexHolder := 1 asValue.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	788	selectedWorkspaceIndexHolder onChangeSend:#workspaceSelectionChanged to:self.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	789	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	790	^ selectedWorkspaceIndexHolder.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	791	!
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	tabList
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	794	tabList isNil ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	795	tabList := List new.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	796	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	797	^ tabList.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	798	! !
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	799
4358 b0023a5ca3b8 category change Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	800	!WorkspaceApplication methodsFor:'aspects-queries'!
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	801
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	802	anyWorkspaceVariableIsDefined
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	803	^ Workspace workspaceVariables size > 0
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	804	!
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	805
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	806	canRemoveWorkspace
3214 4c8ec2041cdb * empty log message * Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	807	^ self canRemoveWorkspace:(self selectedWorkspaceIndexHolder value)
4c8ec2041cdb * empty log message * Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	808	!
4c8ec2041cdb * empty log message * Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	809
4c8ec2041cdb * empty log message * Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	810	canRemoveWorkspace:idx
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	811	^ self tabList size > 1
3214 4c8ec2041cdb * empty log message * Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	812	"/ and:[ (self workspacesTextViewAt:(self selectedWorkspaceIndexHolder value))
3391 09fd110d1ea4 disable menu items; check for nothing selected Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	813	!
09fd110d1ea4 disable menu items; check for nothing selected Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	814
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	815	hasMultipleBuffersHolder
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	816	^ [ workspaces size > 1 ]
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	817	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	818
3391 09fd110d1ea4 disable menu items; check for nothing selected Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	819	hasSelectionInActiveWorkspace
09fd110d1ea4 disable menu items; check for nothing selected Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	820	^ self selectedWorkspacesTextView selectionAsString size > 0
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823	!WorkspaceApplication methodsFor:'initialization & release'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	824
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825	closeRequest
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	826	(self askIfAnyModified:'Text was not saved. Close anyway ?' yesButton:'Close') ifFalse:[
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	^ self
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828	].
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	^ super closeRequest
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832
4359 35995cc972f7 category change Claus Gittinger <cg@exept.de> parents: 4358 diff changeset	833	!WorkspaceApplication methodsFor:'menu-actions'!
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	835	addGlobalVariable
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	836	\|name nameKey selection\|
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	837
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	838	selection := self selectedWorkspacesTextView selection ? ''.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	839
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	840	name := Dialog
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	841	request:'Name of new Global Variable:'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	842	initialAnswer:(selection asString string)
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	843	okLabel:'Add'
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	844	title:'Enter Variable Name'.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	845	name size == 0 ifTrue:[
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	846	^ self
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	847	].
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	848	nameKey := name asSymbol.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	849
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	850	(Smalltalk includesKey:nameKey) ifTrue:[
4154 d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	851	self warn:'Global named ''' , name , ''' already exists.'.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	852	^ self.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	853	].
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	854	Smalltalk at:nameKey put:nil.
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	855	!
d243b609e104 +addGlobal in menu Claus Gittinger <cg@exept.de> parents: 4141 diff changeset	856
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	857	addGlobalVariableInspector
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	858	\|v\|
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	859
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	860	v := self addInspectorOn:(Smalltalk) basic:false suppressPseudoSlots:true.
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	861	v fieldListLabel:'Name'.
4208 84260a3d6e20 checkin from browser Claus Gittinger <cg@exept.de> parents: 4183 diff changeset	862	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Globals (Smalltalk)'.
4099 a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	863	!
a7967641f3d7 global variables Claus Gittinger <cg@exept.de> parents: 4098 diff changeset	864
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	865	addInspectorOn:aValue basic:isBasicInspector suppressPseudoSlots:suppressPseudoSlots
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	866	\|view cls resultString\|
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	867
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	868	isBasicInspector ifFalse:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	869	cls := aValue inspectorClass.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	870	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	871	cls isNil ifTrue:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	872	cls := InspectorView
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	873	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	874	view := cls new.
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	875	view suppressPseudoSlots:suppressPseudoSlots.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	876	view inspect:aValue.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	877	"/ v allowFollow:true.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	878	aValue isBehavior ifTrue:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	879	resultString := aValue name
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	880	] ifFalse:[
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	881	resultString := aValue classNameWithArticle
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	882	].
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	883	self addWindow:view named:('Inspecting: ' , resultString).
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	884	^ view
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	885	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	886
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	887	addWindow:aWindow named:name
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	888	^ self addWindow:aWindow named:name asFirst:false
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	889	!
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	890
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	891	addWindow:aWindow named:name asFirst:asFirst
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	892	\|tabList wsIndex newSelectedIndex\|
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	893
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	894	tabList := self tabList.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	895	wsIndex := tabList size + 1.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	896	wsIndex == 1 ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	897	"/ first - add a name for the first tab
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	898	tabList add:(self window label). "/ 'Workspace'.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	899	wsIndex := wsIndex + 1.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	900	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	901
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	902	workspaces grow:wsIndex.
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	903	asFirst ifTrue:[
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	904	tabList addFirst:(name bindWith:wsIndex).
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	905	workspaces replaceFrom:2 to:wsIndex with:workspaces startingAt:1.
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	906	newSelectedIndex := 1.
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	907	] ifFalse:[
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	908	tabList addLast:(name bindWith:wsIndex).
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	909	newSelectedIndex := wsIndex.
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	910	].
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	911	workspaces at:newSelectedIndex put:aWindow.
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	912	self selectedWorkspaceIndexHolder value:newSelectedIndex.
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	913	"/ workspaceHolder value:aWindow.
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	914	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	915
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	916	addWorkspace
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	917	self addWindow:(HVScrollableView for:Workspace) named:'Workspace%1'
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	918	!
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	919
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	920	addWorkspaceVariable
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	921	\|name selection\|
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	922
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	923	selection := self selectedWorkspacesTextView selection ? ''.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	924
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	925	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	926	request:'Name of new Workspace Variable:'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	927	initialAnswer:(selection asString string)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	928	okLabel:'Add'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	929	title:'Enter Variable Name'.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	930	name size == 0 ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	931	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	932	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	933	Workspace addWorkspaceVariable:name.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	934	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	935
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	936	addWorkspaceVariableInspector
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	937	\|v\|
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	938
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	939	v := self addInspectorOn:(Workspace workspaceVariables) basic:false suppressPseudoSlots:true.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	940	v dereferenceValueHolders:true.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	941	v fieldListLabel:'Name'.
1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	942	self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Variables'.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	943	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	944
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	945	askForFilterBlock:message template:template rememberIn:nameOfClassVar
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	946	\|filterBlockString filterBlock dialog textHolder classVarValue\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	947
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	948	classVarValue := self class classVarAt:nameOfClassVar ifAbsent:nil.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	949	classVarValue isNil ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	950	self class classVarAt:nameOfClassVar put:template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	951	classVarValue := template.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	952	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	953
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	954	textHolder := ValueHolder new.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	955	dialog := Dialog
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	956	forRequestText:(resources string:message)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	957	lines:25
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	958	columns:70
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	959	initialAnswer:classVarValue
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	960	model:textHolder.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	961	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	962	dialog open.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	963	dialog accepted ifFalse:[^ nil].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	964
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	965	filterBlockString := textHolder value.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	966	self class classVarAt:nameOfClassVar put:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	967
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	968	filterBlock := Parser evaluate:filterBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	969	filterBlock isBlock ifFalse:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	970	self halt:'oops - bad input'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	971	^ nil
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	972	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	973
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	974	^ filterBlock
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	975	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	976
4474 92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	977	autoDefineVariablesChanged
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	978	\|autoDefine\|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	979
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	980	autoDefine := autoDefineVariables value.
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	981	UserPreferences current autoDefineWorkspaceVariables:(autoDefine == #workspace).
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	982	workspaces do:[:each \|
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	983	each autoDefineVariables:autoDefine
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	984	].
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	985	!
92facdb5ecc4 autoDefine as doIt added Claus Gittinger <cg@exept.de> parents: 4369 diff changeset	986
3667 12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	987	autoDefineWorkspaceVariablesChanged
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	988	"does not work yet - needs more interaction with parser"
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	989
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	990	\|doAutoDefine\|
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	991
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	992	doAutoDefine := autoDefineWorkspaceVariables value.
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	993	UserPreferences current autoDefineWorkspaceVariables:doAutoDefine.
3667 12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	994	workspaces do:[:each \|
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	995	each autoDefineWorkspaceVariables:doAutoDefine
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	996	].
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	997	!
12a7d71a6d3e * empty log message * Claus Gittinger <cg@exept.de> parents: 3651 diff changeset	998
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	999	basicInspectIt
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1000	self inspectIt:true
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1001	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1002
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1003	browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1004	self selectedWorkspacesTextView browseImplementorsOfIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1005	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1006
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	browseIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1008	self selectedWorkspacesTextView browseIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010
3383 fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1011	browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1012	self selectedWorkspacesTextView browseReferencesToIt
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1013	!
fb3b6909bd1a + browseReferencesToIt & browserImplementorsOfIt Claus Gittinger <cg@exept.de> parents: 3347 diff changeset	1014
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1015	clearHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1016	Workspace clearDoItHistory
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1017	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1018
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	doIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1020	self selectedWorkspacesTextView doIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023	inspectIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1024	self inspectIt:false
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1025	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1026
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1027	inspectIt:isBasicInspector
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1028	\|ws\|
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1029
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1030	ws := self selectedWorkspacesTextView.
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1031	ws
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1032	do:(ws selection)
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1033	withValueDo:[:result \|
4096 1c393b3edbcd Workspace-Variable inspector Claus Gittinger <cg@exept.de> parents: 4086 diff changeset	1034	self addInspectorOn:result basic:isBasicInspector suppressPseudoSlots:false
3196 86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1035	]
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1036
86540e27b2e0 inspecting Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	1037	"/ self selectedWorkspace inspectIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1040	inspectWorkspaceVariables
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1041	\|wsvars\|
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1042
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1043	wsvars := Workspace workspaceVariables.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1044	wsvars size == 0 ifTrue:[
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1045	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1046	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1047	].
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1048	wsvars inspect
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1049	!
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1050
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1051	loadFile:aFileName
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1052	\|file ws lbl\|
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1053
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1054	file := aFileName asFilename.
5196 13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1055	file exists ifFalse:[
13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1056	Dialog warn:'File ',file asString,' does not exist'.
13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1057	^ self
13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1058	].
13f6e4eaac91 fix #loadFile: check if file exists Michael Beyl <mb@exept.de> parents: 5140 diff changeset	1059
3507 5020f3e4492f checkin from browser Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	1060	(ws := self selectedWorkspacesTextView) contents:file contents.
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1061	ws modified:false.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1062
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1063	lbl := file withoutSuffix baseName.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1064	tabList size <= 1 ifTrue:[
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1065	self window label:lbl.
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1066	] ifFalse:[
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1067	tabList at:self selectedWorkspaceIndexHolder value put:lbl
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1068	]
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1069	!
91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1070
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071	menuLoad
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1072	\|file\|
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1073
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1074	(self askIfModified:'Text was modified. Load anyway ?' yesButton:'Load') ifFalse:[ ^ self].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1075
4602 a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1076	file := Dialog requestFileName:'Load file' default:'file.wsp' pattern:'*.wsp'.
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1077	file size > 0 ifTrue:[
3332 91e39add4561 * empty log message * Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	1078	self loadFile:file
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079	]
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1082	menuSaveAllAs
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1083	self
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1084	askForFile:'Save all Buffers into:'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1085	thenDo:[:file :doAppend \|
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1086	\|ws append\|
3473 1120657c3d2e added Append-option to saveAs Claus Gittinger <cg@exept.de> parents: 3469 diff changeset	1087
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1088	append := doAppend.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1089	workspaces do:[:subView \|
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1090	\|ws\|
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1092	ws := self workspaceViewOfView:subView.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1093	ws notNil ifTrue:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1094	ws saveAs:file doAppend:append.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1095	ws modified:false.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1096	].
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1097	append := true.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1098	].
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1099	]
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1100	!
3473 1120657c3d2e added Append-option to saveAs Claus Gittinger <cg@exept.de> parents: 3469 diff changeset	1101
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1102	menuSaveAs
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1103	self
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1104	askForFile:'Save Buffer into:'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1105	thenDo:[:file :doAppend \|
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1106	\|ws\|
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1107
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1108	ws := self selectedWorkspacesTextView.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1109	ws saveAs:file doAppend:doAppend.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1110	ws modified:false.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1111	]
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1114	newSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1115	self class openSystemWorkspace
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1116	!
3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1117
3651 65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1118	newWorkspace
65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1119	self class open
65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1120	!
65c74ea6803b * empty log message * Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1121
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122	openDocumentation
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1123	"opens the documentation file"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125	self openHTMLDocument: 'tools/misc/TOP.html#WORKSPACE'
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1128	pasteAndExecute:aString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1129	self paste:aString.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1130	self printIt
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1131	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1132
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133	printIt
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1134	self selectedWorkspacesTextView printIt
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1135	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1136
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1137	processText
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1138	\|template filterBlock newList oldList answer nChanged changedLines flags\|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1139
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1140	template :=
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1141	'"/ general text processor;
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1142	"/ the following block should evaluate to a new line,
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1143	"/ given the original line as argument.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1144	"/ Beginner warning: Smalltalk know-how is useful here.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1145
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1146	[:line \|
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1147	"/ any processing on line.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1148	"/ 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	1149	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1150	"/ Useful operations on the line are:
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1151	"/ - '' .... '' , concatenation of any prefix/suffix
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1152	"/ - leftPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1153	"/ - rightPaddedTo:size padding
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1154	"/ - copyTo:(size min:N)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1155	"/ - asUppercase
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1156	"/ - asLowercase
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1157	"/ - withoutSeparators remove whiteSpace
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1158	"/ - asCollectionOfWords words
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1159
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1160	"/ makes everything bold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1161	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1162	"/ line allBold
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1163
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1164	"/ first word only
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1165	"/
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1166	"/ line withoutSeparators asCollectionOfWords first
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1167
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1168	"/ dummy filter (keeps all lines as-is)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1169	"/
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1170	line
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1171	]
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1172	'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1173	filterBlock := self askForFilterBlock:'Processing block:'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1174	template:template
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1175	rememberIn:#LastProcessingBlockString.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1176	filterBlock isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1177
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1178	oldList := self selectedWorkspacesTextView list.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1179	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
4141 31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1180	newList := oldList collect:[:line \| \|newLine\|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1181	newLine := line.
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1182	Error handle:[:ex \|
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1183	] do:[
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1184	newLine := filterBlock value:line
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1185	].
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1186	newLine
31db488780da * empty log message * Claus Gittinger <cg@exept.de> parents: 4136 diff changeset	1187	].
3752 79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1188	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	1189
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1190	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	1191	flags := flags select:[:flag \| flag].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1192	nChanged := flags size.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1193	nChanged == 0 ifTrue:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1194	self information:'No lines were changed.'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1195	^ self
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1196	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1197
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1198	answer := Dialog confirmWithCancel:(resources
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1199	string:'%1 lines changed. Change text ?'
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1200	with:nChanged)
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1201	labels:#( 'Cancel' 'No, Show Changed' 'Yes').
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1202	answer isNil ifTrue:[^ self].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1203	answer ifFalse:[
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1204	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	1205	changedLines := changedLines collect:[:i \| (newList at:i)].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1206	TextBox openOn:(changedLines asStringCollection) title:'Changed lines'.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1207	^ self.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1208	].
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1209
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1210	self selectedWorkspacesTextView list:newList.
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1211	!
79378c1f0faf filters and processors Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1212
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1213	redoLastDoIt
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1214	\|s\|
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1215
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1216	s := self lastDoItsString.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1217	s notNil ifTrue:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1218	self pasteAndExecute:s
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1219	]
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1220	!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1221
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1222	removeAllWorkspaceVariables
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1223	(Dialog confirm:'Do you really want to remove all Workspace Variables ?')
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1224	ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1225	Workspace removeAllWorkspaceVariables
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1226	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1227	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1228
4284 1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1229	removeGlobalVariable
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1230	\|name nameKey selection value\|
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1231
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1232	selection := self selectedWorkspacesTextView selection ? ''.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1233
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1234	name := Dialog
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1235	request:'Remove Global Variable:'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1236	initialAnswer:(selection asString string)
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1237	okLabel:'Remove'
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1238	title:'Remove Global'.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1239
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1240	name size == 0 ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1241	nameKey := name asSymbolIfInterned.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1242	nameKey isNil ifTrue:[^ self].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1243
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1244	(Smalltalk includesKey:nameKey) ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1245	self warn:('No such Global Binding: ''%1''.' bindWith:name).
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1246	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1247	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1248
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1249	value := Smalltalk at:nameKey.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1250	value notNil ifTrue:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1251	(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	1252	ifFalse:[
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1253	^ self.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1254	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1255	].
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1256	Smalltalk at:nameKey put:nil.
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1257	Smalltalk removeKey:nameKey
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1258	!
1fd90359b703 addGlobal fixed; Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	1259
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1260	removeWorkspace
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1261	self removeWorkspace:(self selectedWorkspaceIndexHolder value)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1262	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1263
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1264	removeWorkspace:wsIndex
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1265	\|tabList newWsIndex\|
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1266
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1267	wsIndex == self selectedWorkspaceIndexHolder value ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1268	(self askIfModified:'Text was modified. Remove anyway ?' yesButton:'Remove') ifFalse:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1269	^ self
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1270	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1271	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1272
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1273	tabList := self tabList.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1274
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1275	wsIndex == tabList size ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1276	newWsIndex := wsIndex - 1.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1277	] ifFalse:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1278	newWsIndex := wsIndex.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1279	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1280
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1281	tabList removeIndex:wsIndex.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1282	(workspaces at:wsIndex) destroy.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1283	workspaces removeIndex:wsIndex.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1284
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1285	tabList size == 1 ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1286	self window label:(tabList at:1).
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1287	tabList removeIndex:1
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1288	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1289
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1290	workspaceHolder value:(workspaces at:newWsIndex).
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1291	self selectedWorkspaceIndexHolder value:newWsIndex.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1292	"/ to force change (update workspaceHolder - even if same index)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1293	self selectedWorkspaceIndexHolder changed:#value.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1294	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1295
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1296	removeWorkspaceVariable
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1297	\|name selection wsvars\|
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1298
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1299	wsvars := Workspace workspaceVariables.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1300	wsvars size == 0 ifTrue:[
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1301	Dialog information:'No Workspace Variables are defined'.
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1302	^ self
fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1303	].
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1304
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1305	selection := self selectedWorkspacesTextView selection ? ''.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1306
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1307	name := Dialog
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1308	request:'Variable to remove:'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1309	initialAnswer:(selection asString string)
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1310	okLabel:'Remove'
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1311	title:'Enter Variable Name'
3812 fef8f2db9662 menu item enablement Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1312	list:(wsvars keys asOrderedCollection sort).
3722 0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1313	name size == 0 ifTrue:[
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1314	^ self
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1315	].
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1316	Workspace removeWorkspaceVariable:name.
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1317	!
0a1edec5d83b * empty log message * Claus Gittinger <cg@exept.de> parents: 3710 diff changeset	1318
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1319	renameWorkspace
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1320	self renameWorkspace:(self selectedWorkspaceIndexHolder value)
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1321	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1322
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1323	renameWorkspace:wsIndex
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1324	\|tabList oldName newName\|
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1325
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1326	tabList := self tabList.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1327	tabList isEmpty ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1328	oldName := self window label
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1329	] ifFalse:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1330	oldName := tabList at:wsIndex.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1331	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1332	newName := Dialog request:(resources string:'New Name for %1:' with:oldName) initialAnswer:oldName.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1333	newName size == 0 ifTrue:[ ^ self].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1334
4086 9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1335	self renameWorkspace:wsIndex to:newName.
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1336	!
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1337
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1338	renameWorkspace:wsIndex to:newName
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1339	\|tabList\|
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1340
9f685ed7ad3f autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 4031 diff changeset	1341	tabList := self tabList.
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1342	tabList notEmpty ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1343	tabList at:wsIndex put:newName.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1344	].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1345	wsIndex == self selectedWorkspaceIndexHolder value ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1346	self window label:newName.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1347	].
3384 2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1348	!
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1349
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1350	spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1351	self selectedWorkspacesTextView spyOnIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1352	!
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1353
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1354	timeIt
2be2f7e2a417 + timeIt & spyOnIt Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	1355	self selectedWorkspacesTextView timeIt
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1358	!WorkspaceApplication methodsFor:'menu-actions-editing'!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1359
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1360	babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1361	"translate the selected text and paste it after the selection"
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1362
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1363	self selectedWorkspace babelFishTranslate:fromToModeString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1364	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1365
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1366	copySelection
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1367	self selectedWorkspacesTextView copySelection
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1368	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1369
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1370	cutSelection
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1371	self selectedWorkspacesTextView cutSelection
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1372	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1373
5261 5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1374	fileInText
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1375	self selectedWorkspacesTextView contentsAsString readStream fileIn
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1376	!
5f0d35ddca9d fileIn Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1377
4790 2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1378	filterText
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1379	\|template filterBlock newList oldList answer nDeleted deletedLines\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1380
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1381	template :=
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1382	'"/ general text filter;
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1383	"/ the following block should evaluate to true for all lines
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1384	"/ 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	1385	"/ Beginner warning: Smalltalk know-how is useful here.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1386
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1387	[:line \|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1388	"/ any condition on line.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1389	"/ 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	1390	"/ so you may want to use line string.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1391	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1392	"/ Useful queries on the line are:
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1393	"/ - size the length of the line
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1394	"/ - hasChangeOfEmphasis any bold, italic etc.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1395	"/ - startsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1396	"/ - endsWith:someString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1397
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1398	"/ example filter (removes all empty lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1399	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1400	"/ line size > 0
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1401
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1402	"/ 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	1403	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1404	"/ (line asLowercase endsWith:''foo'') not
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1405
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1406	"/ dummy filter (keeps all lines)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1407	"/
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1408	true
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1409	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1410	'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1411
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1412	filterBlock := self askForFilterBlock:'Filter block:'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1413	template:template
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1414	rememberIn:#LastFilterBlockString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1415	filterBlock isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1416
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1417	oldList := self selectedWorkspacesTextView list.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1418	oldList := oldList collect:[:lineOrNil \| lineOrNil ? ''].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1419	newList := oldList select:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1420	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	1421	nDeleted := oldList size - newList size.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1422	nDeleted == 0 ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1423	self information:'No lines were deleted.'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1424	^ self
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1425	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1426
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1427	answer := Dialog confirmWithCancel:(resources
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1428	string:'%1 lines remain (%2 deleted). Change text ?'
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1429	with:newList size
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1430	with:nDeleted)
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1431	labels:#( 'Cancel' 'No, Show Deleted' 'Yes').
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1432	answer isNil ifTrue:[^ self].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1433	answer ifFalse:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1434	deletedLines := oldList reject:filterBlock.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1435	TextBox openOn:(deletedLines asStringCollection) title:'Filtered lines'.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1436	^ self.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1437	].
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1438
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1439	self selectedWorkspacesTextView list:newList.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1440	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1441
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1442	googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1443	self selectedWorkspacesTextView googleSpellingSuggestion
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1444	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1445
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1446	paste
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1447	self selectedWorkspacesTextView paste
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1448	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1449
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1450	paste:aString
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1451	self selectedWorkspacesTextView paste:aString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1452	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1453
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1454	pasteLastDoIt
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1455	\|s\|
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1456
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1457	s := self lastDoItsString.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1458	s notNil ifTrue:[
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1459	self paste:s
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1460	]
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1461	!
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1462
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1463	selectAll
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1464	self selectedWorkspacesTextView selectAll.
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1465	! !
2fb9c342be6f checkin from browser Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	1466
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1467	!WorkspaceApplication methodsFor:'menu-dynamic'!
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1468
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1469	pasteRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1470	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1471
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1472	^ self recentDoItsMenuFor:#'paste:'
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1473	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1474
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1475	recentDoItsMenuFor:aSelector
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1476	<resource: #programMenu >
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1477
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1478	^ [
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1479	\|doIts m classHistory currentClass\|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1480
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1481	doIts := Workspace doItHistory.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1482	doIts size > 0 ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1483	m := Menu new.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1484	doIts do:[:doItEntry \|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1485	\|lines label item\|
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1486
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1487	label := doItEntry withoutLeadingSeparators asStringCollection first.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1488	(label size > 20) ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1489	label := (label contractTo:20)
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1490	] ifFalse:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1491	(lines size > 1) ifTrue:[
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1492	label := label , '...'
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1493	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1494	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1495	label := '''' , label , ''''.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1496
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1497	item := MenuItem label:label.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1498	m addItem:item.
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1499	item value:aSelector.
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1500	item argument:doItEntry.
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1501	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1502	m addItem: (MenuItem new label:'-').
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1503	m addItem: (MenuItem new
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1504	label: 'Clear History';
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1505	value: #clearHistory;
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1506	activeHelpKey: #historyEmptyMenu;
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1507	translateLabel:true).
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1508	].
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1509	m
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1510	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1511	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1512
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1513	redoRecentDoItMenu
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1514	<resource: #programMenu >
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1515
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1516	^ self recentDoItsMenuFor:#'pasteAndExecute:'
4136 6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1517	! !
6af9b93453c3 doIt history Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	1518
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1519	!WorkspaceApplication methodsFor:'private'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1520
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1521	askForFile:question thenDo:aBlock
4602 a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1522	Dialog
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1523	requestSaveFileName:(resources string:question)
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1524	default:'file.wsp'
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1525	fromDirectory:nil
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1526	action:[:fileName \| aBlock value:fileName value:false]
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1527	appendAction:[:fileName \| aBlock value:fileName value:true]
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1528
4602 a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1529	"/ \|file doAppend\|
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1530	"/
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1531	"/ doAppend := false.
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1532	"/ Dialog aboutToOpenBoxNotificationSignal handle:[:n \|
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1533	"/ \|box\|
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1534	"/
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1535	"/ box := n parameter.
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1536	"/ box addButton:(Button label:'Append' action:[doAppend := true. box okPressed]).
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1537	"/ n proceed.
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1538	"/ ] do:[
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1539	"/ file := Dialog requestFileName:question default:'file.wsp'.
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1540	"/ ].
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1541	"/ file isEmptyOrNil ifFalse:[
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1542	"/ aBlock value:file value:doAppend
a961c37bd041 better save file dialog (use new dialog vs. use old dialog) Claus Gittinger <cg@exept.de> parents: 4591 diff changeset	1543	"/ ].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1544	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1545
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1546	askIfAnyModified:question yesButton:yesButtonText
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1547	(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	1548
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1549	(Dialog
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1550	confirm:(resources string:question) withCRs
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1551	yesLabel:(resources at:yesButtonText)
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1552	noLabel:(resources at:'Cancel'))
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1553	ifTrue:[
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1554	"/ reset modified flag so question is asked only once
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1555	(workspaces select:[:aView \| (self isModifiedWorkspace:aView)])
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1556	do:[:eachModifiedTextView \|
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1557	eachModifiedTextView modified:false.
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1558	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1559	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1560	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1561	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1562	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1563
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1564	askIfModified:question yesButton:yesButtonText
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	"tell user, that code has been modified - let her confirm"
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567	\|textView\|
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1569	textView := self selectedWorkspace.
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1570	(self isModifiedWorkspace:textView) ifFalse:[^ true].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1571
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1572	(Dialog
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1573	confirm:(resources string:question) withCRs
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1574	yesLabel:(resources at:yesButtonText)
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1575	noLabel:(resources at:'Cancel'))
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1576	ifTrue:[
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1577	"/ reset modified flag so question is asked only once
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1578	textView modified:false.
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1579	^ true
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1580	].
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1581	^ false
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1582
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1583	"Modified: 2.10.1997 / 14:23:47 / stefan"
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1584	!
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1585
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1586	isModifiedWorkspace:aView
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1587	\|view\|
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1588
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1589	view := self workspaceViewOfView:aView.
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1590
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1591	(view isNil
a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1592	or:[view modified not
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1593	or:[view contentsWasSaved
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1594	or:[view contents withoutSeparators isEmpty]]]) ifTrue:[
4031 4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1595	^ false
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1596	].
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1597	^ true
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1598	!
4ace4ff5fbbd look for unsaved text in ANY workspace Claus Gittinger <cg@exept.de> parents: 3845 diff changeset	1599
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1600	lastDoItsString
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1601	\|history\|
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1602
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1603	history := Workspace doItHistory.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1604	history size > 0 ifFalse:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1605	self selectedWorkspacesTextView flash.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1606	^ nil
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1607	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1608	^ history first
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1609	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1610
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1611	selectedWorkspacesTextView
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1612	^ self workspaceViewOfView:(self selectedWorkspace)
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1613	!
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3196 diff changeset	1614
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1615	workspaceSelectionChanged
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1616	\|wsIndex windowLabel v\|
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1617
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1618	"/ self selected
3334 3c6e88d38b59 checkin from browser Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1619	self workspaceHolder value:(v := self selectedWorkspace).
3193 e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1620	wsIndex := self selectedWorkspaceIndexHolder value.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1621
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1622	wsIndex ~~ 0 ifTrue:[
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1623	windowLabel := tabList at:wsIndex ifAbsent:nil.
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1624	windowLabel notNil ifTrue:[self window label:windowLabel].
e35a94b5c2a0 multiple tabs Claus Gittinger <cg@exept.de> parents: 3191 diff changeset	1625	].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1626	!
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1627
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1628	workspaceViewOfView:aView
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1629	\|view\|
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1630
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1631	view := aView.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1632	(view isScrollWrapper) ifTrue:[
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1633	view := view scrolledView.
a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1634	view isNil ifTrue:[^ nil].
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1635	].
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1636	(view isTextView) ifFalse:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1637	(view isKindOf:InspectorView) ifFalse:[
4313 a8553b7a090e * empty log message * Claus Gittinger <cg@exept.de> parents: 4284 diff changeset	1638	^ nil
4267 bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1639	].
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1640	view := view workspace.
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1641	(view isScrollWrapper) ifTrue:[
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1642	view := view scrolledView
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1643	].
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1644	].
bc454d3f6ca5 more convenient functions Claus Gittinger <cg@exept.de> parents: 4208 diff changeset	1645	^ view
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1646	! !
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1647
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1648	!WorkspaceApplication class methodsFor:'documentation'!
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1649
859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1650	version
5262 99d5c5f7e4b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5261 diff changeset	1651	^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.67 2003-10-09 20:41:08 cg Exp $'
3154 859688212191 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1652	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 09 Oct 2003 22:41:08 +0200
changeset 5262	99d5c5f7e4b8
parent 5261	5f0d35ddca9d
child 5295	e3c5a7b20d9d
permissions	-rw-r--r--