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

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

author	Claus Gittinger <cg@exept.de>
	Tue, 27 Aug 2019 00:47:52 +0200
changeset 3749	c10fb49af42b
parent 3691	362d9b0f6b47
child 3756	7fad458b3706
permissions	-rw-r--r--