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

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

author	Claus Gittinger <cg@exept.de>
	Tue, 20 Feb 2007 15:49:31 +0100
changeset 7658	a0749bf9f21a
parent 7651	45321b7e15df
child 7662	9ad6030ecba2
permissions	-rw-r--r--