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

author	Claus Gittinger <cg@exept.de>
	Mon, 11 May 2009 10:54:14 +0200
changeset 2513	1c2ac34566ab
parent 2510	0760bec5f1e3
child 2514	faf45b01db30
permissions	-rw-r--r--