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

author	Claus Gittinger <cg@exept.de>
	Tue, 22 Sep 2009 22:31:26 +0200
changeset 8772	85bc7bdd6cea
parent 8615	3407696ae28f
child 9058	83d47c6efdbf
permissions	-rw-r--r--