hg/stx-libtool: MultiViewToolApplication.st@2e691a1ec8b2 (annotated)

6179 182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	1	"
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	2	COPYRIGHT (c) 2004 by eXept Software AG
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	3	All Rights Reserved
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	4
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	5	This software is furnished under a license and may be used
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	6	only in accordance with the terms of that license and with the
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	7	inclusion of the above copyright notice. This software may not
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	8	be provided or otherwise made available to, or used by, any
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	9	other person. No title to or ownership of the software is
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	10	hereby transferred.
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	11	"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	ToolApplicationModel subclass:#MultiViewToolApplication
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	instanceVariableNames:'workspaces tabList selectedWorkspaceIndexHolder workspaceHolder'
8615 3407696ae28f * empty log message * Claus Gittinger <cg@exept.de> parents: 8576 diff changeset	16	classVariableNames:'DefaultInfoVisible DefaultEditToolBarVisible
3407696ae28f * empty log message * Claus Gittinger <cg@exept.de> parents: 8576 diff changeset	17	DefaultToolBarVisible'
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	poolDictionaries:''
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	category:'Interface-Smalltalk'
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!MultiViewToolApplication class methodsFor:'documentation'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
6179 182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	24	copyright
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	25	"
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	26	COPYRIGHT (c) 2004 by eXept Software AG
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	27	All Rights Reserved
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	28
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	29	This software is furnished under a license and may be used
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	30	only in accordance with the terms of that license and with the
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	31	inclusion of the above copyright notice. This software may not
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	32	be provided or otherwise made available to, or used by, any
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	33	other person. No title to or ownership of the software is
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	34	hereby transferred.
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	35	"
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	36	!
182d948dcf05 copyright Claus Gittinger <cg@exept.de> parents: 5303 diff changeset	37
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	documentation
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	"
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	40	Common code for multiView applications (Workspace, Terminal app and maybe more later)
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	[author:]
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	Claus Gittinger
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	"
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	47	!MultiViewToolApplication class methodsFor:'defaults'!
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	48
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	49	defaultEditToolbarVisible
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	50	^ DefaultEditToolBarVisible ? false
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	51
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	52	"Created: / 14-07-2007 / 16:38:47 / cg"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	53	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	54
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	55	defaultInfoVisible
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	56	^ DefaultInfoVisible ? true
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	57
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	58	"Created: / 14-07-2007 / 16:38:32 / cg"
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	59	!
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	60
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	61	defaultToolbarVisible
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	62	^ DefaultToolBarVisible ? false
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	63
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	64	"Created: / 14-07-2007 / 16:38:47 / cg"
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	65	! !
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	66
9143 51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	67	!MultiViewToolApplication class methodsFor:'help specs'!
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	68
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	69	flyByHelpSpec
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	70	<resource: #help>
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	71
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	72	^ super flyByHelpSpec addPairsFrom:#(
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	73
10221 f3fcf030f6b4 useless code removed Claus Gittinger <cg@exept.de> parents: 9694 diff changeset	74	#addWorkspace
f3fcf030f6b4 useless code removed Claus Gittinger <cg@exept.de> parents: 9694 diff changeset	75	'Add another page (tab)'
f3fcf030f6b4 useless code removed Claus Gittinger <cg@exept.de> parents: 9694 diff changeset	76
9143 51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	77	#hideToolBar
12482 e801a369d243 class: MultiViewToolApplication Claus Gittinger <cg@exept.de> parents: 11727 diff changeset	78	'Hide the toolbar. Show again via the "View"-menu'
9143 51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	79
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	80	#hideEditToolBar
12482 e801a369d243 class: MultiViewToolApplication Claus Gittinger <cg@exept.de> parents: 11727 diff changeset	81	'Hide the edit-toolbar. Show again via the "View"-menu'
9143 51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	82
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	83	)
10221 f3fcf030f6b4 useless code removed Claus Gittinger <cg@exept.de> parents: 9694 diff changeset	84
f3fcf030f6b4 useless code removed Claus Gittinger <cg@exept.de> parents: 9694 diff changeset	85	"Modified: / 06-07-2011 / 18:08:57 / cg"
9143 51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	86	! !
51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	87
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	88	!MultiViewToolApplication class methodsFor:'image specs'!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	89
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	90	hideToolBarIcon
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	91	<resource: #programImage>
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	92
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	93	^ ToolbarIconLibrary hideToolBarIcon
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	94
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	95	"Created: / 18-02-2007 / 14:53:38 / cg"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	96	! !
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	97
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	!MultiViewToolApplication class methodsFor:'interface specs'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	windowSpec
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	101	"This resource specification was automatically generated
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	102	by the UIPainter of ST/X."
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	103
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	104	"Do not manually edit this!! If it is corrupted,
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	105	the UIPainter may not be able to read the specification."
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	106
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	107	"
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	108	UIPainter new openOnClass:MultiViewToolApplication andSelector:#windowSpec
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	109	MultiViewToolApplication new openInterface:#windowSpec
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	110	MultiViewToolApplication open
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	111	"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	112
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	113	<resource: #canvas>
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	115	^
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	116	#(FullSpec
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	117	name: windowSpec
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	118	window:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	119	(WindowSpec
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	120	label: 'Workspace'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	121	name: 'Workspace'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	122	min: (Point 10 10)
13858 2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	123	bounds: (Rectangle 0 0 640 480)
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	124	menu: mainMenu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	125	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	126	component:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	127	(SpecCollection
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	128	collection: (
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	129	(ViewSpec
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	130	name: 'ToolBar'
8231 50ce5026cb72 * empty log message * Claus Gittinger <cg@exept.de> parents: 8196 diff changeset	131	layout: (LayoutFrame 0 0 0 0 0 1 32 0)
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	132	visibilityChannel: toolBarVisibleHolder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	133	component:
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	134	(SpecCollection
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	135	collection: (
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	136	(ActionButtonSpec
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	137	label: 'hideToolBarIcon'
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	138	name: 'HideToolBarButton'
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	139	layout: (LayoutFrame 0 0 0 0 13 0 0 1)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	140	activeHelpKey: hideToolBar
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	141	hasCharacterOrientedLabel: false
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	142	translateLabel: true
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	143	model: hideToolbar
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	144	postBuildCallback: hideToolBarButtonCreated:
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	145	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	146	(MenuPanelSpec
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	147	name: 'ToolBarMenu'
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	148	layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	149	visibilityChannel: toolBarVisibleHolder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	150	menu: toolBarMenu
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	151	textDefault: true
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	152	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	153	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	154
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	155	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	156	)
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	157	(ViewSpec
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	158	name: 'EditToolBar'
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	159	layout: (LayoutFrame 0 0 32 0 0 1 64 0)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	160	visibilityChannel: editToolBarVisibleHolder
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	161	component:
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	162	(SpecCollection
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	163	collection: (
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	164	(ActionButtonSpec
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	165	label: 'hideToolBarIcon'
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	166	name: 'HideEditToolBarButton'
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	167	layout: (LayoutFrame 0 0 0 0 13 0 0 1)
9143 51e187ace003 added: Claus Gittinger <cg@exept.de> parents: 9058 diff changeset	168	activeHelpKey: hideEditToolBar
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	169	hasCharacterOrientedLabel: false
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	170	translateLabel: true
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	171	model: hideEditToolbar
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	172	postBuildCallback: hideToolBarButtonCreated:
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	173	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	174	(MenuPanelSpec
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	175	name: 'EditToolBar1'
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	176	layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	177	visibilityChannel: editToolBarVisibleHolder
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	178	menu: editToolBarMenu
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	179	textDefault: true
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	180	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	181	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	182
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	183	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	184	)
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	185	(NoteBookViewSpec
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	186	name: 'NoteBook'
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	187	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	188	model: selectedWorkspaceIndexHolder
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	189	menu: tabList
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	190	useIndex: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	191	accessTabMenuAction: tabMenuAt:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	192	destroyTabAction: destroyTab:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	193	canvas: workspaceHolder
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	194	canvasInset: 0
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	195	keepCanvasAlive: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	196	tabLevel: 1
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	197	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	198	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	199
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	200	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	201	)
13858 2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	202
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	203	"Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	!MultiViewToolApplication class methodsFor:'menu specs'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	208	editToolBarMenu
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	209	"This resource specification was automatically generated
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	210	by the MenuEditor of ST/X."
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	211
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	212	"Do not manually edit this!! If it is corrupted,
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	213	the MenuEditor may not be able to read the specification."
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	214
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	215	"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	216	MenuEditor new openOnClass:MultiViewToolApplication andSelector:#toolBarMenu
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	217	(Menu new fromLiteralArrayEncoding:(MultiViewToolApplication toolBarMenu)) startUp
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	218	"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	219
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	220	<resource: #menu>
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	221
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	222	^
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	223	#(Menu
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	224	(
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	225	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	226	nil
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	227	nil
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	228	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	229
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	230	"Modified: / 18-02-2007 / 14:59:21 / cg"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	231	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	232
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	mainMenu
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	234	"This resource specification was automatically generated
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	235	by the MenuEditor of ST/X."
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	236
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	237	"Do not manually edit this!! If it is corrupted,
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	238	the MenuEditor may not be able to read the specification."
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	239
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	240	"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	241	MenuEditor new openOnClass:MultiViewToolApplication andSelector:#mainMenu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	242	(Menu new fromLiteralArrayEncoding:(MultiViewToolApplication mainMenu)) startUp
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	243	"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	244
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	245	<resource: #menu>
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	247	^
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	248	#(Menu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	249	(
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	250	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	251	label: 'File'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	252	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	253	submenu:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	254	(Menu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	255	(
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	256	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	257	label: 'New Editor'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	258	itemValue: newWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	259	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	260	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	261	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	262	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	263	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	264	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	265	label: 'Load File...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	266	itemValue: menuLoad
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	267	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	268	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	269	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	270	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	271	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	272	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	273	label: 'Save As...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	274	itemValue: menuSaveAs
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	275	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	276	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	277	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	278	enabled: hasMultipleBuffersHolder
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	279	label: 'Save all As...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	280	itemValue: menuSaveAllAs
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	281	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	282	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	283	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	284	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	285	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	286	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	287	label: 'Print...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	288	itemValue: menuPrint
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	289	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	290	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	291	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	292	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	293	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	294	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	295	label: 'Exit'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	296	itemValue: closeRequest
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	297	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	298	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	299	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	300	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	301	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	302	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	303	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	304	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	305	label: 'Buffers'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	306	nameKey: Buffer
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	307	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	308	submenu:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	309	(Menu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	310	(
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	311	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	312	label: 'Add Buffer'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	313	itemValue: addWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	314	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	315	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	316	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	317	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	318	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	319	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	320	label: 'Rename...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	321	itemValue: renameWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	322	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	323	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	324	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	325	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	326	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	327	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	328	enabled: canRemoveWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	329	label: 'Remove Buffer'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	330	itemValue: removeWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	331	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	332	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	333	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	334	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	335	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	336	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	337	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	338	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	339	label: 'Edit'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	340	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	341	submenu:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	342	(Menu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	343	(
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	344	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	345	enabled: hasSelectionInActiveWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	346	label: 'Cut'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	347	itemValue: cutSelection
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	348	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	349	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	350	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	351	enabled: hasSelectionInActiveWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	352	label: 'Copy'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	353	itemValue: copySelection
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	354	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	355	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	356	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	357	label: 'Paste'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	358	itemValue: paste
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	359	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	360	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	361	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	362	label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	363	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	364	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	365	label: 'Select All'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	366	itemValue: selectAll
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	367	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	368	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	369	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	370	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	371	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	372	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	373	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	374	(MenuItem
8500 1a3066fb8ed7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8498 diff changeset	375	label: 'View'
1a3066fb8ed7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8498 diff changeset	376	translateLabel: true
1a3066fb8ed7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8498 diff changeset	377	submenuChannel: viewMenu
1a3066fb8ed7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8498 diff changeset	378	keepLinkedMenu: true
1a3066fb8ed7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8498 diff changeset	379	)
1a3066fb8ed7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8498 diff changeset	380	(MenuItem
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	381	label: 'MENU_Help'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	382	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	383	startGroup: conditionalRight
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	384	submenu:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	385	(Menu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	386	(
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	387	(MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	388	label: 'About this Application...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	389	itemValue: openAboutThisApplication
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	390	translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	391	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	392	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	393	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	394	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	395	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	396	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	397	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	398	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	399	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	400	)
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403	tabMenu
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	404	"This resource specification was automatically generated
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	405	by the MenuEditor of ST/X."
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	406
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	407	"Do not manually edit this!! If it is corrupted,
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	408	the MenuEditor may not be able to read the specification."
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	409
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	410	"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	411	MenuEditor new openOnClass:WorkspaceApplication andSelector:#tabMenu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	412	(Menu new fromLiteralArrayEncoding:(WorkspaceApplication tabMenu)) startUp
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	413	"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	414
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	415	<resource: #menu>
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	417	^
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	418	#(#Menu
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	419	#(
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	420	#(#MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	421	#label: 'Add Tab'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	422	#translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	423	"/ #triggerOnDown: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	424	#value: #addWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	425	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	426	#(#MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	427	#label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	428	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	429	#(#MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	430	#label: 'Remove Tab'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	431	#translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	432	"/ #triggerOnDown: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	433	#value: #removeWorkspace:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	434	#enabled: #canRemoveWorkspace:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	435	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	436	#(#MenuItem
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	437	#label: 'Remove all other Tabs'
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	438	#translateLabel: true
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	439	"/ #triggerOnDown: true
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	440	#value: #removeAllWorkspacesExcept:
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	441	#enabled: #canRemoveAllWorkspacesExcept:
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	442	#isVisible: false
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	443	)
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	444	#(#MenuItem
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	445	#label: '-'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	446	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	447	#(#MenuItem
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	448	#label: 'Rename...'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	449	#translateLabel: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	450	"/ #triggerOnDown: true
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	451	#value: #renameWorkspace:
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	452	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	453	)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	454	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	455	nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	456	)
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	457	!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	458
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	459	toolBarMenu
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	460	"This resource specification was automatically generated
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	461	by the MenuEditor of ST/X."
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	462
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	463	"Do not manually edit this!! If it is corrupted,
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	464	the MenuEditor may not be able to read the specification."
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	465
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	466	"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	467	MenuEditor new openOnClass:MultiViewToolApplication andSelector:#toolBarMenu
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	468	(Menu new fromLiteralArrayEncoding:(MultiViewToolApplication toolBarMenu)) startUp
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	469	"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	470
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	471	<resource: #menu>
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	472
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	473	^
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	474	#(Menu
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	475	(
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	476	(MenuItem
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	477	label: ''
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	478	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	479	(MenuItem
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	480	"/ activeHelpKey: addWorkspace
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	481	label: 'Add Buffer'
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	482	itemValue: addWorkspace
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	483	translateLabel: true
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	484	isButton: true
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	485	labelImage: (ResourceRetriever ToolbarIconLibrary addBufferIcon)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	486	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	487	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	488	nil
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	489	nil
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	490	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	491
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	492	"Modified: / 18-02-2007 / 14:59:21 / cg"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	493	!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	494
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	495	viewMenu
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	496	"This resource specification was automatically generated
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	497	by the MenuEditor of ST/X."
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	498
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	499	"Do not manually edit this!! If it is corrupted,
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	500	the MenuEditor may not be able to read the specification."
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	501
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	502	"
9058 83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	503	MenuEditor new openOnClass:MultiViewToolApplication andSelector:#viewMenu
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	504	(Menu new fromLiteralArrayEncoding:(MultiViewToolApplication viewMenu)) startUp
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	505	"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	506
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	507	<resource: #menu>
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	508
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	509	^
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	510	#(Menu
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	511	(
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	512	(MenuItem
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	513	label: 'Toolbar'
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	514	translateLabel: true
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	515	hideMenuOnActivated: false
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	516	indication: toolBarVisibleHolder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	517	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	518	(MenuItem
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	519	label: 'Editor Toolbar'
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	520	translateLabel: true
9058 83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	521	isVisible: hasEditToolBar
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	522	hideMenuOnActivated: false
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	523	indication: editToolBarVisibleHolder
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	524	)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	525	(MenuItem
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	526	label: 'Info'
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	527	translateLabel: true
9380 346a2a59c410 added: #hasInfoLabel Claus Gittinger <cg@exept.de> parents: 9143 diff changeset	528	isVisible: hasInfoLabel
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	529	hideMenuOnActivated: false
7653 71f20b5aab8d Do not refer to non-existant aspect Stefan Vogel <sv@exept.de> parents: 7650 diff changeset	530	indication: infoVisibleHolder
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	531	)
9058 83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	532	(MenuItem
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	533	label: '-'
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	534	)
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	535	(MenuItem
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	536	label: 'Settings...'
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	537	itemValue: openSettingsDialog
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	538	translateLabel: true
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	539	)
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	540	)
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	541	nil
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	542	nil
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	543	)
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546	!MultiViewToolApplication class methodsFor:'queries'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548	isVisualStartable
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	"return true, if this application can be started via #open.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550	(to allow start of a change browser via double-click in the browser)"
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551
5303 fe0d2165b716 * empty log message * Claus Gittinger <cg@exept.de> parents: 5302 diff changeset	552	self == MultiViewToolApplication ifTrue:[^false].
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	^ super isVisualStartable
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	!MultiViewToolApplication methodsFor:'accessing'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	selectedWorkspace
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	\|wsIndex\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561	workspaces isNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	workspaces := OrderedCollection new.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	wsIndex := self selectedWorkspaceIndexHolder value.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	wsIndex == 0 ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	^ nil
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	workspaces size < wsIndex ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	workspaces grow:wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571	workspaces at:wsIndex put:(self createWorkspace).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	^ workspaces at:wsIndex
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575
13858 2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	576	selectedWorkspaceApplication
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	577	"Return an aoplication of selected workspace or nil,
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	578	is currently selected workspace is not an embedded
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	579	ApplicationModel"
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	580
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	581	\| ws \|
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	582	ws := self selectedWorkspace.
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	583	^(ws notNil and:[ws isApplicationSubView]) ifTrue:[
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	584	ws application
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	585	] ifFalse:[
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	586	nil
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	587	]
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	588
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	589	"Created: / 11-05-2012 / 09:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	590	!
2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	591
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592	tabMenuAt:index
6244 548f6707f59c * empty log message * Stefan Vogel <sv@exept.de> parents: 6179 diff changeset	593	<resource: #programMenu>
548f6707f59c * empty log message * Stefan Vogel <sv@exept.de> parents: 6179 diff changeset	594
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	\|m i ws\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	m := self class tabMenu.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598	m := m decodeAsLiteralArray.
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	599
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	i := m detectItem:[:item \| item value == #removeWorkspace:] ifNone:nil.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601	i notNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	602	i argument:index.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	603	index ~~ self selectedWorkspaceIndexHolder value ifTrue:[
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	604	"/ for now: if that buffer is modified, do not allow removing.
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	"/ (must be brought to front, in order for check-for-modification to work)
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	ws := workspaces at:index.
11727 667a6bfb5c64 Avoid #isKindOf: where possible Stefan Vogel <sv@exept.de> parents: 11626 diff changeset	607	ws isScrollWrapper ifTrue:[
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608	ws := ws scrolledView
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	609	].
11727 667a6bfb5c64 Avoid #isKindOf: where possible Stefan Vogel <sv@exept.de> parents: 11626 diff changeset	610	(ws isTextView not
667a6bfb5c64 Avoid #isKindOf: where possible Stefan Vogel <sv@exept.de> parents: 11626 diff changeset	611	or:[ ws modified ]) ifTrue:[
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	i disable
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	614	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615	].
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	616
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	617	i := m detectItem:[:item \| item value == #removeAllWorkspacesExcept:] ifNone:nil.
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	618	i notNil ifTrue:[
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	619	i argument:index.
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	620	"/ for now: if any buffer is modified, do not allow removing.
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	621	"/ (must be brought to front, in order for check-for-modification to work)
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	622	workspaces doWithIndex:[:wsArg :idx \|
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	623	\|ws\|
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	624
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	625	idx ~~ index ifTrue:[
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	626	ws := wsArg.
11727 667a6bfb5c64 Avoid #isKindOf: where possible Stefan Vogel <sv@exept.de> parents: 11626 diff changeset	627	ws isScrollWrapper ifTrue:[
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	628	ws := ws scrolledView
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	629	].
11727 667a6bfb5c64 Avoid #isKindOf: where possible Stefan Vogel <sv@exept.de> parents: 11626 diff changeset	630	(ws isTextView and:[ ws modified ]) ifTrue:[
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	631	i disable
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	632	].
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	633	].
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	634	].
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	635	].
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	636
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	637	i := m detectItem:[:item \| item value == #renameWorkspace:] ifNone:nil.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	638	i notNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	639	i argument:index.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	641
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	m findGuiResourcesIn:self.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643	^ m
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	workspaceHolder
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	workspaceHolder isNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	workspaceHolder := ValueHolder with:(self selectedWorkspace).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	^ workspaceHolder
7852 1cd1001247d9 * empty log message * ab parents: 7824 diff changeset	651	!
1cd1001247d9 * empty log message * ab parents: 7824 diff changeset	652
1cd1001247d9 * empty log message * ab parents: 7824 diff changeset	653	workspaces
1cd1001247d9 * empty log message * ab parents: 7824 diff changeset	654	^ workspaces
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657	!MultiViewToolApplication methodsFor:'aspects'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	659	editToolBarVisibleHolder
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	660	\|holder\|
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	661
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	662	(holder := builder bindingAt:#editToolBarVisibleHolder) isNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	663	holder := self class defaultEditToolbarVisible asValue.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	664	builder aspectAt:#editToolBarVisibleHolder put: holder.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	665	holder addDependent:self.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	666	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	667	^ holder
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	668
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	669	"Created: / 18-02-2007 / 14:43:39 / cg"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	670	"Modified: / 14-07-2007 / 16:39:55 / cg"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	671	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	672
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	673	hasEditToolBar
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	674	^ (self menuFor:#editToolBarMenu) decodeAsLiteralArray hasItems
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	675	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	676
9380 346a2a59c410 added: #hasInfoLabel Claus Gittinger <cg@exept.de> parents: 9143 diff changeset	677	hasInfoLabel
346a2a59c410 added: #hasInfoLabel Claus Gittinger <cg@exept.de> parents: 9143 diff changeset	678	^ false
346a2a59c410 added: #hasInfoLabel Claus Gittinger <cg@exept.de> parents: 9143 diff changeset	679	!
346a2a59c410 added: #hasInfoLabel Claus Gittinger <cg@exept.de> parents: 9143 diff changeset	680
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	681	infoVisibleHolder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	682	\|holder\|
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	683
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	684	(holder := builder bindingAt:#infoVisibleHolder) isNil ifTrue:[
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	685	holder := self class defaultInfoVisible asValue.
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	686	builder aspectAt:#infoVisibleHolder put: holder.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	687	holder addDependent:self.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	688	].
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	689	^ holder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	690
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	691	"Created: / 18-02-2007 / 15:01:05 / cg"
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	692	"Modified: / 14-07-2007 / 16:39:20 / cg"
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	693	!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	694
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695	selectedWorkspaceIndexHolder
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	selectedWorkspaceIndexHolder isNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697	selectedWorkspaceIndexHolder := 1 asValue.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	698	selectedWorkspaceIndexHolder onChangeSend:#workspaceSelectionChanged to:self.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700	^ selectedWorkspaceIndexHolder.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	tabList
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704	tabList isNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	705	tabList := List new.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	706	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	^ tabList.
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	708	!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	709
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	710	toolBarVisibleHolder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	711	\|holder\|
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	712
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	713	(holder := builder bindingAt:#toolBarVisibleHolder) isNil ifTrue:[
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	714	holder := self class defaultToolbarVisible asValue.
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	715	builder aspectAt:#toolBarVisibleHolder put: holder.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	716	holder addDependent:self.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	717	].
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	718	^ holder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	719
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	720	"Created: / 18-02-2007 / 14:43:39 / cg"
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	721	"Modified: / 14-07-2007 / 16:39:55 / cg"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724	!MultiViewToolApplication methodsFor:'aspects-queries'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	725
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	726	canRemoveAllWorkspacesExcept:idx
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	727	^ self tabList size > 1
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	728	!
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	729
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	730	canRemoveWorkspace
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	731	^ self canRemoveWorkspace:(self selectedWorkspaceIndexHolder value)
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	canRemoveWorkspace:idx
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	^ self tabList size > 1
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736	"/ and:[ (self workspacesTextViewAt:(self selectedWorkspaceIndexHolder value))
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739	hasMultipleBuffersHolder
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	740	^ [ workspaces size > 1 ]
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	hasSelectionInActiveWorkspace
6424 57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	744	\|v\|
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	745
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	746	v := self selectedWorkspacesTextView.
57dbbc6ff912 * empty log message * Claus Gittinger <cg@exept.de> parents: 6408 diff changeset	747	^ v notNil and:[v selectionAsString size > 0]
8528 cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	748	!
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	749
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	750	hasTextInActiveWorkspace
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	751	\|v\|
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	752
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	753	v := self selectedWorkspacesTextView.
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	754	^ v notNil
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	755	and:[v list notEmptyOrNil
cfb56a882e81 * empty log message * Claus Gittinger <cg@exept.de> parents: 8509 diff changeset	756	and:[v list contains:[:l \| l notEmptyOrNil]]]
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	759	!MultiViewToolApplication methodsFor:'change & update'!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	760
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	761	infoVisibilityChanged
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	762	\|visible cFrame bottomOffset\|
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	763
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	764	visible := self infoVisibleHolder value.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	765
9380 346a2a59c410 added: #hasInfoLabel Claus Gittinger <cg@exept.de> parents: 9143 diff changeset	766	cFrame := builder findComponentAt:#NoteBook. "/ #CodeView.
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	767	cFrame notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	768	visible ifFalse:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	769	bottomOffset := 0.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	770	] ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	771	bottomOffset := -25.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	772	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	773	cFrame layout bottomOffset:bottomOffset.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	774	cFrame container notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	775	cFrame containerChangedSize.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	776	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	777	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	778	DefaultInfoVisible := visible
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	779
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	780	"Created: / 18-02-2007 / 15:01:55 / cg"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	781	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	782
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	783	toolBarVisibilityChanged
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	784	\|toolBarVisible editToolBarVisible toolBar editToolBar noteBook topOffset\|
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	785
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	786	topOffset := 0.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	787
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	788	toolBar := self componentAt:#ToolBar.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	789	toolBar notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	790	toolBarVisible := self toolBarVisibleHolder value.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	791	DefaultToolBarVisible := toolBarVisible.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	792	toolBarVisible ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	793	topOffset := topOffset + toolBar height.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	794	]
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	795	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	796
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	797	editToolBar := self componentAt:#EditToolBar.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	798	editToolBar notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	799	editToolBar layout
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	800	topOffset:topOffset bottomOffset:(topOffset + editToolBar height).
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	801	"/ force it to recompute its dimension
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	802	editToolBar container notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	803	editToolBar containerChangedSize.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	804	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	805	editToolBarVisible := self editToolBarVisibleHolder value.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	806	DefaultEditToolBarVisible := editToolBarVisible.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	807	editToolBarVisible ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	808	topOffset := topOffset + editToolBar height.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	809	]
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	810	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	811
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	812	noteBook := self componentAt:#NoteBook.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	813	noteBook notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	814	noteBook layout topOffset:topOffset.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	815	"/ force it to recompute its dimension
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	816	noteBook container notNil ifTrue:[
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	817	noteBook containerChangedSize.
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	818	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	819	].
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	820
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	821	"Created: / 18-02-2007 / 14:46:22 / cg"
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	822	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	823
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	824	update:something with:aParameter from:changedObject
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	825	((changedObject == self toolBarVisibleHolder)
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	826	or:[ changedObject == self editToolBarVisibleHolder ]) ifTrue:[
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	827	self toolBarVisibilityChanged.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	828	^ self
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	829	].
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	830	changedObject == self infoVisibleHolder ifTrue:[
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	831	self infoVisibilityChanged.
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	832	^ self
09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	833	].
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	834	^ super update:something with:aParameter from:changedObject
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	835
7824 09995d9a889d * empty log message * Claus Gittinger <cg@exept.de> parents: 7745 diff changeset	836	"Modified: / 14-07-2007 / 16:46:14 / cg"
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	837	! !
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	838
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	839	!MultiViewToolApplication methodsFor:'defaults'!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	840
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	841	defaultFileNameForLoad
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	842	^ 'file.txt'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	843
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	844	"Created: / 25-10-2006 / 14:56:19 / cg"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	845	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	846
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	847	defaultFileNameForSave
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	848	^ 'file.txt'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	849
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	850	"Modified: / 25-10-2006 / 14:54:13 / cg"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	851	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	852
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	853	defaultFileNameForSaveAll
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	854	^ 'file.txt'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	855
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	856	"Modified: / 25-10-2006 / 14:55:50 / cg"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	857	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	858
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	859	defaultPatternLoad
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	860	^ '*.txt'
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	861
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	862	"Created: / 25-10-2006 / 14:57:18 / cg"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	863	! !
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	864
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	865	!MultiViewToolApplication methodsFor:'initialization'!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	866
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	867	hideToolBarButtonCreated:aButton
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	868	aButton passiveLevel:(MenuPanel defaultLevel).
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	869	"/ aButton passiveLevel:1.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	870	aButton activeLevel:-1.
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	871	aButton backgroundColor:(MenuPanel defaultBackgroundColor).
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	872
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	873	"Created: / 18-02-2007 / 14:48:28 / cg"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	874	!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	875
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	876	postBuildWith:aBuilder
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	877	super postBuildWith:aBuilder.
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	878
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	879	self infoVisibleHolder value ifTrue:[ self infoVisibilityChanged ].
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	880	(self toolBarVisibleHolder value
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	881	or:[ self editToolBarVisibleHolder value ]) ifTrue:[ self toolBarVisibilityChanged ].
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	882
9694 eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	883	self workspaceSelectionChanged.
eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	884
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	885	"Created: / 18-02-2007 / 15:03:08 / cg"
9694 eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	886	"Modified: / 22-01-2011 / 11:46:35 / cg"
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	887	! !
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	888
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	!MultiViewToolApplication methodsFor:'menu-actions'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	addWindow:aWindow named:name
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892	^ self addWindow:aWindow named:name asFirst:false
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895	addWindow:aWindow named:name asFirst:asFirst
9664 a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	896	\|tabList wsIndex newSelectedIndex w\|
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	tabList := self tabList.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	wsIndex := tabList size + 1.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	wsIndex == 1 ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	"/ first - add a name for the first tab
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902	tabList add:(self window label). "/ 'Workspace'.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903	wsIndex := wsIndex + 1.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	workspaces grow:wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	asFirst ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	908	tabList addFirst:(name bindWith:wsIndex).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	909	workspaces replaceFrom:2 to:wsIndex with:workspaces startingAt:1.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	newSelectedIndex := 1.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	] ifFalse:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912	tabList addLast:(name bindWith:wsIndex).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913	newSelectedIndex := wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914	].
9664 a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	915
9694 eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	916	w := aWindow scrolledView.
10252 6bc6fc141f49 Merged with JV's branch vrany parents: 10221 diff changeset	917	(w notNil and:[w isKeyboardConsumer]) ifTrue:[
9664 a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	918	w takeFocusWhenMapped:true.
a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	919	].
a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	920
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	921	workspaces at:newSelectedIndex put:aWindow.
9694 eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	922	self selectedWorkspaceIndexHolder value:newSelectedIndex.
eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	923	self workspaceSelectionChanged.
eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	924
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	"/ workspaceHolder value:aWindow.
9664 a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	926
9694 eb3dff842677 changed: Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	927	"Modified: / 22-01-2011 / 12:02:59 / cg"
10252 6bc6fc141f49 Merged with JV's branch vrany parents: 10221 diff changeset	928	"Modified: / 11-06-2011 / 00:05:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	931	addWorkspace
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	932	self addWindow:(self createWorkspace) named:'Workspace%1'
6408 e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	933	!
e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	934
6458 abf7db73fa79 destroy tabs Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	935	destroyTab:tabIndex
abf7db73fa79 destroy tabs Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	936	self removeWorkspace:tabIndex
abf7db73fa79 destroy tabs Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	937	!
abf7db73fa79 destroy tabs Claus Gittinger <cg@exept.de> parents: 6424 diff changeset	938
8576 d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	939	doIt
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	940	\|v\|
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	941
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	942	(v := self selectedWorkspacesTextView) notNil ifTrue:[
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	943	v doIt.
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	944	]
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	945	!
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	946
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	947	loadFile:aFileName
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	948	self loadFile:aFileName encoding:nil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	949	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	950
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	951	loadFile:aFileName encoding:encodingSymbolOrNil
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	952	\|lbl\|
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	953
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	954	lbl := aFileName asFilename withoutSuffix baseName.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	955	self loadFile:aFileName encoding:encodingSymbolOrNil label:lbl.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	956	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	957
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	958	loadFile:aFileName encoding:encodingSymbolOrNil label:label
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	959	\|file ws\|
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	960
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	961	file := aFileName asFilename.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	962	ws := self selectedWorkspacesTextView.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	963	[
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	964	\|contents\|
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	965
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	966	contents := file contents.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	967	encodingSymbolOrNil notNil ifTrue:[
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	968	contents := contents encodeFrom:encodingSymbolOrNil into:#'unicode'.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	969	ws externalEncoding:encodingSymbolOrNil.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	970	].
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	971	ws contents:contents.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	972	ws defaultFileNameForFileDialog:file pathName.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	973	] on:StreamError do:[:ex\|
8368 fd864b68c591 * empty log message * Claus Gittinger <cg@exept.de> parents: 8231 diff changeset	974	Dialog warn:(resources stringWithCRs:'Cannot open "%1":\\%2' with:file asString with:ex description).
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	975	^ self
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	976	].
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	977	ws modified:false.
8033 233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	978	self setLabel:label.
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	979	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	980
7745 de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	981	loadFile:aFileName label:lbl
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	982	\|encoding\|
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	983
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	984	encoding := CharacterEncoder guessEncodingOfFile:aFileName.
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	985	(encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	986	encoding := nil
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	987	].
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	988	self loadFile:aFileName encoding:encoding label:lbl.
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	989
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	990	"Created: / 15-03-2007 / 11:52:21 / cg"
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	991	!
de4f256227cd * empty log message * Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	992
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	993	menuLoad
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	994	\|file\|
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	995
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	996	(self askIfModified:'Text was modified. Load anyway ?' yesButton:'Load') ifFalse:[ ^ self].
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	997
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	998	file := Dialog
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	999	requestFileName:(resources string:'Load file')
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1000	default:(self defaultFileNameForLoad)
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1001	pattern:(self defaultPatternLoad).
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1002	file size ~~ 0 ifTrue:[
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1003	self loadFile:file
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1004	]
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1005
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1006	"Modified: / 25-10-2006 / 14:57:34 / cg"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1007	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1008
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1009	menuPrint
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1010	\|ws\|
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1011
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1012	ws := self selectedWorkspacesTextView.
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1013	ws doPrint
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1014
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1015	"Created: / 25-10-2006 / 15:01:51 / cg"
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1016	!
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1017
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1018	menuSaveAllAs
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	self
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1020	askForFile:'Save all Buffers into:'
8196 29ed5a2bf16d fixed saveAll Claus Gittinger <cg@exept.de> parents: 8033 diff changeset	1021	default:(self defaultFileNameForSaveAll)
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	thenDo:[:file :doAppend \|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023	\|ws append\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1024
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025	append := doAppend.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1026	workspaces do:[:subView \|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1027	\|ws\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1028
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1029	ws := self workspaceViewOfView:subView.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030	ws notNil ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1031	ws saveAs:file doAppend:append.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1032	ws modified:false.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1033	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1034	append := true.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1035	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036	]
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	menuSaveAs
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040	self
6408 e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1041	askForFile:'Save Buffer into:'
e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1042	default:(self defaultFileNameForSave)
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1043	thenDo:[:file :doAppend \|
8033 233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1044	\|ws lbl\|
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046	ws := self selectedWorkspacesTextView.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	ws saveAs:file doAppend:doAppend.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048	ws modified:false.
8395 3596ebae2d90 changed #defaultFileNameForSave Claus Gittinger <cg@exept.de> parents: 8368 diff changeset	1049	"/ ws defaultFileNameForFileDialog:file asFilename baseName.
8033 233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1050
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1051	lbl := file asFilename withoutSuffix baseName.
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1052	self setLabel:lbl.
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053	]
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1056	newWorkspace
6863 4e2e267622eb * empty log message * Claus Gittinger <cg@exept.de> parents: 6634 diff changeset	1057	self class new openWithExtent:(self builder window extent).
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1058
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1059	"Modified: / 25-10-2006 / 14:39:15 / cg"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1060	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1061
9058 83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1062	openSTXDocumentation
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1063	"opens the top documentation file"
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1064
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1065	self openHTMLDocument: 'TOP.html'
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1066	!
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1067
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1068	openSettingsDialog
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1069	\|settingsList settingsApp\|
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1070
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1071	settingsList :=
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1072	#(
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1073	#('Keyboard Mappings' #'AbstractSettingsApplication::KbdMappingSettingsAppl' )
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1074	"/ #('Debugger' #'AbstractSettingsApplication::DebuggerSettingsAppl' )
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1075	#('Editor' #'AbstractSettingsApplication::EditSettingsAppl' )
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1076	"/ #('Syntax Color' #'AbstractSettingsApplication::SyntaxColorSettingsAppl' )
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1077	"/ #('Code Format' #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl' )
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1078	).
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1079
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1080	settingsApp := SettingsDialog new.
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1081	settingsApp installSettingsEntries:settingsList.
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1082	settingsApp allButOpen.
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1083	settingsApp window label:('Debugger Settings').
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1084	settingsApp openWindow.
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1085	!
83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1086
8576 d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	1087	printIt
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	1088	!
d8906424444d * empty log message * Claus Gittinger <cg@exept.de> parents: 8528 diff changeset	1089
8772 85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1090	removeAllWorkspacesExcept:wsIndex
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1091	tabList size downTo:wsIndex+1 do:[:idx \|
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1092	self removeWorkspace:idx.
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1093	].
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1094	1 to:wsIndex-1 do:[:idx \|
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1095	self removeWorkspace:1.
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1096	].
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1097	!
85bc7bdd6cea added: Claus Gittinger <cg@exept.de> parents: 8615 diff changeset	1098
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099	removeWorkspace
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100	self removeWorkspace:(self selectedWorkspaceIndexHolder value)
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1101	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1102
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1103	removeWorkspace:wsIndex
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1104	\|tabList newWsIndex\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1105
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1106	wsIndex == self selectedWorkspaceIndexHolder value ifTrue:[
6509 bcaae26df254 * empty log message * Claus Gittinger <cg@exept.de> parents: 6458 diff changeset	1107	(self askIfModified:'Text was modified. Remove buffer anyway ?' yesButton:'Remove Buffer') ifFalse:[
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1108	^ self
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1109	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1110	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	tabList := self tabList.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1114	wsIndex == tabList size ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1115	newWsIndex := wsIndex - 1.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1116	] ifFalse:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117	newWsIndex := wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120	tabList removeIndex:wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	(workspaces at:wsIndex) destroy.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122	workspaces removeIndex:wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1123
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	tabList size == 1 ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125	self window label:(tabList at:1).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	tabList removeIndex:1
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	workspaceHolder value:(workspaces at:newWsIndex).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130	self selectedWorkspaceIndexHolder value:newWsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131	"/ to force change (update workspaceHolder - even if same index)
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1132	self selectedWorkspaceIndexHolder changed:#value.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1134
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135	renameWorkspace
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1136	self renameWorkspace:(self selectedWorkspaceIndexHolder value)
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1137	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1138
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1139	renameWorkspace:wsIndex
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1140	\|tabList oldName newName\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1141
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1142	tabList := self tabList.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1143	tabList isEmpty ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1144	oldName := self window label
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1145	] ifFalse:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	oldName := tabList at:wsIndex.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147	].
11626 fb8ca9aad4a3 changed: #renameWorkspace: Claus Gittinger <cg@exept.de> parents: 11482 diff changeset	1148	newName := Dialog request:(resources string:'New Name for "%1":' with:oldName) initialAnswer:oldName.
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149	newName size == 0 ifTrue:[ ^ self].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151	self renameWorkspace:wsIndex to:newName.
11626 fb8ca9aad4a3 changed: #renameWorkspace: Claus Gittinger <cg@exept.de> parents: 11482 diff changeset	1152
fb8ca9aad4a3 changed: #renameWorkspace: Claus Gittinger <cg@exept.de> parents: 11482 diff changeset	1153	"Modified: / 20-07-2012 / 10:21:29 / cg"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156	renameWorkspace:wsIndex to:newName
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157	\|tabList\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159	tabList := self tabList.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160	tabList notEmpty ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161	tabList at:wsIndex put:newName.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163	wsIndex == self selectedWorkspaceIndexHolder value ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1164	self window label:newName.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1165	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1166	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168	!MultiViewToolApplication methodsFor:'menu-actions-editing'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1169
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170	copySelection
8498 3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1171	\|v\|
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1172
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1173	(v := self selectedWorkspacesTextView) notNil ifTrue:[
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1174	v copySelection
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1175	]
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178	cutSelection
8498 3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1179	\|v\|
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1180
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1181	(v := self selectedWorkspacesTextView) notNil ifTrue:[
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1182	v cutSelection
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1183	].
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1184	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1185
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1186	paste
8498 3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1187	\|v\|
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1188
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1189	(v := self selectedWorkspacesTextView) notNil ifTrue:[
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1190	v paste
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1191	]
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1192	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1193
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1194	paste:aString
9634 c09155118873 changed: #paste: Claus Gittinger <cg@exept.de> parents: 9633 diff changeset	1195	\|v\|
9633 cbd9b7c06f28 changed: #paste: Claus Gittinger <cg@exept.de> parents: 9380 diff changeset	1196
9634 c09155118873 changed: #paste: Claus Gittinger <cg@exept.de> parents: 9633 diff changeset	1197	v := (workspaceHolder value) ? (self selectedWorkspacesTextView).
11482 e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1198	[
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1199	v perform:#paste: with:aString.
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1200	] on:MessageNotUnderstood do:[:ex\|
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1201	"special code, to catch exeception sent from a scrolled view,
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1202	which has a different receiver tha v"
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1203	(ex selector ~~ #paste:) ifTrue:[
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1204	ex reject.
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1205	].
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1206	"else ignore it"
e945c7253f9b changed: #paste: Stefan Vogel <sv@exept.de> parents: 10252 diff changeset	1207	].
9634 c09155118873 changed: #paste: Claus Gittinger <cg@exept.de> parents: 9633 diff changeset	1208
9636 8593b50b09dc changed: #paste: Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1209	"Modified: / 16-11-2010 / 15:27:39 / cg"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1210	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1211
8509 2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1212	redo
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1213	\|v\|
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1214
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1215	(v := self selectedWorkspacesTextView) notNil ifTrue:[
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1216	v redo.
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1217	]
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1218	!
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1219
8498 3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1220	search
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1221	\|v\|
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1222
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1223	(v := self selectedWorkspacesTextView) notNil ifTrue:[
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1224	v search.
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1225	]
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1226	!
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1227
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228	selectAll
8498 3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1229	\|v\|
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1230
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1231	(v := self selectedWorkspacesTextView) notNil ifTrue:[
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1232	v selectAll.
3f0be0fbfbec support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8497 diff changeset	1233	]
8509 2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1234	!
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1235
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1236	undo
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1237	\|v\|
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1238
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1239	(v := self selectedWorkspacesTextView) notNil ifTrue:[
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1240	v undo.
2b395fdbab78 more editMenu stuff Claus Gittinger <cg@exept.de> parents: 8507 diff changeset	1241	]
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1242	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1244	!MultiViewToolApplication methodsFor:'private'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1245
6408 e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1246	askForFile:question default:defaultFilename thenDo:aBlock
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1247	Dialog
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248	requestSaveFileName:(resources string:question)
6408 e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1249	default:defaultFilename
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1250	fromDirectory:nil
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	action:[:fileName \| aBlock value:fileName value:false]
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	appendAction:[:fileName \| aBlock value:fileName value:true]
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1254	"/ \|file doAppend\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1255	"/
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256	"/ doAppend := false.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257	"/ Dialog aboutToOpenBoxNotificationSignal handle:[:n \|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258	"/ \|box\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	"/
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260	"/ box := n parameter.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	"/ box addButton:(Button label:'Append' action:[doAppend := true. box okPressed]).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262	"/ n proceed.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263	"/ ] do:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264	"/ file := Dialog requestFileName:question default:'file.wsp'.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265	"/ ].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	"/ file isEmptyOrNil ifFalse:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	"/ aBlock value:file value:doAppend
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	"/ ].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270
6408 e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1271	askForFile:question thenDo:aBlock
e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1272	^ self
e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1273	askForFile:question default:'file.wsp' thenDo:aBlock
e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1274	!
e0f701a20cae remember last-saved fileName for next default Claus Gittinger <cg@exept.de> parents: 6354 diff changeset	1275
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	askIfAnyModified:arg1 yesButton:arg2
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277	"raise an error: must be redefined in concrete subclass(es)"
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1279	^ self subclassResponsibility
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282	askIfModified:question yesButton:yesButtonText
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1283	"tell user, that code has been modified - let her confirm"
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	\|textView\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287	textView := self selectedWorkspace.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288	(self isModifiedWorkspace:textView) ifFalse:[^ true].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290	(Dialog
6354 08a483e3beda * empty log message * Claus Gittinger <cg@exept.de> parents: 6244 diff changeset	1291	confirm:(resources stringWithCRs:question)
6634 a94d8a07247d * empty log message * Claus Gittinger <cg@exept.de> parents: 6509 diff changeset	1292	yesLabel:(resources string:yesButtonText)
a94d8a07247d * empty log message * Claus Gittinger <cg@exept.de> parents: 6509 diff changeset	1293	noLabel:(resources string:'Cancel'))
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295	"/ reset modified flag so question is asked only once
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296	textView modified:false.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	^ true
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	^ false
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301	"Modified: 2.10.1997 / 14:23:47 / stefan"
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304	createWorkspace
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1305	\|ws\|
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306
7475 54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1307	ws := (HVScrollableView for:EditTextView).
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1308	^ ws
54b889153fc7 refactored to allow for standAlone multiTab editors Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	1309
9664 a4a6072afcf8 changed: Claus Gittinger <cg@exept.de> parents: 9636 diff changeset	1310	"Modified: / 09-12-2010 / 10:55:25 / cg"
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	isModifiedWorkspace:aView
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314	self subclassResponsibility
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317	selectedWorkspacesTextView
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	^ self workspaceViewOfView:(self selectedWorkspace)
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320
8033 233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1321	setLabel:label
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1322	tabList size > 1 ifTrue:[
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1323	tabList at:self selectedWorkspaceIndexHolder value put:label
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1324	].
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1325	self window label:label.
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1326	!
233d210c526a label handling after load Claus Gittinger <cg@exept.de> parents: 7852 diff changeset	1327
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1328	workspaceSelectionChanged
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	\|wsIndex windowLabel v\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1331	"/ self selected
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1332	self workspaceHolder value:(v := self selectedWorkspace).
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1333	wsIndex := self selectedWorkspaceIndexHolder value.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1334
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1335	wsIndex ~~ 0 ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1336	windowLabel := tabList at:wsIndex ifAbsent:nil.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1337	windowLabel notNil ifTrue:[self window label:windowLabel].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339	!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1340
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341	workspaceViewOfView:aView
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342	\|view\|
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1344	view := aView.
7663 c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1345
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346	(view isScrollWrapper) ifTrue:[
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1347	view := view scrolledView.
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348	view isNil ifTrue:[^ nil].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349	].
7663 c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1350
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351	(view isTextView) ifFalse:[
7663 c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1352	(view isKindOf:InspectorView) ifTrue:[
c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1353	view := view workspace.
c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1354	(view isScrollWrapper) ifTrue:[
c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1355	view := view scrolledView
c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1356	].
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357	].
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358	].
7663 c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1359	(view isTextView) ifTrue:[^ view].
c11efe4cbcf3 care for eval workspace Claus Gittinger <cg@exept.de> parents: 7653 diff changeset	1360	^ view allSubViewsDetect:[:v\| v name = #Workspace] ifNone:nil.
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361	! !
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1362
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1363	!MultiViewToolApplication methodsFor:'user actions'!
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1364
8497 08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	1365	hideEditToolbar
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	1366	self editToolBarVisibleHolder value:false
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	1367	!
08a96ef8a3c4 support an edit-ops-toolbar Claus Gittinger <cg@exept.de> parents: 8395 diff changeset	1368
7650 12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1369	hideToolbar
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1370	self toolBarVisibleHolder value:false
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1371
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1372	"Created: / 18-02-2007 / 14:55:54 / cg"
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1373	! !
12fcca896ba0 workspaceApp refactored Claus Gittinger <cg@exept.de> parents: 7475 diff changeset	1374
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	!MultiViewToolApplication class methodsFor:'documentation'!
615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376
9058 83d47c6efdbf added: Claus Gittinger <cg@exept.de> parents: 8772 diff changeset	1377	version_CVS
13858 2e691a1ec8b2 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12482 diff changeset	1378	^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.47 2014-02-05 19:00:00 cg Exp $'
5302 615a0020e15c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	! !
12482 e801a369d243 class: MultiViewToolApplication Claus Gittinger <cg@exept.de> parents: 11727 diff changeset	1380

author	Claus Gittinger <cg@exept.de>
	Wed, 05 Feb 2014 20:00:00 +0100
changeset 13858	2e691a1ec8b2
parent 12482	e801a369d243
child 14175	61dceb4984c4
permissions	-rw-r--r--