stx-libtool2: UIObjectView.st@b8999543e2b4 (annotated)

156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	1	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	2	COPYRIGHT (c) 1995 by eXept Software AG
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	3	All Rights Reserved
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	4
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	5	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	6	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	7	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	8	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	9	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	10	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	11	"
1399 a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	12	"{ Package: 'stx:libtool2' }"
a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	13
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	14	ObjectView subclass:#UIObjectView
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	15	instanceVariableNames:'saveSelection undoHistory copiedExtent copiedLayout resizeData
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	16	clipChildren selectionHiddenLevel gridParameters
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	17	setOfSuperViewsSizeChanged hasUndoHistoryHolder'
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	18	classVariableNames:'CopiedLayout CopiedExtent'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	19	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	20	category:'Interface-UIPainter'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	21	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	22
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	23	Object subclass:#PostEventHandler
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	24	instanceVariableNames:'onView'
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	25	classVariableNames:''
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	26	poolDictionaries:''
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	27	privateIn:UIObjectView
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	28	!
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	29
1437 daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	30	Object subclass:#ResizeData
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	31	instanceVariableNames:'object selector delta'
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	32	classVariableNames:''
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	33	poolDictionaries:''
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	34	privateIn:UIObjectView
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	35	!
daaf701ab6a2 * empty log message * ca parents: 1427 diff changeset	36
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	37	Object subclass:#UndoHistory
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	38	instanceVariableNames:'startIdentifier identifier painter history transaction enabled'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	39	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	40	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	41	privateIn:UIObjectView
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	42	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	43
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	44	Object subclass:#Transaction
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	45	instanceVariableNames:'identifier type text actions'
54 d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	46	classVariableNames:''
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	47	poolDictionaries:''
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	48	privateIn:UIObjectView::UndoHistory
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	49	!
d0b5a33e6df0 * empty log message * ca parents: 52 diff changeset	50
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	51	!UIObjectView class methodsFor:'documentation'!
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	52
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	53	copyright
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	54	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	55	COPYRIGHT (c) 1995 by eXept Software AG
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	56	All Rights Reserved
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	57
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	58	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	59	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	60	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	61	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	62	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	63	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	64	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	65
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	66
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	67	!
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	68
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	69	documentation
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	70	"
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	71	buildIn view used by the UIPainter; it provides all services for creating, deleting
715b3dbba87d selection handling changed ca parents: 128 diff changeset	72	moving and changing layouts of painted components on a canvas.
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	73
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	74	[see also:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	75	UIBuilder
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	76	UIPainterView
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	77
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 153 diff changeset	78	[author:]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	79	Claus Atzkern
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	80	"
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	81
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	82	! !
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	83
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	84	!UIObjectView class methodsFor:'conversion'!
6714daee4b26 checkin from browser ca parents: 61 diff changeset	85
6714daee4b26 checkin from browser ca parents: 61 diff changeset	86	asLayoutFrameFromView:aView
6714daee4b26 checkin from browser ca parents: 61 diff changeset	87	"convert layout from aView to a frameLayout. On success the frameLayout is
6714daee4b26 checkin from browser ca parents: 61 diff changeset	88	returned otherwise nil
6714daee4b26 checkin from browser ca parents: 61 diff changeset	89	"
68 889c3877baf0 layout .... ca parents: 67 diff changeset	90	\|lF lO rF rO tF tO bF bO type layout newLyt\|
889c3877baf0 layout .... ca parents: 67 diff changeset	91
889c3877baf0 layout .... ca parents: 67 diff changeset	92	type := self layoutType:aView.
889c3877baf0 layout .... ca parents: 67 diff changeset	93	layout := aView geometryLayout.
889c3877baf0 layout .... ca parents: 67 diff changeset	94
91 86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	95	layout isNil ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	96	type == #Extent ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	97	layout := aView bounds asLayout
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	98	]
91 86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	99	].
86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	100
68 889c3877baf0 layout .... ca parents: 67 diff changeset	101	(type isNil or:[layout isNil]) ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	102	^ nil
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	103	].
6714daee4b26 checkin from browser ca parents: 61 diff changeset	104
68 889c3877baf0 layout .... ca parents: 67 diff changeset	105	type == #LayoutFrame ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	106	^ layout copy
68 889c3877baf0 layout .... ca parents: 67 diff changeset	107	].
889c3877baf0 layout .... ca parents: 67 diff changeset	108
889c3877baf0 layout .... ca parents: 67 diff changeset	109	layout isLayout ifFalse:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	110	type == #Rectangle ifTrue:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	111	lO := layout left.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	112	tO := layout top.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	113	rO := layout right.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	114	bO := layout bottom.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	115	] ifFalse:[
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	116	lO := layout x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	117	tO := layout y.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	118	rO := lO + aView extent x.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	119	bO := tO + aView extent y.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	120	].
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	121
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	122	^ LayoutFrame
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	123	leftFraction:0 offset:lO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	124	rightFraction:0 offset:rO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	125	topFraction:0 offset:tO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	126	bottomFraction:0 offset:bO
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	127	].
6714daee4b26 checkin from browser ca parents: 61 diff changeset	128
68 889c3877baf0 layout .... ca parents: 67 diff changeset	129	lF := layout leftFraction.
889c3877baf0 layout .... ca parents: 67 diff changeset	130	lO := layout leftOffset.
889c3877baf0 layout .... ca parents: 67 diff changeset	131	tF := layout topFraction.
889c3877baf0 layout .... ca parents: 67 diff changeset	132	tO := layout topOffset.
889c3877baf0 layout .... ca parents: 67 diff changeset	133	bF := tF.
889c3877baf0 layout .... ca parents: 67 diff changeset	134	bO := tO + aView extent y.
889c3877baf0 layout .... ca parents: 67 diff changeset	135	rF := lF.
889c3877baf0 layout .... ca parents: 67 diff changeset	136	rO := lO + aView extent x.
889c3877baf0 layout .... ca parents: 67 diff changeset	137
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	138	newLyt := LayoutFrame
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	139	leftFraction:lF offset:lO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	140	rightFraction:rF offset:rO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	141	topFraction:tF offset:tO
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	142	bottomFraction:bF offset:bO.
68 889c3877baf0 layout .... ca parents: 67 diff changeset	143
889c3877baf0 layout .... ca parents: 67 diff changeset	144	( (type == #AlignmentOrigin)
889c3877baf0 layout .... ca parents: 67 diff changeset	145	and:[layout leftAlignmentFraction ~~ 0
889c3877baf0 layout .... ca parents: 67 diff changeset	146	or:[layout topAlignmentFraction ~~ 0]]
889c3877baf0 layout .... ca parents: 67 diff changeset	147	) ifTrue:[
1581 d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	148	\|svRc prBd dlta\|
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	149
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	150	svRc := aView superView viewRectangle.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	151	prBd := aView preferredBounds.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	152	dlta := ( ((layout rectangleRelativeTo:svRc preferred:prBd) corner)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	153	- ((newLyt rectangleRelativeTo:svRc preferred:prBd) corner)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	154	) rounded.
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	155
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	156	newLyt
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	157	leftOffset:(lO + dlta x)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	158	rightOffset:(rO + dlta x)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	159	topOffset:(tO + dlta y)
d7afe06ebbae * empty log message * Claus Gittinger <cg@exept.de> parents: 1577 diff changeset	160	bottomOffset:(bO + dlta y).
68 889c3877baf0 layout .... ca parents: 67 diff changeset	161	].
889c3877baf0 layout .... ca parents: 67 diff changeset	162	^ newLyt.
91 86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	163
86d0c649f95e extent -> layout Claus Gittinger <cg@exept.de> parents: 89 diff changeset	164	"Modified: 28.3.1997 / 19:52:48 / cg"
63 6714daee4b26 checkin from browser ca parents: 61 diff changeset	165	! !
6714daee4b26 checkin from browser ca parents: 61 diff changeset	166
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	167	!UIObjectView class methodsFor:'defaults'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	168
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	169	defaultGrid
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	170	^ 4 @ 4
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	171
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	172	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	173
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	174	gridShown
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	175	^ false
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	176
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	177	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	178
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	179	handleSize
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	180	"size of blob drawn for handles"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	181	^ 4
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	182
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	183	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	184
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	185	hitDelta
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	186	^ 4
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	187
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	188	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	189
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	190	!UIObjectView class methodsFor:'handles'!
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	191
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	192	handlesOf:aView do:aBlock
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	193	\|type v h\|
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	194
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	195	type := self layoutType:aView.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	196
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	197	(type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	198	v := self isVerticalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	199	h := self isHorizontalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	200
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	201	h ifTrue:[ aBlock value:(aView leftCenter ) value:#left.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	202	aBlock value:(aView rightCenter) value:#right.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	203	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	204	v ifTrue:[ aBlock value:(aView topCenter ) value:#top.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	205	aBlock value:(aView bottomCenter) value:#bottom.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	206	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	207
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	208	(h and:[v]) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	209	aBlock value:(aView origin ) value:#origin.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	210	aBlock value:(aView topRight ) value:#topRight.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	211	aBlock value:(aView bottomLeft) value:#bottomLeft.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	212	aBlock value:(aView corner ) value:#corner.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	213	^ self
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	214	]
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	215	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	216
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	217	aBlock value:(aView origin ) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	218	aBlock value:(aView topRight ) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	219	aBlock value:(aView bottomLeft) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	220
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	221	type == #Extent ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	222	v := self isVerticalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	223	h := self isHorizontalResizable:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	224
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	225	v ifTrue:[aBlock value:(aView bottomCenter) value:#bottom].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	226	h ifTrue:[aBlock value:(aView rightCenter ) value:#right ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	227
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	228	(h and:[v]) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	229	aBlock value:(aView corner) value:#corner.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	230	^ self
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	231	]
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	232	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	233	aBlock value:(aView corner) value:#view.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	234
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	235
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	236	! !
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	237
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	238	!UIObjectView class methodsFor:'queries'!
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	239
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	240	isHorizontalResizable:aComponent
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	241	"returns true if instance is horizontal resizeable
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	242	"
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	243	(aComponent isKindOf:ScrollBar) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	244	^ aComponent orientation == #horizontal
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	245	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	246	(aComponent isKindOf:Scroller) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	247	^ aComponent orientation == #horizontal
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	248	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	249	(aComponent isKindOf:Slider) ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	250	^ aComponent orientation == #horizontal
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	251	].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	252	^ true
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	253
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	254	!
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	255
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	256	isVerticalResizable:aComponent
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	257	"returns true if instance is vertical resizeable
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	258	"
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	259	"/ (aComponent isKindOf:EditField) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	260	"/ ^ false
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	261	"/ ].
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	262	"/ (aComponent isKindOf:ComboBoxView) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	263	"/ ^ false
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	264	"/ ].
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	265	"/ (aComponent isKindOf:CheckBox) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	266	"/ ^ false
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	267	"/ ].
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	268	"/ (aComponent isKindOf:ScrollBar) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	269	"/ ^ aComponent orientation == #vertical
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	270	"/ ].
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	271	"/ (aComponent isKindOf:Scroller) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	272	"/ ^ aComponent orientation == #vertical
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	273	"/ ].
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	274	"/ (aComponent isKindOf:Slider) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	275	"/ ^ aComponent orientation == #vertical
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	276	"/ ].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	277	^ true
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	278	!
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	279
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	280	layoutType:aView
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	281	"returns layout type of aView or nil
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	282	"
113 1854c2e61c4e bug fixes ca parents: 100 diff changeset	283	\|layout spec superView\|
1854c2e61c4e bug fixes ca parents: 100 diff changeset	284
1854c2e61c4e bug fixes ca parents: 100 diff changeset	285	aView notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	286	layout := aView geometryLayout.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	287	layout notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	288	layout isLayout ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	289	layout isLayoutFrame ifTrue:[ ^ #LayoutFrame ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	290	layout isAlignmentOrigin ifTrue:[ ^ #AlignmentOrigin ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	291	layout isLayoutOrigin ifTrue:[ ^ #LayoutOrigin ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	292	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	293	layout isRectangle ifTrue:[ ^ #Rectangle ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	294	layout isPoint ifTrue:[ ^ #Point ].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	295	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	296	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	297	(superView := aView superView) notNil ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	298	spec := superView specClass.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	299	spec canResizeSubComponents ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	300	^ #Extent
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	301	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	302	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	303	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	304	].
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	305	^ nil
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	306
67 09e9d4b57142 alignmentLayout Claus Gittinger <cg@exept.de> parents: 63 diff changeset	307	"Modified: 28.2.1997 / 13:02:16 / cg"
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	308	! !
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	309
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	310	!UIObjectView methodsFor:'accessing'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	311
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	312	gridAlign
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	313	"returns state of aligning to grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	314	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	315	^ aligning
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	316
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	317	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	318
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	319	gridAlign:aBool
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	320	"change state of aligning to grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	321	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	322	aBool ifTrue:[self alignOn]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	323	ifFalse:[self alignOff]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	324
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	325	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	326
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	327	gridParameters
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	328	"used by defineGrid, and in a separate method for
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	329	easier redefinition in subclasses.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	330	Returns the grid parameters in an array of 7 elements,
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	331	which control the appearance of the grid-pattern.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	332	the elements are:
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	333
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	334	bigStepH number of pixels horizontally between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	335	bigStepV number of pixels vertically between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	336	littleStepH number of pixels horizontally between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	337	littleStepV number of pixels vertically between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	338	gridAlignH number of pixels for horizontal grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	339	gridAlignV number of pixels for vertical grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	340	docBounds true, if document boundary should be shown
60 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	if littleStepH/V are nil, only bigSteps are drawn.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	343	"
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	344	gridParameters isNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	345	gridParameters := #(10 10 nil nil 10 10 false)
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	346	].
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	347	^ gridParameters
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	348
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	349
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	350	!
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	351
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	352	gridParameters:newGridParameters
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	353	"used by defineGrid, and in a separate method for
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	354	easier redefinition in subclasses.
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	355	Returns the grid parameters in an array of 7 elements,
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	356	which control the appearance of the grid-pattern.
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	357	the elements are:
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	358
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	359	bigStepH number of pixels horizontally between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	360	bigStepV number of pixels vertically between 2 major steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	361	littleStepH number of pixels horizontally between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	362	littleStepV number of pixels vertically between 2 minor steps
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	363	gridAlignH number of pixels for horizontal grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	364	gridAlignV number of pixels for vertical grid align (pointer snap)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	365	docBounds true, if document boundary should be shown
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	366
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	367	if littleStepH/V are nil, only bigSteps are drawn.
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	368	"
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	369	newGridParameters size == 7 ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	370	gridParameters := newGridParameters
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	371	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	372
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	373
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	374	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	375
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	376	gridShown:aBool
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	377	"change visibility of grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	378	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	379	aBool ifTrue:[self showGrid]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	380	ifFalse:[self hideGrid]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	381	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	382
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	383	hideGrid
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	384	"hide grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	385	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	386	gridShown ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	387	self withSelectionHiddenDo:[super hideGrid]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	388	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	389
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	390
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	391	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	392
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	393	showGrid
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	394	"show grid
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	395	"
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	396	self withSelectionHiddenDo:[super showGrid]
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	397	! !
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	398
1399 a0687f5e1f54 category changes Claus Gittinger <cg@exept.de> parents: 1350 diff changeset	399	!UIObjectView methodsFor:'accessing-behavior'!
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	400
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	401	enableStateChanged
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	402	"toggle the test mode
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	403	"
1102 abcdd3d5a67b testMode enable/disable Claus Gittinger <cg@exept.de> parents: 1100 diff changeset	404	self shown ifTrue:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	405	enableChannel value ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	406	saveSelection := selection.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	407	self hideSelection.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	408	selection := nil.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	409	] ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	410	selection := saveSelection.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	411	self showSelection
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	412	]
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	413	]
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	414
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	415	"Created: / 30.3.1999 / 16:17:24 / stefan"
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	416	!
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	417
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	418	enabled
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	419	^ enableChannel value
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	420	!
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	421
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	422	enabled:aState
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	423	"set the modification / test mode
39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	424	"
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	425
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	426	enableChannel value:aState
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	427
bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	428	"Modified: / 30.3.1999 / 16:18:12 / stefan"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	429	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	430
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	431	resetModification
1918 f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	432	"set modification state to false"
f5e8dfe30838 * empty log message * Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	433
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	434	undoHistory resetModification.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	435	self undoHistoryChanged.
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	436	!
d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	437
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	438	testMode
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	439	"returns true if running test
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	440	"
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	441	^ enableChannel value not
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	442
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	443
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	444	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	445
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	446	testMode:aBoolean
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	447	"change test mode
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	448	"
1102 abcdd3d5a67b testMode enable/disable Claus Gittinger <cg@exept.de> parents: 1100 diff changeset	449	enableChannel value:(aBoolean not)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	450	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	451
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	452	!UIObjectView methodsFor:'aspects'!
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	453
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	454	hasUndoHistoryHolder
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	455	hasUndoHistoryHolder isNil ifTrue:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	456	hasUndoHistoryHolder := false asValue
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	457	].
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	458	^ hasUndoHistoryHolder
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	459	! !
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	460
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	461	!UIObjectView methodsFor:'blocked'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	462
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	463	addObject:anObject
1746 bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	464	"add the argument, anObject to the contents - with redraw"
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	465
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	466	self shouldNotImplement
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	467	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	468
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	469	addObjectWithoutRedraw:anObject
1746 bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	470	"add the argument, anObject to the contents - with redraw"
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	471
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	472	self shouldNotImplement
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	473	! !
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	!UIObjectView methodsFor:'event handling'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	476
1833 6ad211a201cf * empty log message * werner parents: 1829 diff changeset	477	doublePressed:pressPoint
6ad211a201cf * empty log message * werner parents: 1829 diff changeset	478	!
6ad211a201cf * empty log message * werner parents: 1829 diff changeset	479
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	480	elementChangedSize:aView
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	481	"some element has changed its size; collect them during selectionHiddenLevel
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	482	is on
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	483	"
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	484	\|spv\|
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	485
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	486	spv := self findContainerOfView:aView.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	487
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	488	selectionHiddenLevel ~~ 0 ifTrue:[setOfSuperViewsSizeChanged add:spv]
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	489	ifFalse:[spv sizeChanged:nil]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	490	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	491
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	492	exposeX:x y:y width:w height:h
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	493	"handle an expose event from device; redraw selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	494	"
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	495	resizeData isNil ifTrue:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	496	super exposeX:x y:y width:w height:h.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	497
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	498	"/ handle any expose events (for subcomponents) before
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	499	"/ redrawing the handles.
1911 0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	500	"/ (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	501	"/
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	502	"/ self selectionDo:[:aComponent \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	503	"/ aComponent withAllSubViewsDo:[:v \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	504	"/ v realized ifTrue:[
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	505	"/ self sensor flushExposeEventsFor:v.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	506	"/ v exposeX:0 y:0 width:v width height:v height.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	507	"/ ]
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	508	"/ ].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	509	"/ self showSelected:aComponent
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	510	"/ ]
993 88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	511	].
88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	512
1016 2660d468dc61 checkin from browser Claus Gittinger <cg@exept.de> parents: 997 diff changeset	513	"Modified: / 9.11.1998 / 12:50:34 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	514	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	515
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	516	keyPress:key x:x y:y
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	517	"any key pressed
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	518	"
1048 d6d4b7abfdd0 +cursorKeys to move widgets Claus Gittinger <cg@exept.de> parents: 1016 diff changeset	519	<resource: #keyboard ( #CursorUp #CursorDown #CursorLeft #CursorRight
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	520	#Delete #BackSpace #Cut #Copy #Paste #Cmdu #Again) >
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	521
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	522	\|n sensor\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	523
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	524	(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	525	^ self deleteSelection
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	526	].
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	527	(key = #PreviousPage) ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	528	self selectNextUpInHierarchy.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	529	].
78 a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	530	key == #Copy ifTrue:[ ^ self copySelection].
a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	531	key == #Paste ifTrue:[ ^ self pasteBuffer].
360 1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	532	key == #Cmdu ifTrue:[ ^ self undoLast ]. "/ #Undo
1a4ec4aa2c67 configuration of grid parameters ca parents: 353 diff changeset	533
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	534	( #(CursorUp CursorDown CursorRight CursorLeft)
691d1471cd3e WOs changes werner parents: 1746 diff changeset	535	includes:key) ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	536	(sensor := self sensor) isNil ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	537	n := 1
691d1471cd3e WOs changes werner parents: 1746 diff changeset	538	] ifFalse:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	539	n := 1 + (sensor compressKeyPressEventsWithKey:key).
691d1471cd3e WOs changes werner parents: 1746 diff changeset	540	sensor shiftDown ifTrue:[
691d1471cd3e WOs changes werner parents: 1746 diff changeset	541	n := n * 10.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	542	].
1222 bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	543	].
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	key == #CursorUp ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	546	^ self moveSelectionUp:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	547	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	548	key == #CursorDown ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	549	^ self moveSelectionDown:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	550	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	551	key == #CursorRight ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	552	^ self moveSelectionRight:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	553	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	554	key == #CursorLeft ifTrue:[
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	555	^ self moveSelectionLeft:n
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	556	].
bcb8b0ec295c collect cursor events for widget move; Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	557	].
374 421f8a3723f1 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	558	super keyPress:key x:x y:y
421f8a3723f1 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	559
1048 d6d4b7abfdd0 +cursorKeys to move widgets Claus Gittinger <cg@exept.de> parents: 1016 diff changeset	560	"Modified: / 6.3.1999 / 22:47:48 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	561	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	562
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	563	processEvent:anEvent
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	564	"catch expose events for components, and redraw its handles after
1895 b7d6683ebaca * empty log message * Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	565	the redraw when this happens.
b7d6683ebaca * empty log message * Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	566	Return true, if I have eaten the event"
b7d6683ebaca * empty log message * Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	567
2203 919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	568	\|evView p\|
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	569
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	570	self testMode ifTrue:[^ false].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	571
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	572	evView := anEvent view.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	573	(evView isNil or:[evView == self]) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	574	^ false
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	575	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	576
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	577	(evView isComponentOf:self) ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	578	^ false
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	579	].
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	580
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	581	anEvent isInputEvent ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	582	"/ #isDamage: handled in PostEventHandler
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	583
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	584	"/ (shown and:[anEvent isDamage]) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	585	"/ (self isSelected:evView) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	586	"/ self showSelected:evView
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	587	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	588	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	589	^ false
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	590	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	591
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	592	(anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	593	^ true
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	594	].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	595
2203 919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	596	anEvent isButtonMotionEvent ifTrue:[
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	597	"/ use current point - layout of underlaying view might change
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	598	"/ and computation dependent on origin is wrong
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	599	p := self sensor mousePoint.
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	600	p := device translatePoint:p fromView:nil toView:self.
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	601	] ifFalse:[
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	602	p := Point x:(anEvent x) y:(anEvent y).
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	603	p := device translatePoint:p fromView:evView toView:self.
919b6f0753fa changed #processEvent: ca parents: 2041 diff changeset	604	].
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	605
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	606	"/ patch the event
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	607	anEvent x:p x.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	608	anEvent y:p y.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	609	anEvent view:self.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	610	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	611	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	612
624 26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	613	redrawX:nx y:ny width:nw height:nh
1911 0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	614	\|redrawFrame\|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	615
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	616	redrawFrame := Rectangle left:nx top:ny width:nw height:nh.
2246 1422d76c54dc changed #initialize Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	617	self clearRectangle:redrawFrame.
1911 0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	618
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	619	self selectionDo:[:aComponent \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	620	\|anyHandleToRedraw\|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	621
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	622	anyHandleToRedraw := false.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	623	self handlesOf:aComponent do:[:hRect :typeOfHandle \|
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	624	(hRect intersects:redrawFrame) ifTrue:[
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	625	anyHandleToRedraw := true.
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	626	].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	627	].
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	628	anyHandleToRedraw ifTrue:[
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	629	self showSelected:aComponent
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	630	]
0538568157f0 handle redrawing fixed Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	631	]
2246 1422d76c54dc changed #initialize Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	632
1422d76c54dc changed #initialize Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	633	"Modified: / 16-01-2008 / 17:57:09 / cg"
624 26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	634	!
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	635
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	636	sizeChanged:how
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	637	"size of a view(s) changed
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	638	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	639	self withSelectionHiddenDo:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	640	super sizeChanged:how.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	641	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	642	! !
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	!UIObjectView methodsFor:'initialization'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	645
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	646	initialize
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	647	"setup attributes
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	648	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	649	super initialize.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	650
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	651	setOfSuperViewsSizeChanged := IdentitySet new.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	652	self setDefaultActions.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	653
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	654	undoHistory := UndoHistory on:self.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	655
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	656	self enableChannel:(true asValue).
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	657	clipChildren := true.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	658	selectionHiddenLevel := 0.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	659
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	660	(self class gridShown) ifTrue:[
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	661	super showGrid
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	662	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	663
897 43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	664	"Modified: / 20.7.1998 / 18:14:51 / cg"
1100 bf884041701f Implement common channels in View. Stefan Vogel <sv@exept.de> parents: 1048 diff changeset	665	"Modified: / 30.3.1999 / 16:19:15 / stefan"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	666	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	667
284 995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	668	map
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	669	"make the view visible on the screen and in case of a none empty
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	670	selection the selection will be shown.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	671	"
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	672	super map.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	673	self showSelection.
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	674	!
995078a58977 show the selection after mapping the view ca parents: 251 diff changeset	675
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	676	realize
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	677	\|windowGroup\|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	678
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	679	super realize.
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	680	windowGroup := self windowGroup.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	681	windowGroup addPreEventHook:self.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	682	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	683	!
43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	684
43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	685	remap
43f9bdc12ae4 make certain inputView is on top when restarting from a snapshot Claus Gittinger <cg@exept.de> parents: 777 diff changeset	686	"make the view visible on the screen and in case of a none empty
1746 bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	687	selection the selection will be shown"
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	688
bb4f759cf456 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1745 diff changeset	689	self shouldNotImplement
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	690	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	691
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	692	!UIObjectView methodsFor:'misc'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	693
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	694	invertOutlineOf:something
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	695	"invert outline of an object or collection of objects
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	696	"
993 88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	697	\|wasClipped\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	698
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	699	(wasClipped := clipChildren) ifTrue:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	700	self clippedByChildren:(clipChildren := false).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	701	].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	702
993 88a214788277 reenabled old showUnselected code. Claus Gittinger <cg@exept.de> parents: 967 diff changeset	703	self xoring:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	704	\|p\|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	705
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	706	something isCollection ifTrue:[
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	707	something do:[:v \|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	708	\|p\|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	709
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	710	p := v originRelativeTo:self.
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	711	self displayRectangle:(p extent:v extent).
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	712	].
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	713	] ifFalse:[
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	714	\|p\|
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	715
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	716	p := something originRelativeTo:self.
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	717	self displayRectangle:(p extent:something extent).
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	718	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	719	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	720
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	721	wasClipped ifTrue:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	722	self clippedByChildren:(clipChildren := true).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	723	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	724	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	725
2255 4cca07c42e74 code beautification Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	726	minClosedViewSetFor:setOfViews
4cca07c42e74 code beautification Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	727	"return the minimum closure for a given set of view;
4cca07c42e74 code beautification Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	728	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	729	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	730	is excluded from the result"
4cca07c42e74 code beautification Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	731
78 a0a00603a8b6 keep spec in properties ca parents: 76 diff changeset	732	setOfViews isCollection ifFalse:[
1903 f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	733	setOfViews notNil ifTrue:[^ Array with:setOfViews].
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	734	^ nil
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	735	].
1903 f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	736	^ setOfViews
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	737	select:[:aView\|
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	738	(setOfViews contains:[:v \| aView isComponentOf:v]) not
f409fa760169 refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	739	]
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	740	!
a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	741
624 26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	742	redrawObjectsInVisible:redrawFrame
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	743	"my objects are views - they redraw themself"
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	744
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	745	^ self
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	746
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	747	!
26e7978936fc ignore redraws - components redraw themself. Claus Gittinger <cg@exept.de> parents: 543 diff changeset	748
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	749	setDefaultActions
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	750	"set default actions
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	751	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	752	pressAction := [:pressPoint \| self startSelectOrMove:pressPoint].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	753	shiftPressAction := [:pressPoint \| self startSelectMoreOrMove:pressPoint].
1861 4c173871788a ctrl-action ca parents: 1833 diff changeset	754	ctrlPressAction := [:pressPoint \| self startSelectMoreOrMove:pressPoint].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	755	motionAction := [:movePoint \| nil].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	756	releaseAction := [nil].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	757	keyPressAction := nil.
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	758	doublePressAction := [:pressPoint \| self doublePressed: pressPoint].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	759
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	760	self cursor:Cursor normal.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	761	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	762
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	763	!UIObjectView methodsFor:'object moving'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	764
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	765	doObjectMove:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	766	"move selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	767	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	768	movedObject notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	769	self invertOutlineOf:movedObject.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	770
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	771	movedObject keysAndValuesDo:[:i :v\|
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	772	self moveObject:v to:(aPoint - (moveDelta at:i)).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	773	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	774	self invertOutlineOf:movedObject.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	775	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	776
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	777	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	778
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	779	endObjectMove
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	780	"cleanup after object(s) move
2205 0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	781	send expose to each view - workaround....
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	782	"
2205 0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	783	\|newSel\|
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	784
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	785	movedObject isNil ifTrue:[^ self].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	786
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	787	movedObject size == 1 ifTrue:[ newSel := movedObject first ]
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	788	ifFalse:[ newSel := movedObject ].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	789	movedObject := nil.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	790
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	791	self withSelectionHiddenDo:[
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	792	self setSelection:newSel withRedraw:false.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	793
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	794	self allSubViewsDo:[:v\|
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	795	v shown ifTrue:[
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	796	v fill:v viewBackground.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	797	v exposeX:0 y:0 width:v width height:v height.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	798	].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	799	].
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	800
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	801	self setDefaultActions.
0582767018d7 endObjectMove - send expose to all - workaround drawing ca parents: 2203 diff changeset	802	self layoutChanged.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	803	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	804	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	805
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	806	moveObject:anObject to:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	807	"move anObject to newOrigin, aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	808	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	809	\|dX dY org delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	810
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	811	anObject notNil ifTrue:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	812	org := anObject computeOrigin.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	813
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	814	delta := aPoint - org.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	815	delta := (self alignToGrid:aPoint) - org.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	816	dX := delta x.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	817	dY := delta y.
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	818
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	819	undoHistory withoutTransactionDo:[
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	820	self shiftLayout:anObject top:dY bottom:dY left:dX right:dX
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	821	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	822	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	823	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	824
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	825	startObjectMoveAt:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	826	"start object(s) move at a point
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	827	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	828	self startObjectMove:(self selection) at:aPoint.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	829	movedObject := self selection.
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	830
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	831	movedObject isCollection ifFalse:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	832	movedObject := Array with:movedObject
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	833	].
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	834	self setSelection:nil withRedraw:true.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	835
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	836	moveDelta := movedObject collect:[:aView\|
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	837	aPoint - aView computeOrigin
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	838	].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	839	self transaction:#move objects:movedObject do:[:v\|self createUndoLayout:v].
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	840	self invertOutlineOf:movedObject.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	841	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	842
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	843	startSelectMoreOrMove:aPoint
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	844	"add/remove to/from selection"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	845
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	846	\|anObject\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	847
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	848	self enabled ifFalse:[^ self].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	849
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	850	anObject := self findObjectAt:aPoint.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	851	anObject notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	852	(self isSelected:anObject) ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	853	self removeFromSelection:anObject
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	854	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	855	self addToSelection:anObject
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	856	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	857	]
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	startSelectOrMove:aPoint
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	861	"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	862
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	863	\|selectedView containerOfSelectedView
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	864	clickedView viewOperatedUpon b pView\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	865
119 39acd704ad51 testMode is now a ValueHolder ca parents: 113 diff changeset	866	self enabled ifFalse:[^ self].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	867
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	868	selectedView := self singleSelection.
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	869
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	870	"/ clickedView := self findObjectAt:aPoint.
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	871	"/ (clickedView notNil
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	872	"/ and:[clickedView isComponentOf:selectedView]) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	873	"/ self unselect.
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	874	"/ selectedView := nil.
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	875	"/ ].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	876
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	877	selectedView notNil ifTrue:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	878	containerOfSelectedView := self findContainerOfView:selectedView.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	879
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	880	containerOfSelectedView specClass canResizeSubComponents ifTrue:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	881	b := self whichHandleOf:selectedView isHitBy:aPoint.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	882	(b notNil and:[b ~~ #view]) ifTrue:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	883	self startResizeBorder:b of:selectedView.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	884	^ self
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	885	]
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	886	].
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	887	viewOperatedUpon := selectedView.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	888
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	889	pView := device translatePoint:aPoint fromView:self toView:selectedView superView.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	890	(selectedView bounds containsPoint:pView) ifFalse:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	891	"/ clicked outside the selection
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	892	(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	893	viewOperatedUpon := nil
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	894	]
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	895	]
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	896	].
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	897
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	898	clickedView := self findObjectAt:aPoint.
2368 99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	899	clickedView notNil ifTrue:[
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	900	(clickedView isComponentOf:selectedView) ifTrue:[
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	901	self unselect.
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	902	selectedView := nil.
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	903	viewOperatedUpon := nil
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	904	] ifFalse:[
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	905	self unselect.
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	906	selectedView := nil.
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	907	viewOperatedUpon := clickedView
99f14af1d5ec oops Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	908	].
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	909	].
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	910
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	911	viewOperatedUpon isNil ifTrue:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	912	clickedView isNil ifTrue:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	913	self select:nil.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	914	^ self.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	915	].
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	916
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	917	(self canChangeLayoutOfView:clickedView) ifFalse:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	918	self select:clickedView.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	919	^ self
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	920	].
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	921	viewOperatedUpon := clickedView
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	922	].
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	923
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	924	(self isSelected:viewOperatedUpon) ifFalse:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	925	self select:viewOperatedUpon.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	926	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	927
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	928	(self numberOfSelections ~~ 1) ifTrue:[
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	929	releaseAction :=
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	930	[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	931	self setDefaultActions.
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	932	self select:viewOperatedUpon
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	933	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	934	] ifFalse:[
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	935	releaseAction := [self setDefaultActions]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	936	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	937
2356 bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	938	"prepare move operation for an object"
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	939	motionAction :=
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	940	[:movePoint\|
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	941	(aPoint dist:movePoint) > 4.0 ifTrue:[
bb961692c387 clicking on an already selected object for move Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	942	self startObjectMoveAt:aPoint
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	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	945	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	946
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	947	!UIObjectView methodsFor:'object resize'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	948
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	949	actionResize:anObject selector:aSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	950	"create and initialize action for resize
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	951	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	952	\|selector delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	953
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	954	delta := anObject container originRelativeTo:self.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	955	selector := ('resize:', aSelector, ':') asSymbol.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	956
543 e3f2bf2dfb59 eliminated use of Structure - added private ResizeData class instead Claus Gittinger <cg@exept.de> parents: 374 diff changeset	957	resizeData := ResizeData new
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	958	object:anObject selector:selector delta:delta.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	959
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	960	"can change cursor dependent on vertical/horizontal resizing
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	961	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	962	oldCursor := cursor.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	963	self cursor:(Cursor leftHand).
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	964
543 e3f2bf2dfb59 eliminated use of Structure - added private ResizeData class instead Claus Gittinger <cg@exept.de> parents: 374 diff changeset	965	"Modified: / 2.2.1998 / 13:40:55 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	966	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	967
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	968	doDragResize:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	969	"do a widget resize drag
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	970	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	971	\|p object\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	972
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	973	object := resizeData object.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	974
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	975	self invertOutlineOf:object.
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	976	p := (self alignToGrid:aPoint) - (resizeData delta).
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	977
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	978	self perform:(resizeData selector) with:object with:p.
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	979	Delay waitForSeconds:0.05.
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	980	[self sensor hasExposeEventFor:nil] whileTrue:[
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	981	self windowGroup processExposeEvents
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	982	].
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	983
79 33212fbe9766 resize extent ca parents: 78 diff changeset	984	"/ object geometryLayout:(object geometryLayout).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	985	self invertOutlineOf:object
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	endResize
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	989	"cleanup after object resize
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	990	"
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	991	\|object\|
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	992
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	993	object := resizeData object.
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	994	resizeData := nil.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	995
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	996	self invertOutlineOf:object.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	997	self setDefaultActions.
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	998	self elementChangedSize:object.
138 035c98964c38 update ca parents: 134 diff changeset	999
035c98964c38 update ca parents: 134 diff changeset	1000	"/ handle any expose events (for subcomponents) before
035c98964c38 update ca parents: 134 diff changeset	1001	"/ redrawing the handles.
035c98964c38 update ca parents: 134 diff changeset	1002	Delay waitForSeconds:0.05.
035c98964c38 update ca parents: 134 diff changeset	1003	[self sensor hasExposeEventFor:nil] whileTrue:[
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1004	self windowGroup processExposeEvents
138 035c98964c38 update ca parents: 134 diff changeset	1005	].
035c98964c38 update ca parents: 134 diff changeset	1006
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1007	self setSelection:object withRedraw:true.
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1008	self forEach:self selection do:[:aView \|
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1009	self recomputeShapeIfTransparentBox:aView.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1010	].
225 a40d26ed5e74 change selection behavior caused by new tree view ca parents: 208 diff changeset	1011	self layoutChanged.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1012	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1013
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1014	layoutChanged
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1015	!
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1016
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1017	startResizeBorder:b of:selection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1018	"resize selected view
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	\|object\|
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	object := self singleSelection.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1023	self actionResize:object selector:b.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1024
72 a5a7054e2b7d * empty log message * ca parents: 68 diff changeset	1025	self transaction:#resize selectionDo:[:aView\|
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1026	self createUndoLayout:aView
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1027	].
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1028	self setSelection:nil withRedraw:true.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1029
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1030	motionAction := [:movePoint \| self doDragResize:movePoint].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1031	releaseAction := [self endResize].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1032	self invertOutlineOf:object
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1033	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1034
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1035	!UIObjectView methodsFor:'private'!
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1036
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1037	undoHistoryChanged
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1038	self hasUndoHistoryHolder value:(self hasUndoHistory).
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1039	! !
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1040
1714 f57812a56d17 method category rename Claus Gittinger <cg@exept.de> parents: 1705 diff changeset	1041	!UIObjectView methodsFor:'private-handles'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1042
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1043	handlesOf:aComponent do:aTwoArgAction
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1044	"perform action on each handle of a component
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1045	"
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1046	\|dlt ext\|
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1047
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1048	dlt := (aComponent originRelativeTo:self) - aComponent origin.
1451 f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1049	dlt := dlt - (4@4).
f7c591a04f00 drag resize: wait for expose before continue ca parents: 1438 diff changeset	1050	ext := 8@8.
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1051
0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1052	self class handlesOf:aComponent do:[:pnt :wht \|
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1053	aTwoArgAction value:(pnt + dlt extent:ext) value:wht
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1054	]
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
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1057	whichHandleOf:aComponent isHitBy:aPoint
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1058	"returns kind of handle or nil
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1059	"
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1060	self handlesOf:aComponent do:[:rectangle :what\|
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1061	(rectangle containsPoint:aPoint) ifTrue:[^ what]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1062	].
175 0b0b4d99e3e7 isResizeable ca parents: 156 diff changeset	1063	^ nil
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1064	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1065
1714 f57812a56d17 method category rename Claus Gittinger <cg@exept.de> parents: 1705 diff changeset	1066	!UIObjectView methodsFor:'private-resizing subviews'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1067
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1068	recomputeShapeIfTransparentBox:aView
1829 35409df5492a * empty log message * werner parents: 1827 diff changeset	1069	(aView notNil and:[aView isTransparentBox]) ifTrue:[
1827 691d1471cd3e WOs changes werner parents: 1746 diff changeset	1070	aView computeShape.
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1071	aView clear; redraw
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1072	].
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1073	!
691d1471cd3e WOs changes werner parents: 1746 diff changeset	1074
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1075	resize:aView bottom:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1076	"resize a views bottom"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1077
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1078	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1079	self shiftLayout:aView top:0 bottom:((aPoint y) - (aView computeCorner y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1080	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1081	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1082
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1083	resize:aView bottomLeft:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1084	"resize a views bottom and left"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1085
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1086	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1087	self shiftLayout:aView top:0
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1088	bottom:((aPoint y) - (aView computeCorner y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1089	left:((aPoint x) - (aView computeOrigin x))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1090	right:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1091
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1092	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1093	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1094
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1095	resize:aView corner:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1096	"resize a views corner"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1097
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1098	\|delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1099
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1100	delta := aPoint - aView computeCorner.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1101
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1102	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1103	self shiftLayout:aView top:0 bottom:(delta y) left:0 right:(delta x)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1104	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1105	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1106
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1107	resize:aView left:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1108	"resize a views left"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1109
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1110	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1111	self shiftLayout:aView left:((aPoint x) - (aView computeOrigin x)) right:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1112	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1113	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1114
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1115	resize:aView origin:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1116	"resize a views origin"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1117
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1118	\|delta\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1119
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1120	delta := aPoint - aView computeOrigin.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1121
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1122	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1123	self shiftLayout:aView top:(delta y) bottom:0 left:(delta x) right:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1124	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1125	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1126
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1127	resize:aView right:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1128	"resize a views right"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1129
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1130	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1131	self shiftLayout:aView left:0 right:((aPoint x) - (aView computeCorner x))
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1132	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1133	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1134
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1135	resize:aView top:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1136	"resize a views top"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1137
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1138	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1139	self shiftLayout:aView top:((aPoint y) - (aView computeOrigin y)) bottom:0
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1140	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1141	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1142
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1143	resize:aView topRight:aPoint
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1144	"resize a views top and right"
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1145
134 d5ab85ec27fd undo history; keep view identifier ca parents: 132 diff changeset	1146	undoHistory withoutTransactionDo:[
1954 1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1147	self shiftLayout:aView top:((aPoint y) - (aView computeOrigin y))
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1148	bottom:0
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1149	left:0
1344ec1f99eb * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	1150	right:((aPoint x) - (aView computeCorner x))
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1151
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1152	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1153	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1154
1714 f57812a56d17 method category rename Claus Gittinger <cg@exept.de> parents: 1705 diff changeset	1155	!UIObjectView methodsFor:'private-shift layout'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1156
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1157	shiftLayout:aView left:l right:r
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1158	"shift layout for a view; in case of an open transaction, the undo
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1159	action is registered
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1160	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1161	self shiftLayout:aView top:0 bottom:0 left:l right:r
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1162
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1163	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1164
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1165	shiftLayout:aView top:t bottom:b
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1166	"shift layout for a view; in case of an open transaction, the undo
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1167	action is registered
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1168	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1169	self shiftLayout:aView top:t bottom:b left:0 right:0
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1170
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1171
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1172	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1173
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1174	shiftLayout:aView top:t bottom:b left:l right:r
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1175	"shift layout for a view; in case of an open transaction, the undo
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1176	action is registered
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1177	"
79 33212fbe9766 resize extent ca parents: 78 diff changeset	1178	\|type layout oldExt\|
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1179
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1180	type := self class layoutType:aView.
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1181
85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1182	type notNil ifTrue:[
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1183	self createUndoLayout:aView.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1184
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1185	type == #Extent ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1186	oldExt := aView extent.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1187	aView extent:(oldExt + ((r-l) @ (b-t))).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1188	^ self
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1189	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1190
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1191	layout := aView geometryLayout copy.
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1192
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1193	layout isLayout ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1194	layout leftOffset:(layout leftOffset + l)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1195	topOffset:(layout topOffset + t).
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1196
1120 230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1197	type == #LayoutFrame ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1198	layout bottomOffset:(layout bottomOffset + b).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1199	layout rightOffset:(layout rightOffset + r).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1200	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1201	] ifFalse:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1202	type == #Rectangle ifTrue:[
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1203	layout left:(layout left + l)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1204	right:(layout right + r)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1205	top:(layout top + t)
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1206	bottom:(layout bottom + b).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1207	] ifFalse:[ "POINT"
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1208	layout x:(layout x + l) y:(layout y + t).
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1209	]
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1210	].
230fe13c4e51 * empty log message * Claus Gittinger <cg@exept.de> parents: 1112 diff changeset	1211	aView geometryLayout:layout
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1212	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1213	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1214
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1215	!UIObjectView methodsFor:'searching'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1216
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1217	findObjectAt:aPoint
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1218	\|view viewId lastId point\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1219
1500 36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1220	point := aPoint + (device translatePoint:0@0 fromView:self toView:rootView).
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1221
1500 36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1222	viewId := rootView id.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1223	[viewId notNil] whileTrue:[
1500 36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1224	lastId := viewId.
36c0b4b268b8 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 1451 diff changeset	1225	viewId := device viewIdFromPoint:point in:lastId
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1226	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1227
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1228	view := device viewFromId:lastId.
1672 5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1229	view == self ifTrue:[ ^ nil].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1230	^ view
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1231	"/ view ~~ inputView ifTrue:[^ view].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1232	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1233	"/ "/ look for 'hidden' views ...
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1234	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1235	"/ listOfViews := OrderedCollection new.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1236	"/ self allSubViewsDo:[:aView \|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1237	"/ \|org\|
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1238	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1239	"/ aView ~~ inputView ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1240	"/ org := device translatePoint:0@0 fromView:aView toView:self.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1241	"/ ((org extent:aView extent) containsPoint:aPoint) ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1242	"/ listOfViews add:aView.
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1243	"/ ]
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1244	"/ ]
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1245	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1246	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1247	"/ listOfViews size > 0 ifTrue:[
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1248	"/ ^ listOfViews last
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1249	"/ ].
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1250	"/ ^ nil
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1251	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1252	"/ "Modified: / 10.10.2001 / 14:05:07 / cg"
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1253	"/
5e89f5959780 no longer use InputView ca parents: 1581 diff changeset	1254	"/
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1255	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1256
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1257	!UIObjectView methodsFor:'selections'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1258
768 2ef5b8bed914 catch expose events when unselecting ca parents: 624 diff changeset	1259	hideSelection
1427 85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1260	"hide the selection - undraw hilights - whatever that is
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1261	"
85b9b5da0b8d optimize: undraw selection ca parents: 1399 diff changeset	1262	self showUnselected:selection.
768 2ef5b8bed914 catch expose events when unselecting ca parents: 624 diff changeset	1263	!
2ef5b8bed914 catch expose events when unselecting ca parents: 624 diff changeset	1264
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1265	moveableSelection
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1266	"checks whether the selection is not empty and all selected instances
715b3dbba87d selection handling changed ca parents: 128 diff changeset	1267	can be moved. If true the selection is returned otherwise nil
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1268	"
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1269	\|coll\|
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1270
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1271	self hasSelection ifTrue:[
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1272	(self canMove:(coll := self selection)) ifTrue:[
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1273	^ coll
121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1274	]
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1275	].
2364 121c79884983 * empty log message * Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1276	^ nil
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1277	!
9779b7459a1c selection and update from selection ca parents: 123 diff changeset	1278
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1279	numberOfSelections
131 715b3dbba87d selection handling changed ca parents: 128 diff changeset	1280	"return the number of selected instances
61 85ef247db6b1 so far so good ... ca parents: 60 diff changeset	1281	"
128 9779b7459a1c selection and update from selection ca parents: 123 diff changeset

author	Stefan Vogel <sv@exept.de>
	Wed, 25 Mar 2009 14:05:57 +0100
changeset 2481	b8999543e2b4
parent 2422	d85ddb9b2355
child 2482	62831852b487
permissions	-rw-r--r--