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

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

author	Claus Gittinger <cg@exept.de>
	Tue, 26 Nov 2002 10:13:10 +0100
changeset 4313	a8553b7a090e
parent 4284	1fd90359b703
child 4358	b0023a5ca3b8
permissions	-rw-r--r--