hg/stx-libtool2: UIObjectView.st@e65b8bf6224b (annotated)

156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	1	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	2	COPYRIGHT (c) 1995 by eXept Software AG
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	3	All Rights Reserved
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	4
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	5	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	6	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	7	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	8	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	9	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	10	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	11	"
1399 a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	12	"{ Package: 'stx:libtool2' }"
a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	13
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	14	ObjectView subclass:#UIObjectView
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	15	instanceVariableNames:'saveSelection undoHistory copiedExtent copiedLayout resizeData
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	16	clipChildren selectionHiddenLevel gridParameters
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	17	setOfSuperViewsSizeChanged hasUndoHistoryHolder'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	18	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	19	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	20	category:'Interface-UIPainter'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	21	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	22
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	23	Object subclass:#PostEventHandler
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	24	instanceVariableNames:'onView'
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	25	classVariableNames:''
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	26	poolDictionaries:''
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	27	privateIn:UIObjectView
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	28	!
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	29
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	30	Object subclass:#ResizeData
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	31	instanceVariableNames:'object selector delta'
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	32	classVariableNames:''
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	33	poolDictionaries:''
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	34	privateIn:UIObjectView
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	35	!
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	36
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	37	Object subclass:#UndoHistory
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	38	instanceVariableNames:'startIdentifier identifier painter history transaction enabled'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	39	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	40	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	41	privateIn:UIObjectView
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	42	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	43
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	44	Object subclass:#Transaction
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	45	instanceVariableNames:'identifier type text actions'
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	46	classVariableNames:''
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	47	poolDictionaries:''
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	48	privateIn:UIObjectView::UndoHistory
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	49	!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	50
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	51	!UIObjectView class methodsFor:'documentation'!
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	52
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	53	copyright
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	54	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	55	COPYRIGHT (c) 1995 by eXept Software AG
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	56	All Rights Reserved
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	57
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	58	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	59	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	60	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	61	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	62	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	63	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	64	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	65
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	66
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	67	!
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	68
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	69	documentation
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	70	"
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	71	buildIn view used by the UIPainter; it provides all services for creating, deleting
715b3dbba87d selection handling changed ca parents: 128 diff changeset	72	moving and changing layouts of painted components on a canvas.
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	73
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	74	[see also:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	75	UIBuilder
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	76	UIPainterView
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	77
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	78	[author:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	79	Claus Atzkern
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	80	"
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	81
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	82	! !
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	83
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	84	!UIObjectView class methodsFor:'conversion'!
6714daee4b26 checkin from browser ca parents: 61 diff changeset	85
6714daee4b26 checkin from browser ca parents: 61 diff changeset	86	asLayoutFrameFromView:aView
6714daee4b26 checkin from browser ca parents: 61 diff changeset	87	"convert layout from aView to a frameLayout. On success the frameLayout is
6714daee4b26 checkin from browser ca parents: 61 diff changeset	88	returned otherwise nil
6714daee4b26 checkin from browser ca parents: 61 diff changeset	89	"
68 889c3877baf0 layout .... ca parents: 67 diff changeset	90	\|lF lO rF rO tF tO bF bO type layout newLyt\|
889c3877baf0 layout .... ca parents: 67 diff changeset	91
889c3877baf0 layout .... ca parents: 67 diff changeset	92	type := self layoutType:aView.
889c3877baf0 layout .... ca parents: 67 diff changeset	93	layout := aView geometryLayout.
889c3877baf0 layout .... ca parents: 67 diff changeset	94
91 86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	95	layout isNil ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	96	type == #Extent ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	97	layout := aView bounds asLayout
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	98	]
91 86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	99	].
86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	100
68 889c3877baf0 layout .... ca parents: 67 diff changeset	101	(type isNil or:[layout isNil]) ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	102	^ nil
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	103	].
6714daee4b26 checkin from browser ca parents: 61 diff changeset	104
68 889c3877baf0 layout .... ca parents: 67 diff changeset	105	type == #LayoutFrame ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	106	^ layout copy
68 889c3877baf0 layout .... ca parents: 67 diff changeset	107	].
889c3877baf0 layout .... ca parents: 67 diff changeset	108
889c3877baf0 layout .... ca parents: 67 diff changeset	109	layout isLayout ifFalse:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	110	type == #Rectangle ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	111	lO := layout left.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	112	tO := layout top.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	113	rO := layout right.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	114	bO := layout bottom.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	115	] ifFalse:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	116	lO := layout x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	117	tO := layout y.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	118	rO := lO + aView extent x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	119	bO := tO + aView extent y.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	120	].
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	121
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	122	^ LayoutFrame
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	123	leftFraction:0 offset:lO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	124	rightFraction:0 offset:rO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	125	topFraction:0 offset:tO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	126	bottomFraction:0 offset:bO
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	127	].
6714daee4b26 checkin from browser ca parents: 61 diff changeset	128
68 889c3877baf0 layout .... ca parents: 67 diff changeset	129	lF := layout leftFraction.
889c3877baf0 layout .... ca parents: 67 diff changeset	130	lO := layout leftOffset.
889c3877baf0 layout .... ca parents: 67 diff changeset	131	tF := layout topFraction.
889c3877baf0 layout .... ca parents: 67 diff changeset	132	tO := layout topOffset.
889c3877baf0 layout .... ca parents: 67 diff changeset	133	bF := tF.
889c3877baf0 layout .... ca parents: 67 diff changeset	134	bO := tO + aView extent y.
889c3877baf0 layout .... ca parents: 67 diff changeset	135	rF := lF.
889c3877baf0 layout .... ca parents: 67 diff changeset	136	rO := lO + aView extent x.
889c3877baf0 layout .... ca parents: 67 diff changeset	137
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	138	newLyt := LayoutFrame
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	139	leftFraction:lF offset:lO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	140	rightFraction:rF offset:rO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	141	topFraction:tF offset:tO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	142	bottomFraction:bF offset:bO.
68 889c3877baf0 layout .... ca parents: 67 diff changeset	143
889c3877baf0 layout .... ca parents: 67 diff changeset	144	( (type == #AlignmentOrigin)
889c3877baf0 layout .... ca parents: 67 diff changeset	145	and:[layout leftAlignmentFraction ~~ 0
889c3877baf0 layout .... ca parents: 67 diff changeset	146	or:[layout topAlignmentFraction ~~ 0]]
889c3877baf0 layout .... ca parents: 67 diff changeset	147	) ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	148	\|svRc prBd dlta\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	149
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	150	svRc := aView superView viewRectangle.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	151	prBd := aView preferredBounds.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	152	dlta := ( ((layout rectangleRelativeTo:svRc preferred:prBd) corner)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	153	- ((newLyt rectangleRelativeTo:svRc preferred:prBd) corner)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	154	) rounded.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	155
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	156	newLyt
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	157	leftOffset:(lO + dlta x)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	158	rightOffset:(rO + dlta x)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	159	topOffset:(tO + dlta y)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	160	bottomOffset:(bO + dlta y).
68 889c3877baf0 layout .... ca parents: 67 diff changeset	161	].
889c3877baf0 layout .... ca parents: 67 diff changeset	162	^ newLyt.
91 86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	163
86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	164	"Modified: 28.3.1997 / 19:52:48 / cg"
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	165	! !
6714daee4b26 checkin from browser ca parents: 61 diff changeset	166
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	167	!UIObjectView class methodsFor:'defaults'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	168
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	169	defaultGrid
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	170	^ 4 @ 4
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	171
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	172	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	173
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	174	gridShown
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	175	^ false
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	176
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	177	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	178
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	179	handleSize
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	180	"size of blob drawn for handles"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	181	^ 4
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	182
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	183	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	184
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	185	hitDelta
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	186	^ 4
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	187
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	188	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	189
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	190	!UIObjectView class methodsFor:'handles'!
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	191
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	192	handlesOf:aView do:aBlock
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	193	\|type v h\|
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	194
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	195	type := self layoutType:aView.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	196
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	197	(type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	198	v := self isVerticalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	199	h := self isHorizontalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	200
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	201	h ifTrue:[ aBlock value:(aView leftCenter ) value:#left.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	202	aBlock value:(aView rightCenter) value:#right.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	203	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	204	v ifTrue:[ aBlock value:(aView topCenter ) value:#top.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	205	aBlock value:(aView bottomCenter) value:#bottom.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	206	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	207
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	208	(h and:[v]) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	209	aBlock value:(aView origin ) value:#origin.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	210	aBlock value:(aView topRight ) value:#topRight.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	211	aBlock value:(aView bottomLeft) value:#bottomLeft.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	212	aBlock value:(aView corner ) value:#corner.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	213	^ self
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	214	]
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	215	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	216
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	217	aBlock value:(aView origin ) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	218	aBlock value:(aView topRight ) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	219	aBlock value:(aView bottomLeft) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	220
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	221	type == #Extent ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	222	v := self isVerticalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	223	h := self isHorizontalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	224
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	225	v ifTrue:[aBlock value:(aView bottomCenter) value:#bottom].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	226	h ifTrue:[aBlock value:(aView rightCenter ) value:#right ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	227
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	228	(h and:[v]) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	229	aBlock value:(aView corner) value:#corner.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	230	^ self
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	231	]
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	232	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	233	aBlock value:(aView corner) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	234
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	235
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	236	! !
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	237
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	238	!UIObjectView class methodsFor:'queries'!
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	239
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	240	isHorizontalResizable:aComponent
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	241	"returns true if instance is horizontal resizeable
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	242	"
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	243	(aComponent isKindOf:ScrollBar) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	244	^ aComponent orientation == #horizontal
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	245	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	246	(aComponent isKindOf:Scroller) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	247	^ aComponent orientation == #horizontal
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	248	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	249	(aComponent isKindOf:Slider) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	250	^ aComponent orientation == #horizontal
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	251	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	252	^ true
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	253
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	254	!
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	255
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	256	isVerticalResizable:aComponent
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	257	"returns true if instance is vertical resizeable
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	258	"
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	259	(aComponent isKindOf:EditField) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	260	^ false
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	261	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	262	(aComponent isKindOf:ComboBoxView) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	263	^ false
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	264	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	265	(aComponent isKindOf:CheckBox) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	266	^ false
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	267	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	268	(aComponent isKindOf:ScrollBar) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	269	^ aComponent orientation == #vertical
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	270	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	271	(aComponent isKindOf:Scroller) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	272	^ aComponent orientation == #vertical
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	273	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	274	(aComponent isKindOf:Slider) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	275	^ aComponent orientation == #vertical
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	276	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	277	^ true
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	278
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	279	!
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	280
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	281	layoutType:aView
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	282	"returns layout type of aView or nil
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	283	"
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	284	\|layout spec superView\|
1854c2e61c4e bug fixes ca parents: 100 diff changeset	285
1854c2e61c4e bug fixes ca parents: 100 diff changeset	286	aView notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	287	layout := aView geometryLayout.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	288	layout notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	289	layout isLayout ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	290	layout isLayoutFrame ifTrue:[ ^ #LayoutFrame ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	291	layout isAlignmentOrigin ifTrue:[ ^ #AlignmentOrigin ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	292	layout isLayoutOrigin ifTrue:[ ^ #LayoutOrigin ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	293	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	294	layout isRectangle ifTrue:[ ^ #Rectangle ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	295	layout isPoint ifTrue:[ ^ #Point ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	296	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	297	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	298	(superView := aView superView) notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	299	spec := superView specClass.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	300	spec canResizeSubComponents ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	301	^ #Extent
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	302	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	303	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	304	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	305	].
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	306	^ nil
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	307
67 09e9d4b57142 alignmentLayout Claus Gittinger <cg@exept.de> parents: 63 diff changeset	308	"Modified: 28.2.1997 / 13:02:16 / cg"
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	309	! !
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	310
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	311	!UIObjectView methodsFor:'accessing'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	312
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	313	gridAlign
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	314	"returns state of aligning to grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	315	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	316	^ aligning
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	317
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	318	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	319
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	320	gridAlign:aBool
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	321	"change state of aligning to grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	322	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	323	aBool ifTrue:[self alignOn]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	324	ifFalse:[self alignOff]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	325
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	326	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	327
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	328	gridParameters
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	329	"used by defineGrid, and in a separate method for
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	330	easier redefinition in subclasses.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	331	Returns the grid parameters in an array of 7 elements,
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	332	which control the appearance of the grid-pattern.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	333	the elements are:
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	334
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	335	bigStepH number of pixels horizontally between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	336	bigStepV number of pixels vertically between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	337	littleStepH number of pixels horizontally between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	338	littleStepV number of pixels vertically between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	339	gridAlignH number of pixels for horizontal grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	340	gridAlignV number of pixels for vertical grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	341	docBounds true, if document boundary should be shown
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	342
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	343	if littleStepH/V are nil, only bigSteps are drawn.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	344	"
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	345	gridParameters isNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	346	gridParameters := #(10 10 nil nil 10 10 false)
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	347	].
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	348	^ gridParameters
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	349
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	350
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	351	!
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	352
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	353	gridParameters:newGridParameters
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	354	"used by defineGrid, and in a separate method for
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	355	easier redefinition in subclasses.
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	356	Returns the grid parameters in an array of 7 elements,
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	357	which control the appearance of the grid-pattern.
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	358	the elements are:
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	359
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	360	bigStepH number of pixels horizontally between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	361	bigStepV number of pixels vertically between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	362	littleStepH number of pixels horizontally between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	363	littleStepV number of pixels vertically between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	364	gridAlignH number of pixels for horizontal grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	365	gridAlignV number of pixels for vertical grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	366	docBounds true, if document boundary should be shown
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	367
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	368	if littleStepH/V are nil, only bigSteps are drawn.
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	369	"
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	370	newGridParameters size == 7 ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	371	gridParameters := newGridParameters
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	372	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	373
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	374
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	375	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	376
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	377	gridShown:aBool
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	378	"change visibility of grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	379	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	380	aBool ifTrue:[self showGrid]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	381	ifFalse:[self hideGrid]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	382	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	383
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	384	hideGrid
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	385	"hide grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	386	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	387	gridShown ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	388	self withSelectionHiddenDo:[super hideGrid]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	389	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	390
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	391
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	392	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	393
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	394	showGrid
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	395	"show grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	396	"
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	397	self withSelectionHiddenDo:[super showGrid]
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	398	! !
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	399
1399 a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	400	!UIObjectView methodsFor:'accessing-behavior'!
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	401
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	402	enableStateChanged
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	403	"set the modification / test mode
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	404	"
1102 abcdd3d5a67b testMode enable/disable Claus Gittinger <cg@exept.de> parents: 1100 diff changeset	405	self shown ifTrue:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	406	enableChannel value ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	407	saveSelection := selection.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	408	self hideSelection.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	409	selection := nil.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	410	] ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	411	selection := saveSelection.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	412	self showSelection
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	413	]
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	414	]
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	415
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	416	"Created: / 30.3.1999 / 16:17:24 / stefan"
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	417	!
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	418
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	419	enabled
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	420	^ enableChannel value
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	421	!
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	422
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	423	enabled:aState
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	424	"set the modification / test mode
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	425	"
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	426
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	427	enableChannel value:aState
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	428
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	429	"Modified: / 30.3.1999 / 16:18:12 / stefan"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	430	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	431
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	432	resetModification
1918 f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	433	"set modification state to false"
f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	434
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	435	undoHistory resetModification.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	436	self undoHistoryChanged.
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	437	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	438
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	439	testMode
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	440	"returns true if running test
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	441	"
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	442	^ enableChannel value not
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	443
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	444
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	445	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	446
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	447	testMode:aBoolean
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	448	"change test mode
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	449	"
1102 abcdd3d5a67b testMode enable/disable Claus Gittinger <cg@exept.de> parents: 1100 diff changeset	450	enableChannel value:(aBoolean not)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	451	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	452
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	453	!UIObjectView methodsFor:'aspects'!
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	454
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	455	hasUndoHistoryHolder
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	456	hasUndoHistoryHolder isNil ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	457	hasUndoHistoryHolder := false asValue
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	458	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	459	^ hasUndoHistoryHolder
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	460	! !
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	461
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	462	!UIObjectView methodsFor:'blocked'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	463
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	464	addObject:anObject
1746 bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	465	"add the argument, anObject to the contents - with redraw"
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	466
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	467	self shouldNotImplement
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	468	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	469
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	470	addObjectWithoutRedraw:anObject
1746 bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	471	"add the argument, anObject to the contents - with redraw"
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	472
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	473	self shouldNotImplement
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	474	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	475
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	476	!UIObjectView methodsFor:'event handling'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	477
1833 6ad211a201cf * empty log message * werner parents: 1829 diff changeset	478	doublePressed:pressPoint
6ad211a201cf * empty log message * werner parents: 1829 diff changeset	479	!
6ad211a201cf * empty log message * werner parents: 1829 diff changeset	480
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	481	elementChangedSize:aView
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	482	"some element has changed its size; collect them during selectionHiddenLevel
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	483	is on
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	484	"
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	485	\|spv\|
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	486
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	487	spv := self findContainerOfView:aView.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	488
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	489	selectionHiddenLevel ~~ 0 ifTrue:[setOfSuperViewsSizeChanged add:spv]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	490	ifFalse:[spv sizeChanged:nil]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	491	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	492
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	493	exposeX:x y:y width:w height:h
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	494	"handle an expose event from device; redraw selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	495	"
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	496	resizeData isNil ifTrue:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	497	super exposeX:x y:y width:w height:h.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	498
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	499	"/ handle any expose events (for subcomponents) before
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	500	"/ redrawing the handles.
1911 0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	501	"/ (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	502	"/
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	503	"/ self selectionDo:[:aComponent \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	504	"/ aComponent withAllSubViewsDo:[:v \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	505	"/ v realized ifTrue:[
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	506	"/ self sensor flushExposeEventsFor:v.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	507	"/ v exposeX:0 y:0 width:v width height:v height.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	508	"/ ]
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	509	"/ ].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	510	"/ self showSelected:aComponent
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	511	"/ ]
993 88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	512	].
88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	513
1016 2660d468dc61 checkin from browser Claus Gittinger <cg@exept.de> parents: 997 diff changeset	514	"Modified: / 9.11.1998 / 12:50:34 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	515	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	516
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	517	keyPress:key x:x y:y
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	518	"any key pressed
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	519	"
1048 d6d4b7abfdd0 +cursorKeys to move widgets Claus Gittinger <cg@exept.de> parents: 1016 diff changeset	520	<resource: #keyboard ( #CursorUp #CursorDown #CursorLeft #CursorRight
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	521	#Delete #BackSpace #Cut #Copy #Paste #Cmdu #Again) >
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	522
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	523	\|n sensor\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	524
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	525	(key == #Cut or:[key == #Delete or:[key == #BackSpace]]) ifTrue: [
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	526	^ self deleteSelection
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	527	].
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	528	(key = #PreviousPage) ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	529	self selectNextUpInHierarchy.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	530	].
78 a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	531	key == #Copy ifTrue:[ ^ self copySelection].
a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	532	key == #Paste ifTrue:[ ^ self pasteBuffer].
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	533	key == #Cmdu ifTrue:[ ^ self undoLast ]. "/ #Undo
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	534
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	535	( #(CursorUp CursorDown CursorRight CursorLeft)
691d1471cd3e WOs changes werner parents: 1746 diff changeset	536	includes:key) ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	537	(sensor := self sensor) isNil ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	538	n := 1
691d1471cd3e WOs changes werner parents: 1746 diff changeset	539	] ifFalse:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	540	n := 1 + (sensor compressKeyPressEventsWithKey:key).
691d1471cd3e WOs changes werner parents: 1746 diff changeset	541	sensor shiftDown ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	542	n := n * 10.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	543	].
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	544	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	545
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	546	key == #CursorUp ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	547	^ self moveSelectionUp:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	548	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	549	key == #CursorDown ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	550	^ self moveSelectionDown:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	551	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	552	key == #CursorRight ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	553	^ self moveSelectionRight:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	554	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	555	key == #CursorLeft ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	556	^ self moveSelectionLeft:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	557	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	558	].
374 421f8a3723f1 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	559	super keyPress:key x:x y:y
421f8a3723f1 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	560
1048 d6d4b7abfdd0 +cursorKeys to move widgets Claus Gittinger <cg@exept.de> parents: 1016 diff changeset	561	"Modified: / 6.3.1999 / 22:47:48 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	562	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	563
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	564	processEvent:anEvent
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	565	"catch expose events for components, and redraw its handles after
1895 b7d6683ebaca * empty log message * Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	566	the redraw when this happens.
b7d6683ebaca * empty log message * Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	567	Return true, if I have eaten the event"
b7d6683ebaca * empty log message * Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	568
2203 919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	569	\|evView p\|
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	570
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	571	self testMode ifTrue:[^ false].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	572
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	573	evView := anEvent view.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	574	(evView isNil or:[evView == self]) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	575	^ false
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	576	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	577
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	578	(evView isComponentOf:self) ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	579	^ false
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	580	].
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	581
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	582	anEvent isInputEvent ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	583	"/ #isDamage: handled in PostEventHandler
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	584
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	585	"/ (shown and:[anEvent isDamage]) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	586	"/ (self isSelected:evView) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	587	"/ self showSelected:evView
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	588	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	589	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	590	^ false
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	591	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	592
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	593	(anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	594	^ true
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	595	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	596
2203 919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	597	anEvent isButtonMotionEvent ifTrue:[
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	598	"/ use current point - layout of underlaying view might change
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	599	"/ and computation dependent on origin is wrong
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	600	p := self sensor mousePoint.
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	601	p := device translatePoint:p fromView:nil toView:self.
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	602	] ifFalse:[
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	603	p := Point x:(anEvent x) y:(anEvent y).
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	604	p := device translatePoint:p fromView:evView toView:self.
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	605	].
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	606
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	607	"/ patch the event
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	608	anEvent x:p x.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	609	anEvent y:p y.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	610	anEvent view:self.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	611	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	612	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	613
624 26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	614	redrawX:nx y:ny width:nw height:nh
1911 0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	615	\|redrawFrame\|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	616
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	617	redrawFrame := Rectangle left:nx top:ny width:nw height:nh.
2246 1422d76c54dc changed #initialize Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	618	self clearRectangle:redrawFrame.
1911 0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	619
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	620	self selectionDo:[:aComponent \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	621	\|anyHandleToRedraw\|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	622
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	623	anyHandleToRedraw := false.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	624	self handlesOf:aComponent do:[:hRect :typeOfHandle \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	625	(hRect intersects:redrawFrame) ifTrue:[
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	626	anyHandleToRedraw := true.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	627	].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	628	].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	629	anyHandleToRedraw ifTrue:[
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	630	self showSelected:aComponent
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	631	]
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	632	]
2246 1422d76c54dc changed #initialize Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	633
1422d76c54dc changed #initialize Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	634	"Modified: / 16-01-2008 / 17:57:09 / cg"
624 26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	635	!
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	636
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	637	sizeChanged:how
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	638	"size of a view(s) changed
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	639	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	640	self withSelectionHiddenDo:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	641	super sizeChanged:how.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	642	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	643	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	644
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	645	!UIObjectView methodsFor:'initialization'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	646
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	647	initialize
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	648	"setup attributes
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	649	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	650	super initialize.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	651
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	652	setOfSuperViewsSizeChanged := IdentitySet new.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	653	self setDefaultActions.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	654
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	655	undoHistory := UndoHistory on:self.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	656
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	657	self enableChannel:(true asValue).
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	658	clipChildren := true.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	659	selectionHiddenLevel := 0.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	660
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	661	(self class gridShown) ifTrue:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	662	super showGrid
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	663	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	664
897 43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	665	"Modified: / 20.7.1998 / 18:14:51 / cg"
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	666	"Modified: / 30.3.1999 / 16:19:15 / stefan"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	667	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	668
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	669	map
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	670	"make the view visible on the screen and in case of a none empty
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	671	selection the selection will be shown.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	672	"
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	673	super map.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	674	self showSelection.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	675	!
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	676
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	677	realize
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	678	\|windowGroup\|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	679
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	680	super realize.
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	681	windowGroup := self windowGroup.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	682	windowGroup addPreEventHook:self.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	683	windowGroup addPostEventHook:(PostEventHandler new onView:self).
897 43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	684	!
43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	685
43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	686	remap
43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	687	"make the view visible on the screen and in case of a none empty
1746 bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	688	selection the selection will be shown"
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	689
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	690	self shouldNotImplement
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	691	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	692
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	693	!UIObjectView methodsFor:'misc'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	694
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	695	invertOutlineOf:something
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	696	"invert outline of an object or collection of objects
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	697	"
993 88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	698	\|wasClipped\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	699
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	700	(wasClipped := clipChildren) ifTrue:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	701	self clippedByChildren:(clipChildren := false).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	702	].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	703
993 88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	704	self xoring:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	705	\|p\|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	706
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	707	something isCollection ifTrue:[
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	708	something do:[:v \|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	709	\|p\|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	710
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	711	p := v originRelativeTo:self.
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	712	self displayRectangle:(p extent:v extent).
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	713	].
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	714	] ifFalse:[
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	715	\|p\|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	716
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	717	p := something originRelativeTo:self.
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	718	self displayRectangle:(p extent:something extent).
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	719	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	720	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	721
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	722	wasClipped ifTrue:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	723	self clippedByChildren:(clipChildren := true).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	724	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	725	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	726
78 a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	727	minSetOfSuperViews:setOfViews
a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	728	setOfViews isCollection ifFalse:[
1903 f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	729	setOfViews notNil ifTrue:[^ Array with:setOfViews].
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	730	^ nil
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	731	].
1903 f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	732	^ setOfViews
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	733	select:[:aView\|
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	734	(setOfViews contains:[:v \| aView isComponentOf:v]) not
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	735	]
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	736	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	737
624 26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	738	redrawObjectsInVisible:redrawFrame
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	739	"my objects are views - they redraw themself"
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	740
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	741	^ self
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	742
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	743	!
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	744
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	745	setDefaultActions
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	746	"set default actions
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	747	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	748	pressAction := [:pressPoint \| self startSelectOrMove:pressPoint].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	749	shiftPressAction := [:pressPoint \| self startSelectMoreOrMove:pressPoint].
1861 4c173871788a ctrl-action ca parents: 1833 diff changeset	750	ctrlPressAction := [:pressPoint \| self startSelectMoreOrMove:pressPoint].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	751	motionAction := [:movePoint \| nil].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	752	releaseAction := [nil].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	753	keyPressAction := nil.
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	754	doublePressAction := [:pressPoint \| self doublePressed: pressPoint].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	755
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	756	self cursor:Cursor normal.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	757	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	758
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	759	!UIObjectView methodsFor:'object moving'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	760
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	761	doObjectMove:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	762	"move selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	763	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	764	movedObject notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	765	self invertOutlineOf:movedObject.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	766
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	767	movedObject keysAndValuesDo:[:i :v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	768	self moveObject:v to:(aPoint - (moveDelta at:i)).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	769	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	770	self invertOutlineOf:movedObject.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	771	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	772
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	773	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	774
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	775	endObjectMove
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	776	"cleanup after object(s) move
2205 0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	777	send expose to each view - workaround....
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	778	"
2205 0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	779	\|newSel\|
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	780
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	781	movedObject isNil ifTrue:[^ self].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	782
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	783	movedObject size == 1 ifTrue:[ newSel := movedObject first ]
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	784	ifFalse:[ newSel := movedObject ].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	785	movedObject := nil.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	786
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	787	self withSelectionHiddenDo:[
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	788	self setSelection:newSel withRedraw:false.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	789
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	790	self allSubViewsDo:[:v\|
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	791	v shown ifTrue:[
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	792	v fill:v viewBackground.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	793	v exposeX:0 y:0 width:v width height:v height.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	794	].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	795	].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	796
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	797	self setDefaultActions.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	798	self layoutChanged.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	799	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	800	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	801
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	802	moveObject:anObject to:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	803	"move anObject to newOrigin, aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	804	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	805	\|dX dY org delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	806
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	807	anObject notNil ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	808	org := anObject computeOrigin.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	809
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	810	delta := aPoint - org.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	811	delta := (self alignToGrid:aPoint) - org.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	812	dX := delta x.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	813	dY := delta y.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	814
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	815	undoHistory withoutTransactionDo:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	816	self shiftLayout:anObject top:dY bottom:dY left:dX right:dX
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	817	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	818	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	819	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	820
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	821	startObjectMoveAt:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	822	"start object(s) move at a point
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	823	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	824	self startObjectMove:(self selection) at:aPoint.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	825	movedObject := self selection.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	826
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	827	movedObject isCollection ifFalse:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	828	movedObject := Array with:movedObject
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	829	].
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	830	self setSelection:nil withRedraw:true.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	831
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	832	moveDelta := movedObject collect:[:aView\|
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	833	aPoint - aView computeOrigin
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	834	].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	835	self transaction:#move objects:movedObject do:[:v\|self createUndoLayout:v].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	836	self invertOutlineOf:movedObject.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	837	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	838
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	839	startSelectMoreOrMove:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	840	"add/remove to/from selection"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	841
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	842	\|anObject\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	843
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	844	self enabled ifFalse:[^ self].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	845
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	846	anObject := self findObjectAt:aPoint.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	847	anObject notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	848	(self isSelected:anObject) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	849	self removeFromSelection:anObject
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	850	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	851	self addToSelection:anObject
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	852	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	853	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	854	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	855
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	856	startSelectOrMove:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	857	"a button is pressed at a point; start moving or selection
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	858	"
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	859	\|aView b v\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	860
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	861	self enabled ifFalse:[^ self].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	862
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	863	aView := self singleSelection.
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	864
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	865	aView notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	866	v := self findContainerOfView:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	867
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	868	v specClass canResizeSubComponents ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	869	b := self whichHandleOf:aView isHitBy:aPoint.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	870
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	871	(b notNil and:[b ~~ #view]) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	872	^ self startResizeBorder:b of:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	873	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	874	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	875
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	876	(self sensor ctrlDown and:[self canChangeLayoutOfView:aView]) ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	877	aView := nil
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	878	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	879	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	880
100 01775d3d8489 startSelectOrMove:aPoint ca parents: 99 diff changeset	881	aView isNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	882	(aView := self findObjectAt:aPoint) isNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	883	^ self select:nil
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	884	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	885
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	886	(self canChangeLayoutOfView:aView) ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	887	^ self select:aView
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	888	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	889	].
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	890
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	891	(self isSelected:aView) ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	892	self select:aView.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	893	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	894
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	895	(self numberOfSelections ~~ 1) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	896	releaseAction := [
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	897	self setDefaultActions.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	898	self select:aView
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	899	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	900	] ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	901	releaseAction := [self setDefaultActions]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	902	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	903
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	904	"prepare move operation for an object
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	905	"
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	906
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	907	motionAction := [:movePoint\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	908	(aPoint dist:movePoint) > 8.0 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	909	self startObjectMoveAt:aPoint
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	910	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	911	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	912	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	913
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	914	!UIObjectView methodsFor:'object resize'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	915
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	916	actionResize:anObject selector:aSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	917	"create and initialize action for resize
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	918	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	919	\|selector delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	920
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	921	delta := anObject container originRelativeTo:self.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	922	selector := ('resize:', aSelector, ':') asSymbol.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	923
543 e3f2bf2dfb59 eliminated use of Structure - added private ResizeData class instead Claus Gittinger <cg@exept.de> parents: 374 diff changeset	924	resizeData := ResizeData new
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	925	object:anObject selector:selector delta:delta.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	926
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	927	"can change cursor dependent on vertical/horizontal resizing
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	928	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	929	oldCursor := cursor.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	930	self cursor:(Cursor leftHand).
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	931
543 e3f2bf2dfb59 eliminated use of Structure - added private ResizeData class instead Claus Gittinger <cg@exept.de> parents: 374 diff changeset	932	"Modified: / 2.2.1998 / 13:40:55 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	933	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	934
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	935	doDragResize:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	936	"do a widget resize drag
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	937	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	938	\|p object\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	939
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	940	object := resizeData object.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	941
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	942	self invertOutlineOf:object.
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	943	p := (self alignToGrid:aPoint) - (resizeData delta).
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	944
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	945	self perform:(resizeData selector) with:object with:p.
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	946	Delay waitForSeconds:0.05.
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	947	[self sensor hasExposeEventFor:nil] whileTrue:[
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	948	self windowGroup processExposeEvents
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	949	].
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	950
79 33212fbe9766 resize extent ca parents: 78 diff changeset	951	"/ object geometryLayout:(object geometryLayout).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	952	self invertOutlineOf:object
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	953	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	954
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	955	endResize
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	956	"cleanup after object resize
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	957	"
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	958	\|object\|
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	959
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	960	object := resizeData object.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	961	resizeData := nil.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	962
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	963	self invertOutlineOf:object.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	964	self setDefaultActions.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	965	self elementChangedSize:object.
138 035c98964c38 update ca parents: 134 diff changeset	966
035c98964c38 update ca parents: 134 diff changeset	967	"/ handle any expose events (for subcomponents) before
035c98964c38 update ca parents: 134 diff changeset	968	"/ redrawing the handles.
035c98964c38 update ca parents: 134 diff changeset	969	Delay waitForSeconds:0.05.
035c98964c38 update ca parents: 134 diff changeset	970	[self sensor hasExposeEventFor:nil] whileTrue:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	971	self windowGroup processExposeEvents
138 035c98964c38 update ca parents: 134 diff changeset	972	].
035c98964c38 update ca parents: 134 diff changeset	973
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	974	self setSelection:object withRedraw:true.
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	975	self forEach:selection do:[:aView \|
691d1471cd3e WOs changes werner parents: 1746 diff changeset	976	self recomputeShapeIfTransparentBox:aView.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	977	].
225 a40d26ed5e74 change selection behavior caused by new tree view ca parents: 208 diff changeset	978	self layoutChanged.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	979	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	980
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	981	layoutChanged
691d1471cd3e WOs changes werner parents: 1746 diff changeset	982	!
691d1471cd3e WOs changes werner parents: 1746 diff changeset	983
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	984	startResizeBorder:b of:selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	985	"resize selected view
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	986	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	987	\|object\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	988
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	989	object := self singleSelection.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	990	self actionResize:object selector:b.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	991
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	992	self transaction:#resize selectionDo:[:aView\|
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	993	self createUndoLayout:aView
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	994	].
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	995	self setSelection:nil withRedraw:true.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	996
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	997	motionAction := [:movePoint \| self doDragResize:movePoint].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	998	releaseAction := [self endResize].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	999	self invertOutlineOf:object
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1000	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1001
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1002	!UIObjectView methodsFor:'private'!
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1003
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1004	undoHistoryChanged
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1005	self hasUndoHistoryHolder value:(self hasUndoHistory).
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1006	! !
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1007
1714 f57812a56d17 method category rename Claus Gittinger <cg@exept.de> parents: 1705 diff changeset	1008	!UIObjectView methodsFor:'private-handles'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1009
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1010	handlesOf:aComponent do:aTwoArgAction
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1011	"perform action on each handle of a component
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1012	"
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1013	\|dlt ext\|
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1014
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1015	dlt := (aComponent originRelativeTo:self) - aComponent origin.
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1016	dlt := dlt - (4@4).
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1017	ext := 8@8.
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1018
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1019	self class handlesOf:aComponent do:[:pnt :wht \|
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1020	aTwoArgAction value:(pnt + dlt extent:ext) value:wht
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1021	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1022	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1023
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1024	whichHandleOf:aComponent isHitBy:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1025	"returns kind of handle or nil
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1026	"
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1027	self handlesOf:aComponent do:[:rectangle :what\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1028	(rectangle containsPoint:aPoint) ifTrue:[^ what]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1029	].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1030	^ nil
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1031	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1032
1714 f57812a56d17 method category rename Claus Gittinger <cg@exept.de> parents: 1705 diff changeset	1033	!UIObjectView methodsFor:'private-resizing subviews'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1034
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1035	recomputeShapeIfTransparentBox:aView
1829 35409df5492a * empty log message * werner parents: 1827 diff changeset	1036	(aView notNil and:[aView isTransparentBox]) ifTrue:[
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1037	aView computeShape.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1038	aView clear; redraw
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1039	].
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1040	!
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1041
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1042	resize:aView bottom:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1043	"resize a views bottom"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1044
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1045	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1046	self shiftLayout:aView top:0 bottom:((aPoint y) - (aView computeCorner y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1047	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1048	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1049
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1050	resize:aView bottomLeft:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1051	"resize a views bottom and left"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1052
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1053	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1054	self shiftLayout:aView top:0
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1055	bottom:((aPoint y) - (aView computeCorner y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1056	left:((aPoint x) - (aView computeOrigin x))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1057	right:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1058
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1059	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1060	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1061
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1062	resize:aView corner:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1063	"resize a views corner"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1064
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1065	\|delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1066
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1067	delta := aPoint - aView computeCorner.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1068
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1069	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1070	self shiftLayout:aView top:0 bottom:(delta y) left:0 right:(delta x)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1071	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1072	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1073
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1074	resize:aView left:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1075	"resize a views left"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1076
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1077	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1078	self shiftLayout:aView left:((aPoint x) - (aView computeOrigin x)) right:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1079	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1080	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1081
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1082	resize:aView origin:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1083	"resize a views origin"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1084
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1085	\|delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1086
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1087	delta := aPoint - aView computeOrigin.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1088
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1089	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1090	self shiftLayout:aView top:(delta y) bottom:0 left:(delta x) right:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1091	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1092	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1093
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1094	resize:aView right:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1095	"resize a views right"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1096
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1097	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1098	self shiftLayout:aView left:0 right:((aPoint x) - (aView computeCorner x))
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1099	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1100	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1101
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1102	resize:aView top:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1103	"resize a views top"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1104
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1105	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1106	self shiftLayout:aView top:((aPoint y) - (aView computeOrigin y)) bottom:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1107	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1108	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1109
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1110	resize:aView topRight:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1111	"resize a views top and right"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1112
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1113	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1114	self shiftLayout:aView top:((aPoint y) - (aView computeOrigin y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1115	bottom:0
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1116	left:0
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1117	right:((aPoint x) - (aView computeCorner x))
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1118
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1119	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1120	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1121
1714 f57812a56d17 method category rename Claus Gittinger <cg@exept.de> parents: 1705 diff changeset	1122	!UIObjectView methodsFor:'private-shift layout'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1123
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1124	shiftLayout:aView left:l right:r
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1125	"shift layout for a view; in case of an open transaction, the undo
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1126	action is registered
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1127	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1128	self shiftLayout:aView top:0 bottom:0 left:l right:r
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1129
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1130	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1131
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1132	shiftLayout:aView top:t bottom:b
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1133	"shift layout for a view; in case of an open transaction, the undo
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1134	action is registered
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1135	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1136	self shiftLayout:aView top:t bottom:b left:0 right:0
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1137
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1138
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1139	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1140
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1141	shiftLayout:aView top:t bottom:b left:l right:r
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1142	"shift layout for a view; in case of an open transaction, the undo
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1143	action is registered
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1144	"
79 33212fbe9766 resize extent ca parents: 78 diff changeset	1145	\|type layout oldExt\|
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1146
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1147	type := self class layoutType:aView.
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1148
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1149	type notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1150	self createUndoLayout:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1151
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1152	type == #Extent ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1153	oldExt := aView extent.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1154	aView extent:(oldExt + ((r-l) @ (b-t))).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1155	^ self
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1156	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1157
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1158	layout := aView geometryLayout copy.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1159
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1160	layout isLayout ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1161	layout leftOffset:(layout leftOffset + l)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1162	topOffset:(layout topOffset + t).
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1163
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1164	type == #LayoutFrame ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1165	layout bottomOffset:(layout bottomOffset + b).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1166	layout rightOffset:(layout rightOffset + r).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1167	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1168	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1169	type == #Rectangle ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1170	layout left:(layout left + l)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1171	right:(layout right + r)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1172	top:(layout top + t)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1173	bottom:(layout bottom + b).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1174	] ifFalse:[ "POINT"
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1175	layout x:(layout x + l) y:(layout y + t).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1176	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1177	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1178	aView geometryLayout:layout
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1179	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1180	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1181
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1182	!UIObjectView methodsFor:'searching'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1183
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1184	findObjectAt:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1185	"find the origin/corner of the currentWidget
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1186	"
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1187	\|view viewId lastId point\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1188
1500 36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1189	point := aPoint + (device translatePoint:0@0 fromView:self toView:rootView).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1190
1500 36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1191	viewId := rootView id.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1192	[viewId notNil] whileTrue:[
1500 36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1193	lastId := viewId.
36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1194	viewId := device viewIdFromPoint:point in:lastId
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1195	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1196
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1197	view := device viewFromId:lastId.
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1198	view == self ifTrue:[ ^ nil].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1199	^ view
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1200	"/ view ~~ inputView ifTrue:[^ view].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1201	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1202	"/ "/ look for 'hidden' views ...
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1203	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1204	"/ listOfViews := OrderedCollection new.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1205	"/ self allSubViewsDo:[:aView \|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1206	"/ \|org\|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1207	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1208	"/ aView ~~ inputView ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1209	"/ org := device translatePoint:0@0 fromView:aView toView:self.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1210	"/ ((org extent:aView extent) containsPoint:aPoint) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1211	"/ listOfViews add:aView.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1212	"/ ]
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1213	"/ ]
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1214	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1215	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1216	"/ listOfViews size > 0 ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1217	"/ ^ listOfViews last
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1218	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1219	"/ ^ nil
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1220	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1221	"/ "Modified: / 10.10.2001 / 14:05:07 / cg"
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1222	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1223	"/
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1224	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1225
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1226	!UIObjectView methodsFor:'selections'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1227
768 2ef5b8bed914 catch expose events when unselecting ca parents: 624 diff changeset	1228	hideSelection
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1229	"hide the selection - undraw hilights - whatever that is
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1230	"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1231	self showUnselected:selection.
768 2ef5b8bed914 catch expose events when unselecting ca parents: 624 diff changeset	1232	!
2ef5b8bed914 catch expose events when unselecting ca parents: 624 diff changeset	1233
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1234	moveableSelection
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1235	"checks whether the selection is not empty and all selected instances
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1236	can be moved. If true the selection is returned otherwise nil
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1237	"
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1238	\|coll\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1239
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1240	self hasSelection ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1241	(self canMove:(coll := self selection)) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1242	^ coll
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1243	]
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1244	].
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1245	^ nil
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1246	!
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1247
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1248	numberOfSelections
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1249	"return the number of selected instances
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1250	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1251	\|coll size\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1252
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1253	coll := self selection.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1254	size := coll size.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1255
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1256	(size ~~ 0 or:[coll isNil]) ifTrue:[^ size].
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1257	^ 1
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1258	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1259
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1260	selectNextUpInHierarchy
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1261	self halt.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1262	!
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1263
2215 b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1264	selection:newSelection
b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1265	"change selection to newSelection"
b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1266
b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1267	self select:newSelection
149 e652608690b1 help ... ca parents: 145 diff changeset	1268	!
e652608690b1 help ... ca parents: 145 diff changeset	1269
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1270	selectionDo:aBlock
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1271	"apply block to every selected object
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1272	"
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1273	self forEach:(self selection) do:aBlock
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1274
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1275
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1276	!
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1277
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1278	showSelection
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1279	"show the selection - draw handles
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1280	"
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1281	selectionHiddenLevel == 0 ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1282	self selectionDo:[:el\| self showSelected:el ]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1283	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1284	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1285
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1286	singleSelection
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1287	"checks whether one element is selected; in this case the element is
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1288	returned otherwise nil
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1289	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1290	\|coll\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1291
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1292	(coll := self selection) isCollection ifFalse:[
1745 3e7ce9e46a15 * empty log message * Claus Gittinger <cg@exept.de> parents: 1721 diff changeset	1293	^ coll
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1294	].
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1295
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1296	coll size == 1 ifTrue:[ ^ coll first].
1745 3e7ce9e46a15 * empty log message * Claus Gittinger <cg@exept.de> parents: 1721 diff changeset	1297	^ nil
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1298	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1299
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1300	singleSelectionDo:aBlock
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1301	"checks whether one element is selected; in this case the block
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1302	with argument the selected instance will be processed
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1303	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1304	\|view\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1305
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1306	(view := self singleSelection) notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1307	aBlock value:view
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1308	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1309	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1310
1230 23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1311	twoElementSelection
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1312	"checks whether exactly two elements are selected;
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1313	in this case, return the selection collection.
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1314	otherwise return nil
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1315	"
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1316	\|coll\|
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1317
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1318	(coll := self selection) isCollection ifFalse:[
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1319	^ nil "/ single
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1320	].
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1321
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1322	coll size == 2 ifTrue:[ ^ coll].
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1323	^ nil
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1324	!
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1325
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1326	unselect
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1327	"clear selection
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1328	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1329	self select:nil
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1330	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1331
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1332	withSelectionHiddenDo:aBlock
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	1333	"apply block with selection hidden (no handles)"
fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	1334
78 a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	1335	\|coll\|
a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	1336
138 035c98964c38 update ca parents: 134 diff changeset	1337	selectionHiddenLevel == 0 ifTrue:[
1555 4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1338	self hideSelection.
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1339	device flush.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1340	].
138 035c98964c38 update ca parents: 134 diff changeset	1341	selectionHiddenLevel := selectionHiddenLevel + 1.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1342
1555 4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1343	aBlock ensure:[
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1344	selectionHiddenLevel == 1 ifTrue:[
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1345	setOfSuperViewsSizeChanged notEmpty ifTrue:[
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1346	coll := self minSetOfSuperViews:setOfSuperViewsSizeChanged.
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1347	coll do:[:aView\| aView sizeChanged:nil].
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1348	setOfSuperViewsSizeChanged := IdentitySet new
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1349	].
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1350	selectionHiddenLevel := 0.
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1351	self selectionDo:[:aView\| self showSelected:aView].
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1352	] ifFalse:[
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1353	selectionHiddenLevel := selectionHiddenLevel - 1.
4ecde43a73d6 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1354	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1355	]
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1356	!
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1357
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1358	withoutSelectionDo:aBlock
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1359	"evaluate aBlock while selection is nilled
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1360	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1361	\|sel\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1362
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1363	self hasSelection ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1364	aBlock value
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1365	] ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1366	sel := self selection.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1367	self setSelection:nil withRedraw:true.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1368	aBlock value.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1369	self setSelection:sel withRedraw:true.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1370	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1371
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1372
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1373	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1374
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1375	!UIObjectView methodsFor:'selections basic'!
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1376
2215 b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1377	setSelection:newSelection withRedraw:doRedraw
b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1378	"set a new selection without change notifications"
b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1379
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1380	\| sel \|
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1381
2215 b0c8d7acc690 UseViewScroller Claus Gittinger <cg@exept.de> parents: 2205 diff changeset	1382	(sel := newSelection) == self ifTrue:[
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1383	sel := nil
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1384	].
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1385
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1386	doRedraw ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1387	self hideSelection.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1388	selection := sel.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1389
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1390	self forEach:selection do:[:aView \|
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1391	\|superView\|
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1392
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1393	superView := aView superView.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1394	self recomputeShapeIfTransparentBox:superView.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1395	].
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1396	self showSelection.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1397	] ifFalse:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1398	selection := sel
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1399	]
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1400	! !
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1401
1717 32ab910cb20c method category rename Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	1402	!UIObjectView methodsFor:'selections-basic'!
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1403
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1404	recursiveRepair:theDamages startIn:aView
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1405	"repair all views and contained views, which intersects the damage.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1406	!!!! all damages repaired are removed from the list of damages !!!!
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1407	"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1408	\|color isRepaired relOrg damage
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1409	bwWidth "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1410	x "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1411	y "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1412	w "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1413	h "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1414	relOrgX "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1415	relOrgY "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1416	width "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1417	height "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1418	size "{ Class:SmallInteger }"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1419	\|
1438 9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1420	aView isInputOnly ifTrue:[^ self ].
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1421
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1422	(aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ].
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1423
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1424	aView subViews notNil ifTrue:[
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1425	aView subViews reverseDo:[:v\| self recursiveRepair:theDamages startIn:v ].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1426	theDamages isEmpty ifTrue:[ ^ self ].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1427	].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1428
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1429	relOrg := aView originRelativeTo:self.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1430	bwWidth := aView borderWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1431	size := theDamages size.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1432
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1433	"/ compute relative origin starting from border left@top
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1434	relOrgX := relOrg x - bwWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1435	relOrgY := relOrg y - bwWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1436	width := aView width + bwWidth + bwWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1437	height := aView height + bwWidth + bwWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1438
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1439	size to:1 by:-1 do:[:anIndex\|
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1440	damage := theDamages at:anIndex.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1441
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1442	"/ compute the rectangle into the view
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1443	y := damage top - relOrgY.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1444	x := damage left - relOrgX.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1445	w := damage width.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1446	h := damage height.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1447
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1448	isRepaired := true.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1449
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1450	x < 0 ifTrue:[ w := w + x. x := 0. isRepaired := false ].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1451	y < 0 ifTrue:[ h := h + y. y := 0. isRepaired := false ].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1452	x + w > width ifTrue:[ w := width - x. isRepaired := false ].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1453	y + h > height ifTrue:[ h := height - y. isRepaired := false ].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1454
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1455	(w > 0 and:[h > 0]) ifTrue:[
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1456	bwWidth ~~ 0 ifTrue:[
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1457	color isNil ifTrue:[
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1458	"/ must force redraw of border
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1459	color := aView borderColor.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1460	aView borderColor:(Color colorId:1).
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1461	aView borderColor:color.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1462	].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1463	w := w - bwWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1464	h := h - bwWidth.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1465
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1466	(x := x - bwWidth) < 0 ifTrue:[w := w + x. x := 0].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1467	(y := y - bwWidth) < 0 ifTrue:[h := h + y. y := 0].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1468
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1469	(w > 0 and:[h > 0]) ifFalse:[w := 0].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1470	].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1471
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1472	w > 0 ifTrue:[
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1473	aView clearRectangleX:x y:y width:w height:h.
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1474	aView exposeX:x y:y width:w height:h
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1475	].
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1476	isRepaired ifTrue:[ theDamages removeIndex:anIndex ].
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1477	]
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1478	].
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1479	!
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1480
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1481	selection
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1482	"returns the current selection
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1483	"
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1484	^ selection
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1485
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1486
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1487	!
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1488
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1489	showUnselected:something
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1490	"show a component ot list of components unselected
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1491	"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1492	\|damages oldClipped\|
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1493
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1494	(selectionHiddenLevel ~~ 0 or:[something isNil]) ifTrue:[
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1495	^ self
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1496	].
1438 9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1497
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1498	damages := OrderedCollection new.
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1499
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1500	self forEach:something do:[:v\|
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1501	self handlesOf:v do:[:aDamage :wht\|
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1502	damages reverseDo:[:el\|
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1503	(el intersects:aDamage) ifTrue:[
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1504	damages removeIdentical:el.
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1505
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1506	aDamage left:(aDamage left min:el left)
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1507	right:(aDamage right max:el right)
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1508	top:(aDamage top min:el top)
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1509	bottom:(aDamage bottom max:el bottom)
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1510	]
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1511	].
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1512	damages add:aDamage
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1513	]
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1514	].
1438 9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1515
9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1516	damages do:[:el\| self clearRectangle:el ].
9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1517
9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1518	(oldClipped := clipChildren) ifFalse:[
9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1519	self clippedByChildren:(clipChildren := true)
9255d2e6226b checkin from browser ca parents: 1437 diff changeset	1520	].
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1521	self subViews reverseDo:[:v\| self recursiveRepair:damages startIn:v].
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	1522
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1523	oldClipped ~~ clipChildren ifTrue:[
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1524	self clippedByChildren:(clipChildren := oldClipped).
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1525	].
1568 a9d61da29e8b no need for device sync - flush will do Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	1526	device "sync" flush.
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1527	! !
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1528
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1529	!UIObjectView methodsFor:'testing'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1530
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1531	hasSelection
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1532	"returns true if any widget is selected
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1533	"
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1534	^ self numberOfSelections ~~ 0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1535
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1536	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1537
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1538	hasSingleSelection
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1539	"returns true if one widget is selected
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1540	"
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1541	^ self numberOfSelections == 1
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1542
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1543	!
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1544
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1545	hasUndoHistory
1918 f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	1546	"returns true if undos exists"
f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	1547
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1548	^ undoHistory isEmpty not
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1549	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1550
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1551	isModified
1918 f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	1552	"returns true if painter is modified"
f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	1553
f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	1554	^ undoHistory isModified
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1555	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1556
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1557	isSelected:anObject
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1558	"return true, if the argument, anObject is selected
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1559	"
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1560	anObject notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1561	self selectionDo:[:el\| el == anObject ifTrue:[^ true]]
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1562	].
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1563	^ false
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1564
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1565	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1566
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1567	!UIObjectView methodsFor:'transaction'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1568
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1569	createUndoLayout:aView
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1570	"prepare undo action for a view changing its layout
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1571	"
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1572	self subclassResponsibility
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1573
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1574	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1575
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1576	transaction:aType objects:something do:aOneArgBlock
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1577	"opens a transaction and evaluates a block within the transaction; the
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1578	argument to the block is a view from derived from something
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1579	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1580	self subclassResponsibility
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1581
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1582
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1583	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1584
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1585	transaction:aType selectionDo:aOneArgBlock
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1586	"opens a transaction and evaluates a block within the transaction; the
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1587	argument to the block is a view from the selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1588	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1589	self transaction:aType objects:(self selection) do:aOneArgBlock
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1590
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1591
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1592	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1593
1715 9eebdb3802aa method category rename Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	1594	!UIObjectView methodsFor:'user actions-dimension'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1595
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1596	copyExtent
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1597	"copy the extent from the selected object
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1598	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1599	\|object\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1600
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1601	object := self singleSelection.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1602
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1603	object notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1604	copiedExtent := object computeExtent
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1605	] ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1606	self warn:'exactly one element must be selected'.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1607	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1608
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1609
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1610
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1611	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1612
89 35c5711729c2 so far so good ca parents: 84 diff changeset	1613	copyLayout
35c5711729c2 so far so good ca parents: 84 diff changeset	1614	"copy the layout from the selected object
35c5711729c2 so far so good ca parents: 84 diff changeset	1615	"
35c5711729c2 so far so good ca parents: 84 diff changeset	1616	\|object\|
35c5711729c2 so far so good ca parents: 84 diff changeset	1617
35c5711729c2 so far so good ca parents: 84 diff changeset	1618	object := self singleSelection.
35c5711729c2 so far so good ca parents: 84 diff changeset	1619
35c5711729c2 so far so good ca parents: 84 diff changeset	1620	object notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1621	copiedLayout := object geometryLayout copy
89 35c5711729c2 so far so good ca parents: 84 diff changeset	1622	] ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1623	self warn:'exactly one element must be selected'.
89 35c5711729c2 so far so good ca parents: 84 diff changeset	1624	]
35c5711729c2 so far so good ca parents: 84 diff changeset	1625
35c5711729c2 so far so good ca parents: 84 diff changeset	1626
35c5711729c2 so far so good ca parents: 84 diff changeset	1627
35c5711729c2 so far so good ca parents: 84 diff changeset	1628	!
35c5711729c2 so far so good ca parents: 84 diff changeset	1629
1230 23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1630	exchangeLayouts
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1631	"exchange the layout of two elements
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1632	(useful to change the order of radiobuttons or checkBoxes)
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1633	"
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1634	\|objects l1 l2\|
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1635
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1636	objects := self twoElementSelection.
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1637
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1638	objects notNil ifTrue:[
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1639	l1 := (objects at:1) geometryLayout copy.
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1640	l2 := (objects at:2) geometryLayout copy.
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1641	self transaction:#exchangeLayout dimensionDo:[:v\|
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1642	v == (objects at:1) ifTrue:[
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1643	v geometryLayout:(l2 copy)
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1644	] ifFalse:[
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1645	v geometryLayout:(l1 copy).
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1646	]
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1647	]
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1648	] ifFalse:[
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1649	self warn:'exactly two elements must be selected'.
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1650	]
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1651
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1652
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1653
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1654	!
23e5d0c133e8 added exchangeLayouts function Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	1655
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1656	pasteExtent
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1657	"paste the copied extent to all objects in the selection
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1658	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1659	copiedExtent notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1660	self transaction:#pasteExtent dimensionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1661	self resize:v corner:(v computeOrigin + copiedExtent)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1662	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1663	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1664	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1665
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1666	pasteHeight
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1667	"paste the copied extent height to all objects in the selection
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1668	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1669	copiedExtent notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1670	self transaction:#pasteHeight dimensionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1671	self resize:v bottom:(v computeOrigin + copiedExtent)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1672	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1673	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1674
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1675	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1676
89 35c5711729c2 so far so good ca parents: 84 diff changeset	1677	pasteLayout
35c5711729c2 so far so good ca parents: 84 diff changeset	1678	"paste layout to all objects in the selection
35c5711729c2 so far so good ca parents: 84 diff changeset	1679	"
35c5711729c2 so far so good ca parents: 84 diff changeset	1680	copiedLayout notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1681	self transaction:#pasteLayout dimensionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1682	v geometryLayout:(copiedLayout copy)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1683	]
89 35c5711729c2 so far so good ca parents: 84 diff changeset	1684	]
35c5711729c2 so far so good ca parents: 84 diff changeset	1685	!
35c5711729c2 so far so good ca parents: 84 diff changeset	1686
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1687	pasteWidth
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1688	"paste the copied extent width to all objects in the selection
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1689	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1690	copiedExtent notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1691	self transaction:#pasteWidth dimensionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1692	self resize:v right:(v computeOrigin + copiedExtent)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1693	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1694	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1695
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1696	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1697
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1698	setExtent:anExtent
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1699	"change extent for all selected objects
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1700	"
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1701	self transaction:#extent dimensionDo:[:v\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1702	v geometryLayout:nil.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1703	v extent:anExtent.
67 09e9d4b57142 alignmentLayout Claus Gittinger <cg@exept.de> parents: 63 diff changeset	1704	].
09e9d4b57142 alignmentLayout Claus Gittinger <cg@exept.de> parents: 63 diff changeset	1705
09e9d4b57142 alignmentLayout Claus Gittinger <cg@exept.de> parents: 63 diff changeset	1706	"Modified: 28.2.1997 / 12:49:00 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1707	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1708
149 e652608690b1 help ... ca parents: 145 diff changeset	1709	setLayout:aLayout
e652608690b1 help ... ca parents: 145 diff changeset	1710	"change layout for all selected objects
e652608690b1 help ... ca parents: 145 diff changeset	1711	"
e652608690b1 help ... ca parents: 145 diff changeset	1712	self transaction:#layout dimensionDo:[:v\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1713	v geometryLayout:(aLayout copy)
149 e652608690b1 help ... ca parents: 145 diff changeset	1714	].
e652608690b1 help ... ca parents: 145 diff changeset	1715
e652608690b1 help ... ca parents: 145 diff changeset	1716	!
e652608690b1 help ... ca parents: 145 diff changeset	1717
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1718	setToDefaultExtent
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1719	"change extent of all selected views to their default extent
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1720	"
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1721	self transaction:#defaultExtent dimensionDo:[:v\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1722	self resize:v corner:(v computeOrigin + (v preferredExtent)).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1723	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1724
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1725	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1726
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1727	setToDefaultHeight
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1728	"change height of all selected views to their default height
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1729	"
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1730	self transaction:#defaultHeight dimensionDo:[:v\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1731	self resize:v bottom:(v computeOrigin + (v preferredExtent))
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1732	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1733
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1734	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1735
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1736	setToDefaultWidth
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1737	"change width of all selected views to their default width
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1738	"
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1739	self transaction:#defaultWidth dimensionDo:[:v\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1740	self resize:v right:(v computeOrigin + (v preferredExtent))
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1741	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1742
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1743	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1744
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1745	transaction:aType dimensionDo:aOneArgBlock
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1746	"change dimension within a transaction for the selected elements by evaluating
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1747	the block with the argument a view.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1748	"
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1749	self withSelectionHiddenDo:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1750	self transaction:aType selectionDo:[:aView\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1751	(self class layoutType:aView) notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1752	self createUndoLayout:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1753	aOneArgBlock value:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1754	self elementChangedSize:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1755	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1756	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1757	].
225 a40d26ed5e74 change selection behavior caused by new tree view ca parents: 208 diff changeset	1758	self layoutChanged
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1759
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1760	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1761
1715 9eebdb3802aa method category rename Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	1762	!UIObjectView methodsFor:'user actions-move'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1763
138 035c98964c38 update ca parents: 134 diff changeset	1764	moveDo:aOneArgBlock
035c98964c38 update ca parents: 134 diff changeset	1765	"perform a move operation
035c98964c38 update ca parents: 134 diff changeset	1766	"
035c98964c38 update ca parents: 134 diff changeset	1767	\|sensor tm\|
035c98964c38 update ca parents: 134 diff changeset	1768
035c98964c38 update ca parents: 134 diff changeset	1769	self moveableSelection isNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1770	^ self
138 035c98964c38 update ca parents: 134 diff changeset	1771	].
035c98964c38 update ca parents: 134 diff changeset	1772	sensor := self sensor.
035c98964c38 update ca parents: 134 diff changeset	1773
035c98964c38 update ca parents: 134 diff changeset	1774	tm := 0.15.
035c98964c38 update ca parents: 134 diff changeset	1775
035c98964c38 update ca parents: 134 diff changeset	1776	self withSelectionHiddenDo:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1777	self transaction:#move selectionDo:[:aView\|self createUndoLayout:aView].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1778
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1779	[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1780	self selectionDo:[:aView\| aOneArgBlock value:aView ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1781	Delay waitForSeconds:tm.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1782	tm := 0.02.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1783	self layoutChanged.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1784	sensor leftButtonPressed.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1785	] whileTrue.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1786
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1787	"/ handle any expose events (for subcomponents) before
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1788	"/ redrawing the handles.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1789	Delay waitForSeconds:0.05.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1790	[self sensor hasExposeEventFor:nil] whileTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1791	self windowGroup processExposeEvents
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1792	]
138 035c98964c38 update ca parents: 134 diff changeset	1793	].
035c98964c38 update ca parents: 134 diff changeset	1794	!
035c98964c38 update ca parents: 134 diff changeset	1795
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1796	moveSelectionDown
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1797	"move selection down
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1798	"
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1799	self moveSelectionDown:1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1800
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1801	!
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1802
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1803	moveSelectionDown:howMany
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1804	"move selection down
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1805	"
138 035c98964c38 update ca parents: 134 diff changeset	1806	\|gridY n\|
035c98964c38 update ca parents: 134 diff changeset	1807
035c98964c38 update ca parents: 134 diff changeset	1808	gridAlign notNil ifTrue:[gridY := gridAlign y]
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1809	ifFalse:[gridY := 1].
138 035c98964c38 update ca parents: 134 diff changeset	1810
035c98964c38 update ca parents: 134 diff changeset	1811	self moveDo:[:aView\|
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1812	aligning ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1813	n := ((aView computeCorner y) \\ gridY).
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1814
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1815	n ~~ 0 ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1816	n := gridY - n + 1.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1817	] ifFalse:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1818	n := gridY
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1819	]
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1820	] ifFalse:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1821	n := 1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1822	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1823	n := n * howMany.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1824	self shiftLayout:aView top:n bottom:n
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1825	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1826	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1827
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1828	moveSelectionLeft
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1829	"move selection left
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1830	"
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1831	self moveSelectionLeft:1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1832
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1833	!
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1834
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1835	moveSelectionLeft:howMany
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1836	"move selection left
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1837	"
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1838	\|gridX n\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1839
138 035c98964c38 update ca parents: 134 diff changeset	1840	gridAlign notNil ifTrue:[gridX := gridAlign x]
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1841	ifFalse:[gridX := 1].
138 035c98964c38 update ca parents: 134 diff changeset	1842
035c98964c38 update ca parents: 134 diff changeset	1843	self moveDo:[:aView\|
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1844	aligning ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1845	n := ((aView computeOrigin x) \\ gridX).
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1846	n == 0 ifTrue:[n := gridX].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1847	n := n negated.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1848	] ifFalse:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1849	n := -1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1850	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1851	n := n * howMany.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1852	self shiftLayout:aView left:n right:n
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1853	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1854	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1855
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1856	moveSelectionRight
1854c2e61c4e bug fixes ca parents: 100 diff changeset	1857	"move selection right
1854c2e61c4e bug fixes ca parents: 100 diff changeset	1858	"
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1859	self moveSelectionRight:1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1860
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1861	!
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1862
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1863	moveSelectionRight:howMany
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1864	"move selection right
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1865	"
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1866	\|gridX n\|
1854c2e61c4e bug fixes ca parents: 100 diff changeset	1867
138 035c98964c38 update ca parents: 134 diff changeset	1868	gridAlign notNil ifTrue:[gridX := gridAlign x]
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1869	ifFalse:[gridX := 1].
138 035c98964c38 update ca parents: 134 diff changeset	1870
035c98964c38 update ca parents: 134 diff changeset	1871	self moveDo:[:aView\|
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1872	aligning ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1873	n := ((aView computeCorner x) \\ gridX).
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1874
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1875	n ~~ 0 ifTrue:[n := n negated]
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1876	ifFalse:[n := gridX]
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1877	] ifFalse:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1878	n := 1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1879	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1880	n := n * howMany.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1881	self shiftLayout:aView left:n right:n
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1882	]
1854c2e61c4e bug fixes ca parents: 100 diff changeset	1883	!
1854c2e61c4e bug fixes ca parents: 100 diff changeset	1884
1854c2e61c4e bug fixes ca parents: 100 diff changeset	1885	moveSelectionUp
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1886	"move selection up
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1887	"
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1888	self moveSelectionUp:1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1889	!
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1890
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1891	moveSelectionUp:howMany
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1892	"move selection up
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1893	"
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	1894	\|gridY n\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1895
138 035c98964c38 update ca parents: 134 diff changeset	1896	gridAlign notNil ifTrue:[gridY := gridAlign y]
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1897	ifFalse:[gridY := 1].
138 035c98964c38 update ca parents: 134 diff changeset	1898
035c98964c38 update ca parents: 134 diff changeset	1899	self moveDo:[:aView\|
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1900	aligning ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1901	n := ((aView computeOrigin x) \\ gridY).
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1902	n == 0 ifTrue:[n := gridY].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1903	n := n negated.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1904	] ifFalse:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1905	n := -1
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1906	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1907	n := n * howMany.
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1908	self shiftLayout:aView top:n bottom:n
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1909	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1910
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1911	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1912
1715 9eebdb3802aa method category rename Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	1913	!UIObjectView methodsFor:'user actions-position'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1914
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1915	alignSelectionBottom
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1916	"align selection to the bottom of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1917	of one selection the object is aligned to the bottom of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1918	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1919	\|bmost delta sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1920
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1921	(sel := self moveableSelection) notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1922	self withSelectionHiddenDo:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1923	self numberOfSelections > 1 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1924	bmost := (sel first) computeCorner y.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1925
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1926	self transaction:#alignBottom selectionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1927	(delta := bmost - (v computeCorner y)) ~~ 0 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1928	self shiftLayout:v top:delta bottom:delta.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1929	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1930	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1931	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1932	self extentToFrame:#Bottom do:[:aLayout\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1933	aLayout bottomOffset:0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1934	aLayout bottomFraction:1.0
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1935	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1936	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1937	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1938	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1939	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1940
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1941
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1942
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1943	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1944
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1945	alignSelectionCenterHor
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1946	"align selection to the center/horizontal of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1947	of one selection the object is aligned to the center/horizontal of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1948	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1949	\|view center sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1950
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1951	(sel := self moveableSelection) notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1952	self withSelectionHiddenDo:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1953	view := self singleSelection.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1954
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1955	view notNil ifTrue:[
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	1956
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1957	view := self findContainerOfView:view.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1958	center := view computeExtent
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1959	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1960	view := sel first.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1961	center := view computeCorner + view computeOrigin.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1962	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1963	center := center x // 2.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1964
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1965	self transaction:#alignCenterHorizontal selectionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1966	\|newX oldX delta\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1967
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1968	oldX := v computeOrigin x.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1969	newX := center - ((v computeCorner x - oldX) // 2).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1970	delta := newX - oldX.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1971
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1972	self shiftLayout:v left:delta right:delta
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1973	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1974	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1975	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1976	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1977
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1978
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1979
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1980	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1981
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1982	alignSelectionCenterVer
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1983	"align selection to the center/vertical of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1984	of one selection the object is aligned to the center/vertical of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1985	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1986	\|view center sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1987
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1988	(sel := self moveableSelection) notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1989	self withSelectionHiddenDo:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1990	view := self singleSelection.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1991
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1992	view notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1993	view := self findContainerOfView:view.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1994	center := view computeExtent
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1995	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1996	view := sel first.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1997	center := view computeCorner + view computeOrigin.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1998	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1999	center := center y // 2.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2000
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2001	self transaction:#alignCenterVertical selectionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2002	\|newY oldY delta\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2003
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2004	oldY := v computeOrigin y.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2005	newY := center - ((v computeCorner y - oldY) // 2).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2006	delta := newY - oldY.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2007
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2008	self shiftLayout:v top:delta bottom:delta
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2009	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2010	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2011	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2012	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2013	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2014
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2015	alignSelectionLeft
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2016	"align selection to the left of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2017	of one selection the object is aligned to the left of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2018	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2019	\|lmost delta sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2020
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2021	(sel := self moveableSelection) notNil ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2022	self withSelectionHiddenDo:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2023	self numberOfSelections > 1 ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2024	lmost := (sel first) computeOrigin x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2025
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2026	self transaction:#alignLeft selectionDo:[:v\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2027	(delta := lmost - (v computeOrigin x)) ~~ 0 ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2028	self shiftLayout:v left:delta right:delta
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2029	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2030	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2031	] ifFalse:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2032	self extentToFrame:#Left do:[:aLayout\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2033	aLayout leftFraction:0.0 offset:0.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2034	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2035	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2036	].
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2037	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2038	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2039	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2040
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2041	alignSelectionLeftAndRight
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2042	"align selection to the left/right of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2043	of one selection the object is aligned to the left/right of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2044	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2045	\|lmost rmost sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2046
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2047	(sel := self moveableSelection) notNil ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2048	self withSelectionHiddenDo:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2049	self numberOfSelections > 1 ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2050	lmost := (sel first) computeOrigin x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2051	rmost := (sel first) computeCorner x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2052
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2053	self transaction:#alignLeftRight selectionDo:[:aView\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2054	\|layout\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2055	layout := self class asLayoutFrameFromView:aView.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2056
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2057	layout notNil ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2058	self createUndoLayout:aView.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2059	aView geometryLayout:layout.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2060
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2061	undoHistory withoutTransactionDo:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2062	self shiftLayout:aView left:(lmost - (aView computeOrigin x))
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2063	right:(rmost - (aView computeCorner x)).
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2064	].
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2065	self elementChangedSize:aView
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2066	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2067	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2068	] ifFalse:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2069	self extentToFrame:#LeftRight do:[:aLayout\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2070	aLayout leftFraction:0.0 offset:0.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2071	aLayout rightFraction:1.0 offset:0.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2072	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2073	]
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2074	].
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	2075	self layoutChanged
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2076	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2077	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2078
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2079	alignSelectionRight
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2080	"align selection to the right of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2081	of one selection the object is aligned to the right of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2082	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2083	\|rmost delta sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2084
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2085	(sel := self moveableSelection) notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2086	self withSelectionHiddenDo:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2087	self numberOfSelections > 1 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2088	rmost := (sel first) computeCorner x.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2089
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2090	self transaction:#alignRight selectionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2091	(delta := rmost - (v computeCorner x)) ~~ 0 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2092	self shiftLayout:v left:delta right:delta
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2093	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2094	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2095	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2096	self extentToFrame:#Right do:[:aLayout\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2097	aLayout rightOffset:0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2098	aLayout rightFraction:1.0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2099	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2100	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2101	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2102	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2103	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2104	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2105
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2106	alignSelectionTop
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2107	"align selection to the top of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2108	of one selection the object is aligned to the top of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2109	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2110	\|tmost delta sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2111
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2112	(sel := self moveableSelection) notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2113	self withSelectionHiddenDo:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2114	self numberOfSelections > 1 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2115	tmost := (sel first) computeOrigin y.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2116
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2117	self transaction:#alignTop selectionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2118	(delta := tmost - (v computeOrigin y)) ~~ 0 ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2119	self shiftLayout:v top:delta bottom:delta
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2120	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2121	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2122	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2123	self extentToFrame:#Top do:[:aLayout\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2124	aLayout topOffset:0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2125	aLayout topFraction:0.0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2126	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2127	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2128	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2129	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2130	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2131
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2132	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2133
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2134	alignSelectionTopAndBottom
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2135	"align selection to the top/bottom of the first object in the selection; in case
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2136	of one selection the object is aligned to the top/bottom of its superview
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2137	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2138	\|tmost bmost sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2139
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2140	(sel := self moveableSelection) notNil ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2141	self withSelectionHiddenDo:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2142	self numberOfSelections > 1 ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2143	tmost := (sel first) computeOrigin y.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2144	bmost := (sel first) computeCorner y.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2145
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2146	self transaction:#alignTopBottom selectionDo:[:aView\|
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2147	\|layout\|
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2148	layout := self class asLayoutFrameFromView:aView.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2149
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2150	layout notNil ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2151	self createUndoLayout:aView.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2152	aView geometryLayout:layout.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2153
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2154	undoHistory withoutTransactionDo:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2155	self shiftLayout:aView top:(tmost - (aView computeOrigin y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2156	bottom:(bmost - (aView computeCorner y)).
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2157	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2158	self elementChangedSize:aView
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2159	]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2160	]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2161	] ifFalse:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2162	self extentToFrame:#TopBottom do:[:aLayout\|
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2163	aLayout topOffset:0.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2164	aLayout topFraction:0.0.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2165	aLayout bottomOffset:0.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2166	aLayout bottomFraction:1.0.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2167	]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2168	]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2169	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2170	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2171	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2172	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2173
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2174	centerSelection:aOneArgBlockXorY orientation:orientation
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2175	"center selection horizontal or vertical dependant on the block result( x or y).
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2176	The argument to the block is the point.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2177	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2178	\|superview min max delta val\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2179
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2180	(self moveableSelection) isNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2181	^ self
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2182	].
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2183
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2184	self withSelectionHiddenDo:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2185	max := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2186
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2187	self selectionDo:[:aView \|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2188	superview isNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2189	superview := self findContainerOfView:aView
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2190	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2191	(self findContainerOfView:aView) == superview ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2192	^ self notify:'views must have same superview'.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2193	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2194	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2195	val := aOneArgBlockXorY value:(aView computeOrigin).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2196
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2197	min isNil ifTrue:[min := val]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2198	ifFalse:[min := min min:val].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2199
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2200	val := aOneArgBlockXorY value:(aView computeCorner).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2201	max := max max:val.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2202	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2203
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2204	val := aOneArgBlockXorY value:(superview computeExtent).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2205	max := (min + val - max) // 2.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2206
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2207	max == min ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2208	\|type\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2209	(orientation == #y) ifTrue:[type := #centerVertical]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2210	ifFalse:[type := #centerHorizontal].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2211	delta := max - min.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2212
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2213	self transaction:type selectionDo:[:v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2214	orientation == #y ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2215	self shiftLayout:v top:delta bottom:delta
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2216	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2217	self shiftLayout:v left:delta right:delta
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2218	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2219	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2220	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2221	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2222	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2223
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2224
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2225	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2226
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2227	centerSelectionHor
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2228	"center selection horizontal
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2229	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2230	self centerSelection:[:aPoint\| aPoint x] orientation:#x
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2231
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2232
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2233	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2234
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2235	centerSelectionVer
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2236	"center selection vertical
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2237	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2238	self centerSelection:[:aPoint\| aPoint y] orientation:#y
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2239	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2240
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2241	extentToFrame:toWhat do:aBlock
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2242	"align to frame (Left Right ...) and perform the block on a frameLayout
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2243	"
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2244	\|layout type\|
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2245
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2246	type := ('extent', toWhat asString) asSymbol.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2247
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2248	self transaction:type selectionDo:[:aView\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2249	layout := self class asLayoutFrameFromView:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2250
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2251	layout notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2252	self createUndoLayout:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2253	aBlock value:layout.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2254	aView geometryLayout:layout.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2255	self elementChangedSize:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2256	]
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2257	]
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2258	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2259
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2260	spreadSelectionHor
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2261	"spread multiple selection horizontal
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2262	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2263	\|sumWidths min max viewsInOrder topsInOrder count space sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2264
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2265	sel := self moveableSelection.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2266
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2267	(sel notNil and:[self numberOfSelections > 1]) ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2268	^ self
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2269	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2270
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2271	self withSelectionHiddenDo:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2272	count := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2273	sumWidths := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2274	max := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2275
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2276	self selectionDo:[:aView \|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2277	sumWidths := sumWidths + aView width.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2278
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2279	min isNil ifTrue:[min := aView left]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2280	ifFalse:[min := min min:(aView left)].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2281
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2282	max := max max:(aView right).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2283	count := count + 1
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2284	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2285	viewsInOrder := Array withAll:sel.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2286	topsInOrder := viewsInOrder collect:[:aView \| aView left].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2287	topsInOrder sortWith:viewsInOrder.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2288
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2289	space := (((max - min) - sumWidths) / (count - 1)) rounded asInteger.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2290
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2291	self transaction:#spreadHorizontal objects:viewsInOrder do:[:aView\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2292	\|delta\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2293
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2294	delta := min - aView computeOrigin x.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2295	self shiftLayout:aView left:delta right:delta.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2296	min := min + aView computeExtent x + space
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2297	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2298	].
225 a40d26ed5e74 change selection behavior caused by new tree view ca parents: 208 diff changeset	2299	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2300
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2301	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2302
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2303	spreadSelectionVer
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2304	"spread multiple selection vertical
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2305	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2306	\|sumHeights min max viewsInOrder topsInOrder count space sel\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2307
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2308	sel := self moveableSelection.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2309
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	2310	(sel notNil and:[self numberOfSelections > 1]) ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2311	^ self
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2312	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2313
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2314	self withSelectionHiddenDo:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2315	count := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2316	sumHeights := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2317	max := 0.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2318
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2319	self selectionDo:[:aView \|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2320	sumHeights := sumHeights + aView height.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2321
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2322	min isNil ifTrue:[min := aView top]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2323	ifFalse:[min := min min:(aView top)].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2324
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2325	max := max max:(aView bottom).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2326	count := count + 1
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2327	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2328	viewsInOrder := Array withAll:sel.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2329	topsInOrder := viewsInOrder collect:[:aView\|aView top].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2330	topsInOrder sortWith:viewsInOrder.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2331
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2332	space := (((max - min) - sumHeights) / (count - 1)) rounded asInteger.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2333
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2334	self transaction:#spreadVertical objects:viewsInOrder do:[:aView\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2335	\|delta\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2336
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2337	delta := min - aView computeOrigin y.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2338	self shiftLayout:aView top:delta bottom:delta.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2339	min := min + aView height + space
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2340	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2341	].
225 a40d26ed5e74 change selection behavior caused by new tree view ca parents: 208 diff changeset	2342	self layoutChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2343	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2344
1715 9eebdb3802aa method category rename Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	2345	!UIObjectView methodsFor:'user actions-undo history'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2346
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2347	enableUndoHistory:aState
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2348	"enable or disable undo history"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2349
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2350	undoHistory enabled:aState
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2351	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2352
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2353	openUndoMenu
149 e652608690b1 help ... ca parents: 145 diff changeset	2354	self select:nil.
138 035c98964c38 update ca parents: 134 diff changeset	2355	undoHistory openUndoMenu
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2356	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2357
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2358	removeUndoHistory
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2359	"delete total undo history"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2360
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2361	undoHistory initializeFor:self.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2362	self undoHistoryChanged
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2363	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2364
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2365	undoLast
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2366	"undo last action"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2367
138 035c98964c38 update ca parents: 134 diff changeset	2368	\|newSel oldSel\|
035c98964c38 update ca parents: 134 diff changeset	2369
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2370	undoHistory notEmpty ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2371	self hasSelection ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2372	oldSel := OrderedCollection new.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2373	newSel := OrderedCollection new.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2374
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2375	self selectionDo:[:aView\|\|p\|
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2376	(p := self propertyOfView:aView) notNil ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2377	oldSel add:(p identifier)
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2378	]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2379	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2380	self setSelection:nil withRedraw:true.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2381	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2382
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2383	self withSelectionHiddenDo:[undoHistory undoLast:1].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2384
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2385	oldSel notNil ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2386	oldSel do:[:id\|\|v\|
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2387	(v := self findViewWithId:id) notNil ifTrue:[newSel add:v]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2388	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2389	self select:newSel.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2390	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2391	self undoHistoryChanged.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	2392	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2393	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2394
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2395	!UIObjectView::PostEventHandler methodsFor:'event handling'!
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2396
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2397	processEvent:anEvent
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2398	\|evView\|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2399
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2400	anEvent isDamage ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2401	onView testMode ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2402	evView := anEvent view.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2403
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2404	(onView isSelected:evView) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2405	onView showSelected:evView.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2406	]
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2407	]
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2408	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2409	^ false
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2410	! !
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2411
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2412	!UIObjectView::PostEventHandler methodsFor:'instance creation'!
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2413
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2414	onView:aView
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2415	onView := aView.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2416	! !
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	2417
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2418	!UIObjectView::ResizeData methodsFor:'accessing'!
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2419
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2420	delta
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2421	^ delta
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2422
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2423	"Created: / 2.2.1998 / 13:40:32 / cg"
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2424	!
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2425
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2426	object
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2427	^ object
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2428
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2429	"Created: / 2.2.1998 / 13:40:24 / cg"
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2430	!
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2431
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2432	object:anObject selector:aSymbol delta:anInteger
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2433	object := anObject.
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2434	selector := aSymbol.
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2435	delta := anInteger.
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2436
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2437	"Created: / 2.2.1998 / 13:39:22 / cg"
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2438	!
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2439
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2440	selector
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2441	^ selector
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2442
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2443	"Created: / 2.2.1998 / 13:40:42 / cg"
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2444	! !
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	2445
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2446	!UIObjectView::UndoHistory class methodsFor:'constants'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2447
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2448	maxHistorySize
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2449	"returns maximum size of history before removing oldest
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2450	record
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2451	"
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2452	^ 100
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2453
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2454
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2455	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2456
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	2457	!UIObjectView::UndoHistory class methodsFor:'documentation'!
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2458
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2459	documentation
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2460	"
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2461	undo history used by the UIPainter-Tool; to each operation, an undo block
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2462	and some text is stored. In case of a required undo, the corresponding
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2463	undo block will be performed.
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2464
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2465	[see also:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2466	UIObjectView
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2467	UIPainterView
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	2468
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	2469	[author:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2470	Claus Atzkern
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	2471	"
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2472
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2473
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2474	! !
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2475
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2476	!UIObjectView::UndoHistory class methodsFor:'instance creation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2477
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2478	on:aPainter
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2479	\|history\|
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2480
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2481	history := self new.
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2482	history initializeFor:aPainter.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2483	^ history
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2484	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2485
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2486	!UIObjectView::UndoHistory methodsFor:'accessing'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2487
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2488	addUndoSelector:aSelector withArgs:anArray
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2489	"add a selector with arguments to the current opened transaction; in case that no
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2490	transaction is opened or disabled the block will not be kept in the history."
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2491
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2492	self isTransactionOpen ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2493	transaction add:(Association key:aSelector value:anArray)
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2494	]
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2495	! !
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2496
1399 a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	2497	!UIObjectView::UndoHistory methodsFor:'accessing-behavior'!
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2498
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2499	enabled
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2500	^ enabled
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2501	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2502
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2503	enabled:aState
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2504	enabled := aState
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2505	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2506
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2507	resetModification
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2508	"set the modification state to false"
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2509
1342 75be821d97c3 fixed resetModified Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2510	"/ startIdentifier := identifier
75be821d97c3 fixed resetModified Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2511
75be821d97c3 fixed resetModified Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2512	identifier := startIdentifier := 0.
75be821d97c3 fixed resetModified Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2513	history := OrderedCollection new.
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2514	! !
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2515
1721 9c2fba503547 method category rename Claus Gittinger <cg@exept.de> parents: 1717 diff changeset	2516	!UIObjectView::UndoHistory methodsFor:'activation & deactivation'!
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2517
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2518	withinTransaction:aType text:aTextOrNil do:aBlock
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2519	"open a transaction; perform the block; finally close the transaction"
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2520
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2521	(enabled and:[transaction isNil]) ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2522	transaction := Transaction type:aType text:aTextOrNil.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2523
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2524	aBlock value.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2525
2041 80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2526	transaction notEmpty ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2527	identifier := identifier + 1.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2528	transaction identifier:identifier.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2529	history addLast:transaction.
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2530	history size > (self class maxHistorySize) ifTrue:[history removeFirst].
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2531	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2532	transaction := nil
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2533
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2534	] ifFalse:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2535	aBlock value
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2536	]
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2537	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2538
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2539	withoutTransactionDo:aNoArgBlock
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2540	"evaluate the block without opening a transaction or keeping changes
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2541	within a still opened transaction"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2542
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2543	\|oldState\|
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2544
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2545	oldState := enabled.
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2546	enabled := false.
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2547	aNoArgBlock value.
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2548	enabled := oldState.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2549	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2550
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2551	!UIObjectView::UndoHistory methodsFor:'initialization'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2552
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2553	initializeFor:aPainter
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2554	"setup for a painter and delete all existing history records"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2555
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2556	identifier := 0.
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2557	startIdentifier := 0.
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2558
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2559	painter := aPainter.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2560	history := OrderedCollection new.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2561	transaction := nil.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2562	enabled := true.
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2563	!
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2564
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2565	on:aPainter
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2566	self halt.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2567	self initializeFor:aPainter
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2568	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2569
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2570	!UIObjectView::UndoHistory methodsFor:'menu'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2571
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2572	openUndoMenu
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2573	\|list tabs top slv hzp inset selection okButton\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2574
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2575	history isEmpty ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2576	^ self
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2577	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2578
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2579	top := StandardSystemView new label:'undo history'; extent:250@350.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2580	slv := ScrollableView for:SelectionInListView origin:0.0@0.0 corner:1.0@1.0 in:top.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2581	hzp := HorizontalPanelView origin:0.0@1.0 corner:1.0@1.0 in:top.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2582	hzp horizontalLayout:#fitSpace.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2583
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2584	(Button abortButtonIn:hzp) action:[ selection := nil. top destroy ].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2585	okButton := Button okButtonIn:hzp.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2586	okButton label:'undo to end'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2587	okButton action:[ top destroy ].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2588
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2589	inset := hzp preferredExtent y.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2590	hzp topInset:(inset negated).
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2591	slv bottomInset:inset.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2592	slv := slv scrolledView.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2593
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2594	tabs := TabulatorSpecification new.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2595	tabs unit:#cm.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2596	tabs positions:#(0 5).
208 d6107fdfe5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2597	tabs align:#(#left #left).
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2598
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2599	list := history collect:[:aTrans\|\|e\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2600	e := MultiColListEntry new.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2601	e colAt:1 put:(aTrans typeAsString).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2602	e colAt:2 put:(aTrans text ? '').
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2603	e tabulatorSpecification:tabs.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2604	e
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2605	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2606
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2607	slv list:list.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2608	slv action:[:index \| selection := index ].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2609	top openModal.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2610
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2611	selection notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2612	self undoLast:(history size - selection + 1).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2613	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2614	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2615
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2616	!UIObjectView::UndoHistory methodsFor:'testing'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2617
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2618	isEmpty
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2619	"returns true if the undo history is empty"
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2620
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2621	^ history isEmpty
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2622	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2623
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2624	isModified
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2625	"returns true if the history is modified"
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2626
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2627	self isEmpty ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2628	^ false
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2629	].
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2630	^ history last identifier ~~ startIdentifier
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2631	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2632
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2633	isTransactionOpen
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2634	^ (enabled and:[transaction notNil])
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2635	!
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2636
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2637	notEmpty
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2638	"returns true if the undo history is not empty"
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2639
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2640	^ history notEmpty
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2641	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2642
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2643	!UIObjectView::UndoHistory methodsFor:'undo'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2644
1521 2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2645	labelOfLastUndo
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2646	"return astring describing the last undo-action (for the menu)"
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2647
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2648	history size = 0 ifTrue:[^ '* nothing to undo *'].
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2649	^ history last "actions" type
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2650
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2651	"Created: / 30.10.2001 / 13:45:28 / cg"
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2652	"Modified: / 30.10.2001 / 13:46:33 / cg"
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2653	!
2efd2b9419c4 undo: show type of undo in menu; Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	2654
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2655	undoLast:nTransactions
1959 fd6bf76e712a * empty log message * Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	2656	"undo the last n transactions; an open transaction will be closed;
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2657	transactions during undo are disabled"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2658
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2659	\|repeatTimes transaction actions\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2660
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2661	transaction := nil.
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2662	enabled := false.
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2663	repeatTimes := nTransactions min:(history size).
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2664
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2665	repeatTimes timesRepeat:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2666	transaction := history removeLast.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2667	actions := transaction actions.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2668
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2669	actions isCollection ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2670	actions reverseDo:[:aBlock\|
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2671	painter perform:(aBlock key) with:(aBlock value)
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2672	]
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2673	] ifFalse:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2674	painter perform:(actions key) with:(actions value)
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	2675	]
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2676	].
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2677	enabled := true.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2678	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2679
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2680	!UIObjectView::UndoHistory::Transaction class methodsFor:'documentation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2681
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	2682	documentation
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2683	"
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2684	represents one undo record, keeping the associated type and printable text
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2685	and the undo action performed on an undo request
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2686
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2687	[see also:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2688	UndoHistory
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	2689
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	2690	[author:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2691	Claus Atzkern
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	2692	"
715b3dbba87d selection handling changed ca parents: 128 diff changeset	2693
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2694	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2695
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2696	!UIObjectView::UndoHistory::Transaction class methodsFor:'instance creation'!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2697
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2698	type:aType text:aTextOrNil
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2699	^ self new type:aType text:aTextOrNil
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2700
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2701
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2702	! !
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2703
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2704	!UIObjectView::UndoHistory::Transaction methodsFor:'accessing'!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2705
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2706	actions
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2707	"returns actions associated with transaction
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2708	"
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2709	^ actions
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2710	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2711
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2712	identifier
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2713	"gets my identifier
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2714	"
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2715	^ identifier
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2716	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2717
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2718	identifier:anIdentifier
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2719	"sets my identifier
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2720	"
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2721	identifier := anIdentifier
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2722	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2723
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2724	text
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2725	"returns text or nil assigned to transaction
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2726	"
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2727	^ text
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2728	!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2729
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2730	type
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2731	"returns type assigned to transaction
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2732	"
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2733	^ type
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2734	!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2735
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2736	type:aType
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2737	"change type assigned to transaction
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2738	"
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2739	type := aType
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2740	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2741
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2742	typeAsString
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2743	"returns type as printable string
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2744	"
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2745	\|line name size sep\|
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2746
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2747	line := type asString.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2748	size := 0.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2749	line do:[:c\| (c isUppercase) ifTrue:[size := size+1] ].
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2750	name := String new:(line size + size).
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2751	size := 1.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2752	sep := Character space.
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2753
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2754	line do:[:c\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2755	(c isUppercase) ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2756	name at:size put:c
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2757	] ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2758	name at:size put:sep.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2759	sep := $&.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2760	size := size + 1.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2761	name at:size put:(c asLowercase)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2762	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2763	size := size + 1
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2764	].
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	2765	^ name
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2766	! !
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2767
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2768	!UIObjectView::UndoHistory::Transaction methodsFor:'adding'!
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2769
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2770	add:anUndoBlock
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2771	"add an undo action to the current transaction
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2772	"
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2773	actions isNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2774	actions := anUndoBlock
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2775	] ifFalse:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2776	actions isCollection ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2777	actions := OrderedCollection with:actions
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2778	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	2779	actions add:anUndoBlock.
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2780	]
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2781	! !
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2782
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2783	!UIObjectView::UndoHistory::Transaction methodsFor:'initialization'!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2784
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2785	type:aType text:aTextOrNil
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	2786	"initialize transaction
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2787	"
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2788	type := aType.
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2789	text := aTextOrNil.
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2790	! !
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2791
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2792	!UIObjectView::UndoHistory::Transaction methodsFor:'testing'!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2793
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2794	isEmpty
2041 80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2795	"returns true if no undo action is registered"
80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2796
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	2797	^ actions isNil
2041 80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2798	!
80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2799
80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2800	notEmpty
80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2801	"returns true if no undo action is registered"
80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2802
80ddafc474fb isEmpty ifFalse -> notEmpty Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	2803	^ actions notNil
47 5e4319953a0b * empty log message * ca parents: 44 diff changeset	2804	! !
5e4319953a0b * empty log message * ca parents: 44 diff changeset	2805
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2806	!UIObjectView class methodsFor:'documentation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2807
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2808	version
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2809	^ '$Header$'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2810	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 21 Jan 2008 14:32:07 +0100
changeset 2250	e65b8bf6224b
parent 2246	1422d76c54dc
child 2255	4cca07c42e74
permissions	-rw-r--r--