hg/stx-libview: SimpleView.st@4b78320b98fe (annotated)

135 cf8e46015072 . claus parents: diff changeset	1	"
cf8e46015072 . claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	4
cf8e46015072 . claus parents: diff changeset	5	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	6	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	9	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	10	hereby transferred.
cf8e46015072 . claus parents: diff changeset	11	"
cf8e46015072 . claus parents: diff changeset	12
727 bf23a306b6f2 renamed PseudoView to DisplaySurface Claus Gittinger <cg@exept.de> parents: 724 diff changeset	13	DisplaySurface subclass:#SimpleView
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	14	instanceVariableNames:'superView subViews components styleSheet resources borderColor
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	15	borderWidth borderShape viewShape top left extentChanged
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	16	originChanged cornerChanged relativeOrigin relativeExtent
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	17	relativeCorner originRule extentRule cornerRule insets layout
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	18	shown hiddenOnRealize name level margin innerClipRect shadowColor
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	19	lightColor bitGravity viewGravity controller windowGroup
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	20	preferredExtent explicitExtent'
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	21	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	22	DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	23	DefaultShadowColor DefaultBorderWidth DefaultFocusColor
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	24	DefaultFocusBorderWidth ReturnFocusWhenClosingModalBoxes'
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	25	poolDictionaries:''
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	26	category:'Views-Basic'
135 cf8e46015072 . claus parents: diff changeset	27	!
cf8e46015072 . claus parents: diff changeset	28
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	29	SimpleView class instanceVariableNames:'ClassResources DefaultFont'
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	30
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	31	"
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	32	The following class instance variables are inherited by this class:
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	33
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	34	DisplaySurface -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	35	GraphicsMedium -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	36	DeviceGraphicsContext -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	37	GraphicsContext -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	38	Object -
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	39	"
140 0db355079dc4 . claus parents: 138 diff changeset	40	!
135 cf8e46015072 . claus parents: diff changeset	41
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	42	!SimpleView class methodsFor:'documentation'!
135 cf8e46015072 . claus parents: diff changeset	43
cf8e46015072 . claus parents: diff changeset	44	copyright
cf8e46015072 . claus parents: diff changeset	45	"
cf8e46015072 . claus parents: diff changeset	46	COPYRIGHT (c) 1989 by Claus Gittinger
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	47	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	48
cf8e46015072 . claus parents: diff changeset	49	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	50	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	51	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	52	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	53	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	54	hereby transferred.
cf8e46015072 . claus parents: diff changeset	55	"
cf8e46015072 . claus parents: diff changeset	56	!
cf8e46015072 . claus parents: diff changeset	57
cf8e46015072 . claus parents: diff changeset	58	documentation
cf8e46015072 . claus parents: diff changeset	59	"
cf8e46015072 . claus parents: diff changeset	60	this class implements functions common to all Views which do not work on / show a model.
cf8e46015072 . claus parents: diff changeset	61	Previously, all of this functionality used to be in the old View class, but has been
cf8e46015072 . claus parents: diff changeset	62	separated into this new SimpleView (which does not know about models) and the new View, which
cf8e46015072 . claus parents: diff changeset	63	does so.
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	64	I'd prefer to call this class View and the current View class a ModelView,
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	65	but for backward compatibility its better to leave things the way they are
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	66	(there are simply too many subclasses of View around ...).
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	67
135 cf8e46015072 . claus parents: diff changeset	68	Instances of SimpleView are seldom used, most views in the system inherit
cf8e46015072 . claus parents: diff changeset	69	from this class.
cf8e46015072 . claus parents: diff changeset	70	However, sometimes a view is used to create a dummy view for framing
cf8e46015072 . claus parents: diff changeset	71	or layout purposes.
cf8e46015072 . claus parents: diff changeset	72
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	73	[Instance variables:]
135 cf8e46015072 . claus parents: diff changeset	74
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	75	superView <View> my superview i.e. the view I am in
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	76
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	77	subViews <Collection> the collection of subviews
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	78
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	79	components <Collection> collection of gadgets (will be merged with subViews, soon)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	80
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	81	borderColor <Color> color of border
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	82
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	83	borderWidth <Number> borderWidth in pixels (device dep.)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	84
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	85	borderShape <Form> shape of border (if device supports it)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	86
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	87	viewShape <Form> shape of view (if device supports it)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	88
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	89	top <Number> actual top coordinate (pixels) in superview
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	90
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	91	left <Number> actual left coordinate (pixels) in superview
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	92
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	93	extendChanged <Boolean> true if extend changed during setup
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	94
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	95	originChanged <Boolean> true if origin changed during setup
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	96
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	97	relativeOrigin <Number> relative origin in percent within superview
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	98
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	99	relativeExtent <Number> relative extent in percent within superview
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	100
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	101	relativeCorner <Number> relative corner in percent within superview
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	102
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	103	originRule <Block> rule to compute origin if superview changes size
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	104
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	105	extentRule <Block> rule to compute extent if superview changes size
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	106
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	107	cornerRule <Block> rule to compute corner if superview changes size
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	108
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	109	insets <Array> array with top, left, bottom & right insets (or nil)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	110
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	111	layout <LayoutObject> not yet implemented - will replace the above layout
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	112	variables.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	113
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	114	shown <Boolean> true if visible (false if iconified, unmapped or covered)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	115
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	116	hiddenOnRealize <Boolean> dont show automatically when superview is realized
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	117
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	118	name <String> my name (future use for resources)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	119
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	120	level <Number> 3D level relative to superview
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	121
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	122	margin <Number> convenient margin
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	123
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	124	innerClipRect <Rectangle> convenient inner clip (minus margin)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	125
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	126	shadowColor <Color> color used to draw 3D shadowed edges
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	127
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	128	lightColor <Color> color used to draw 3D lighted edges
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	129
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	130	bitGravity <nil \| Symbol> gravity of contents (if device supports it)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	131
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	132	viewGravity <nil \| Symbol> gravity of view (if device supports it)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	133
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	134	controller <nil \| Controller> the controller (if any)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	135
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	136	windowGroup <WindowGroup> the windowGroup
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	137
135 cf8e46015072 . claus parents: diff changeset	138
cf8e46015072 . claus parents: diff changeset	139
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	140	[Class variables:]
135 cf8e46015072 . claus parents: diff changeset	141
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	142	Grey <Color> the color grey - its used so often
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	143
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	144	ViewSpacing <Number> preferred spacing between views; 1mm
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	145
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	146	CentPoint <Point> 100 @ 100 - its used so often
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	147
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	148	StyleSheet <ResourcePack> contains all view-style specifics
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	149
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	150	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	151	<Boolean> the keyboard focus to the view which was
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	152	active when the box was opened.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	153	If false (the default), it is left to
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	154	window manager to assign a new focus.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	155	If running on olwm/olvwm (which requires an
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	156	explicit click to reassign a focus), it is
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	157	better to turn this on in a private.rc file.
135 cf8e46015072 . claus parents: diff changeset	158
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	159	[styleSheet parameters:]
135 cf8e46015072 . claus parents: diff changeset	160
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	161	popupShadow <Boolean> if true, popupViews show a shadow below
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	162
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	163	popupLevel <nil \| Integer> 3D level
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	164
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	165	borderWidth <nil \| Integer> borderWidth (ignored in 3D styles)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	166
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	167	borderColor <nil \| Color> borderColor (ignored in 3D styles)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	168
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	169	viewBackground <nil \| Color> views background
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	170
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	171	shadowColor <nil \| Color> color for shadow edges (ignored in 2D styles)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	172
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	173	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	174
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	175	font <nil \| Font> font to use
135 cf8e46015072 . claus parents: diff changeset	176
cf8e46015072 . claus parents: diff changeset	177
cf8e46015072 . claus parents: diff changeset	178	TODO:
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	179	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	180	and insets; replace by a single object which defines the size
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	181	(mhmh - ST-80 seems to call this LayoutFrame ?)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	182	-> be prepared for a change here in the near future and ONLY use
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	183	access methods to get those instance variables' values
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	184
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	185	get rid of 3D level & margin, move it to extra wrappers
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	186	(although this will make view setup more complicated, it will remove
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	187	complexity from the internals of view. Also, it will allow for more
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	188	varieties of borders.)
151 8123ec03c52f . claus parents: 145 diff changeset	189
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	190	add components (could also call them gadgets or lightweight views)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	191	- views are expensive in terms of X resources. This would make all
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	192	framing/edge and panel helper views become cheap ST objects, instead
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	193	of views.
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	194
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	195
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	196	[see also:]
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	197	StandardSystemView DialogBox
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	198	WindowGroup WindowEvent
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	199	Layout
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	200	( introduction to view programming :html: programming/viewintro.html )
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	201
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	202	[author:]
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	203	Claus Gittinger
135 cf8e46015072 . claus parents: diff changeset	204	"
151 8123ec03c52f . claus parents: 145 diff changeset	205	!
8123ec03c52f . claus parents: 145 diff changeset	206
8123ec03c52f . claus parents: 145 diff changeset	207	examples
8123ec03c52f . claus parents: 145 diff changeset	208	"
8123ec03c52f . claus parents: 145 diff changeset	209	(all examples below use different viewBackgrounds,
8123ec03c52f . claus parents: 145 diff changeset	210	to make the individual subviews visible)
8123ec03c52f . claus parents: 145 diff changeset	211
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	212	a subView in a topView:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	213	[exBegin]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	214	\|top v\|
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	215
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	216	topView := StandardSystemView new.
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	217	v := View new.
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	218	v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	219	top addSubView:v.
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	220	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	221	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	222
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	223
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	224	the same, a bit more compact:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	225	[exBegin]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	226	\|top v\|
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	227
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	228	topView := StandardSystemView new.
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	229	v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:topView.
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	230	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	231	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	232
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	233
151 8123ec03c52f . claus parents: 145 diff changeset	234	fixed position/size:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	235	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	236	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	237
8123ec03c52f . claus parents: 145 diff changeset	238	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	239	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	240
8123ec03c52f . claus parents: 145 diff changeset	241	v1 := View origin:10@10
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	242	corner:50@50
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	243	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	244	v2 := View origin:60@10
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	245	corner:150@100
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	246	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	247
8123ec03c52f . claus parents: 145 diff changeset	248	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	249	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	250
8123ec03c52f . claus parents: 145 diff changeset	251	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	252	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	253
8123ec03c52f . claus parents: 145 diff changeset	254	same, using ST-80 way of bulding up view hierarchies
8123ec03c52f . claus parents: 145 diff changeset	255	(recommended, if you plan to port applications later)
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	256	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	257	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	258
8123ec03c52f . claus parents: 145 diff changeset	259	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	260	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	261
8123ec03c52f . claus parents: 145 diff changeset	262	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	263	v1 origin:10@10 corner:50@50.
8123ec03c52f . claus parents: 145 diff changeset	264
8123ec03c52f . claus parents: 145 diff changeset	265	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	266	v2 origin:60@10 corner:150@100.
8123ec03c52f . claus parents: 145 diff changeset	267
8123ec03c52f . claus parents: 145 diff changeset	268	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	269	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	270
8123ec03c52f . claus parents: 145 diff changeset	271	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	272	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	273
8123ec03c52f . claus parents: 145 diff changeset	274	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	275	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	276
8123ec03c52f . claus parents: 145 diff changeset	277	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	278	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	279
8123ec03c52f . claus parents: 145 diff changeset	280	fixed origin, variable size:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	281	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	282	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	283
8123ec03c52f . claus parents: 145 diff changeset	284	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	285	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	286
8123ec03c52f . claus parents: 145 diff changeset	287	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	288	v1 origin:10@10 corner:50@0.5.
8123ec03c52f . claus parents: 145 diff changeset	289
8123ec03c52f . claus parents: 145 diff changeset	290	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	291	v2 origin:60@10 corner:150@0.5.
8123ec03c52f . claus parents: 145 diff changeset	292
8123ec03c52f . claus parents: 145 diff changeset	293	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	294	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	295
8123ec03c52f . claus parents: 145 diff changeset	296	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	297	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	298
8123ec03c52f . claus parents: 145 diff changeset	299	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	300	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	301
8123ec03c52f . claus parents: 145 diff changeset	302	fixed origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	303	bottomInset for constant distance from bottom:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	304	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	305	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	306
8123ec03c52f . claus parents: 145 diff changeset	307	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	308	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	309
8123ec03c52f . claus parents: 145 diff changeset	310	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	311	v1 origin:10@10 corner:50@1.0.
8123ec03c52f . claus parents: 145 diff changeset	312	v1 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	313
8123ec03c52f . claus parents: 145 diff changeset	314	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	315	v2 origin:60@10 corner:150@1.0.
8123ec03c52f . claus parents: 145 diff changeset	316	v2 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	317
8123ec03c52f . claus parents: 145 diff changeset	318	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	319	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	320
8123ec03c52f . claus parents: 145 diff changeset	321	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	322	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	323
8123ec03c52f . claus parents: 145 diff changeset	324	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	325	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	326
8123ec03c52f . claus parents: 145 diff changeset	327	variable origin, variable size,
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	328	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	329	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	330
8123ec03c52f . claus parents: 145 diff changeset	331	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	332	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	333
8123ec03c52f . claus parents: 145 diff changeset	334	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	335	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	336
8123ec03c52f . claus parents: 145 diff changeset	337	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	338	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	339
8123ec03c52f . claus parents: 145 diff changeset	340	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	341	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	342
8123ec03c52f . claus parents: 145 diff changeset	343	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	344	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	345
8123ec03c52f . claus parents: 145 diff changeset	346	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	347	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	348
8123ec03c52f . claus parents: 145 diff changeset	349	variable origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	350	insets for some constant distance
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	351	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	352	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	353
8123ec03c52f . claus parents: 145 diff changeset	354	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	355	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	356
8123ec03c52f . claus parents: 145 diff changeset	357	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	358	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	359	v1 rightInset:5.
8123ec03c52f . claus parents: 145 diff changeset	360
8123ec03c52f . claus parents: 145 diff changeset	361	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	362	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	363	v2 leftInset:5.
8123ec03c52f . claus parents: 145 diff changeset	364
8123ec03c52f . claus parents: 145 diff changeset	365	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	366	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	367
8123ec03c52f . claus parents: 145 diff changeset	368	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	369	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	370
8123ec03c52f . claus parents: 145 diff changeset	371	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	372	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	373
8123ec03c52f . claus parents: 145 diff changeset	374	using layout objects (ST-80 style):
8123ec03c52f . claus parents: 145 diff changeset	375	fully specifying the frame
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	376	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	377	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	378
8123ec03c52f . claus parents: 145 diff changeset	379	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	380	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	381
8123ec03c52f . claus parents: 145 diff changeset	382	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	383	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	384
8123ec03c52f . claus parents: 145 diff changeset	385	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	386	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	387
8123ec03c52f . claus parents: 145 diff changeset	388	top add:v1 in:(LayoutFrame new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	389	leftFraction:0.25;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	390	rightFraction:0.75;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	391	topFraction:0.0;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	392	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	393	top add:v2 in:(LayoutFrame new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	394	leftFraction:0.5;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	395	rightFraction:1.0;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	396	topFraction:0.5;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	397	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	398
8123ec03c52f . claus parents: 145 diff changeset	399	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	400	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	401
8123ec03c52f . claus parents: 145 diff changeset	402	another one, with offsets:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	403	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	404	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	405
8123ec03c52f . claus parents: 145 diff changeset	406	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	407	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	408
8123ec03c52f . claus parents: 145 diff changeset	409	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	410	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	411
8123ec03c52f . claus parents: 145 diff changeset	412	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	413	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	414
8123ec03c52f . claus parents: 145 diff changeset	415	top add:v1 in:(LayoutFrame new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	416	leftFraction:0.0 offset:10;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	417	rightFraction:1.0 offset:-10;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	418	topFraction:0.0 offset:10;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	419	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	420	top add:v2 in:(LayoutFrame new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	421	leftFraction:0.0 offset:30;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	422	rightFraction:1.0 offset:-30;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	423	topFraction:0.5 offset:10;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	424	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	425
8123ec03c52f . claus parents: 145 diff changeset	426	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	427	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	428
8123ec03c52f . claus parents: 145 diff changeset	429	specifying origin only. Extent is views preferred
8123ec03c52f . claus parents: 145 diff changeset	430	(notice, that plain views have some defaultExtent of 100@100)
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	431	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	432	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	433
8123ec03c52f . claus parents: 145 diff changeset	434	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	435	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	436
8123ec03c52f . claus parents: 145 diff changeset	437	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	438	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	439
8123ec03c52f . claus parents: 145 diff changeset	440	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	441	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	442
8123ec03c52f . claus parents: 145 diff changeset	443	top add:v1 in:(LayoutOrigin new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	444	leftFraction:0.25;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	445	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	446	top add:v2 in:(LayoutOrigin new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	447	leftFraction:0.5;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	448	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	449
8123ec03c52f . claus parents: 145 diff changeset	450	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	451	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	452
8123ec03c52f . claus parents: 145 diff changeset	453	same example, using buttons which compute their preferredBounds:
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	454	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	455	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	456
8123ec03c52f . claus parents: 145 diff changeset	457	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	458	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	459
8123ec03c52f . claus parents: 145 diff changeset	460	v1 := Button label:'foo'.
8123ec03c52f . claus parents: 145 diff changeset	461	v2 := Button label:'a very long buttonLabel'.
8123ec03c52f . claus parents: 145 diff changeset	462
8123ec03c52f . claus parents: 145 diff changeset	463	v1 backgroundColor:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	464	v2 backgroundColor:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	465
8123ec03c52f . claus parents: 145 diff changeset	466	top add:v1 in:(LayoutOrigin new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	467	leftFraction:0.25;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	468	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	469	top add:v2 in:(LayoutOrigin new
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	470	leftFraction:0.5;
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	471	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	472
8123ec03c52f . claus parents: 145 diff changeset	473	top open
621 decaeae1910d examples Claus Gittinger <cg@exept.de> parents: 616 diff changeset	474	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	475	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	476	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	477
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	478	layoutComputation
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	479	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	480	Due to historic reasons, there are 2 mechanisms to resize a view:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	481	- (old, to be eliminated mechanism)
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	482	based upon info found in
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	483	relativeOrigin / relativeCorner / relativeExtent
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	484	originRule / cornerRule / extentRule
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	485
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	486	- (new, will migrate to that one)
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	487	letting a layoutObject compute things
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	488
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	489	Actually, the old mechanism is just as powerful, as the new (layoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	490	based) mechanism; with the help of block=rules, you can compute whatever
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	491	geometry is desired.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	492	However, having 6 instance variables in every view creates some overhead,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	493	which can be avoided in most cases (most views are either fixed-size or
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	494	relative-sized).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	495	Therefore (and also to make porting of ST-80 apps easier), ST/X will migrate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	496	to use layoutObjects.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	497	You will not see a difference at the views protocol level, since
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	498	existing interfaces will (silently) create layoutObjects as appropriate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	499	However, you should remove all direct accesses to the above mentioned
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	500	instance variables, to be prepared for that change.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	501
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	502	Notice, that a view recomputes its size whenever its superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	503	changes size. This is done via:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	504	sizeChanged
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	505	-> allSubviews: superViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	506
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	507	If the geometry computation as performed in superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	508	is not powerful enough for your application, you can either:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	509	- redefine superViewChangedSize
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	510	- create a special layoutObject which computes a new layout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	511	"
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	512	!
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	513
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	514	popupMenus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	515	"
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	516	Due to historic reasons, there are multiple mechanisms for popupMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	517	definition:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	518
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	519	- static menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	520
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	521	- dynamic menus from the view
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	522
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	523	- dynamic menus from the model / menuHolder
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	524
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	525
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	526	static menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	527	------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	528
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	529	The easiest to use is a static menu; this is useful, if some view
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	530	has a constant menu which never changes.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	531	It can be defined at initialization time or redefined any time later.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	532	The menu is defined with:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	533
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	534	someView middleButtonMenu:<aPopUpMenu>
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	535
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	536	Compatibility note:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	537	static menus should no longer be used - their operation
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	538	is incompatible with ST-80 and ST/X's dynamic menus.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	539	Do not use them if you care for compatibility.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	540	Also, they do not care for any menuPerformers or menuHolders.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	541	(instead, they use a receiver instance variable, which gets the messages).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	542
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	543	example:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	544	\|top v1 v2\|
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	545
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	546	top := StandardSystemView new.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	547	top extent:300@300.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	548
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	549	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	550	v1 viewBackground:Color red.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	551
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	552	v2 := View origin:0.5@0.0 corner:1.0@1.0 in:top.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	553	v2 viewBackground:Color yellow.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	554
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	555	v1 middleButtonMenu:(
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	556	PopUpMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	557	labels:#('foo' 'bar')
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	558	selectors:#(foo bar)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	559	receiver:v1
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	560	).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	561
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	562	top open.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	563
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	564
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	565
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	566	dynamic menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	567	-------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	568
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	569	A dynamic menu can be provided by the view itself, or by the model.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	570	In addition, TextViews allow a separate menuHolder to provide the menu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	571	(i.e. it may be different from the model).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	572	If the model shall provide the menu, set the views menuMessage to a selector
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	573	which is sent to the model. This message should return a popUpMenu.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	574
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	575	For textViews, the above is also valid, except if the menuHolder is explicitely
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	576	set - in this case, that one provides the menu; not the model.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	577	Dont get confused by the fact that menuHolders are only supported
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	578	by textViews.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	579
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	580	example: (in your application, the plug would be your application, topView or model)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	581	Notice, that all menu messages are sent to the view (because no model was set)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	582	- so the textView still performs the copy-function correctly
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	583	(but of course, does not respond to the fooBar messages).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	584	If a model was set, the menu would try the model first, but send its messages
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	585	to the view IFF the model would not respond to the menu message.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	586	(this allows mixing of menu messages for the view AND the model).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	587
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	588	\|top v1 v2 holder\|
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	589
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	590	holder := Plug new.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	591	holder respondTo:#menu1
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	592	with:[
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	593	v1 menuMessage:#otherMenu1.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	594	PopUpMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	595	labels:#('foo' 'bar')
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	596	selectors:#(foo bar).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	597	].
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	598	holder respondTo:#otherMenu1
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	599	with:[
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	600	v1 menuMessage:#menu1.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	601	PopUpMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	602	labels:#('other foo' 'other bar')
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	603	selectors:#(foo bar).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	604	].
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	605	holder respondTo:#menu2
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	606	with:[ PopUpMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	607	labels:#('copy' 'bar2')
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	608	selectors:#(copySelection bar2)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	609	].
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	610
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	611	top := StandardSystemView new.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	612	top extent:300@300.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	613
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	614	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	615	v1 viewBackground:Color red.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	616
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	617	v2 := TextView origin:0.5@0.0 corner:1.0@1.0 in:top.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	618	v2 contents:'pop me up'.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	619
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	620	v1 model:holder; menuMessage:#menu1.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	621	v2 menuHolder:holder; menuMessage:#menu2.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	622
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	623	top open.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	624
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	625	an additional goody is the possibility, to change the menuPerformer (textViews only).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	626	If defined, that one will get the menus message (instead of the model/view).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	627	However, like above, if it does not respond to the message, its still sent to
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	628	the view. Notice, that with non-textViews, the menuPerformer is always the model.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	629
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	630	example:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	631	(Notice: the executor understands the #copySelection message - therefore, the
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	632	views built-in copy is NOT performed
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	633	- it could be forwarded to the view, though.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	634	This could be useful to intercept/filter things).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	635
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	636	\|top v menuProvider menuExecutor \|
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	637
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	638	menuProvider := Plug new.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	639	menuProvider respondTo:#menu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	640	with:[ PopUpMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	641	labels:#('copy' 'foo')
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	642	selectors:#(copySelection foo)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	643	].
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	644
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	645	menuExecutor := Plug new.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	646	menuExecutor respondTo:#copySelection
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	647	with:[Transcript showCR:'copy function'].
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	648	menuExecutor respondTo:#foo
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	649	with:[Transcript showCR:'foo function'].
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	650
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	651	top := StandardSystemView new.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	652	top extent:300@300.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	653
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	654	v := TextView origin:0.0@0.0 corner:1.0@1.0 in:top.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	655	v contents:'pop me up'.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	656
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	657	v menuHolder:menuProvider; menuMessage:#menu.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	658	v menuPerformer:menuExecutor.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	659
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	660	top open.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	661	"
135 cf8e46015072 . claus parents: diff changeset	662	! !
cf8e46015072 . claus parents: diff changeset	663
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	664	!SimpleView class methodsFor:'initialization'!
135 cf8e46015072 . claus parents: diff changeset	665
cf8e46015072 . claus parents: diff changeset	666	initialize
cf8e46015072 . claus parents: diff changeset	667	DefaultStyle isNil ifTrue:[
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	668	Font initialize.
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	669	Form initialize.
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	670	Color initialize.
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	671
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	672	"/ Display notNil ifTrue:[
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	673	"/ self defaultStyle:#normal.
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	674	"/ ].
135 cf8e46015072 . claus parents: diff changeset	675
cf8e46015072 . claus parents: diff changeset	676	"/ self updateStyleCache.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	677	self == SimpleView ifTrue:[
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	678	Smalltalk addDependent:self "/ to get language changes
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	679	]
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	680	].
365 347a478d8cf5 default returnFocus to false Claus Gittinger <cg@exept.de> parents: 364 diff changeset	681	ReturnFocusWhenClosingModalBoxes := false.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	682
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	683	"Modified: 18.5.1996 / 16:56:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	684	!
cf8e46015072 . claus parents: diff changeset	685
cf8e46015072 . claus parents: diff changeset	686	postAutoload
cf8e46015072 . claus parents: diff changeset	687	self updateStyleCache.
cf8e46015072 . claus parents: diff changeset	688	! !
cf8e46015072 . claus parents: diff changeset	689
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	690	!SimpleView class methodsFor:'instance creation'!
135 cf8e46015072 . claus parents: diff changeset	691
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	692	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	693	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	694
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	695	^ self origin:nil extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	696	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	697	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	698
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	699	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	700	"create a new view as a subview of aView with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	701
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	702	^ self origin:nil extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	703	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	704	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	705
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	706	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	707	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	708
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	709	^ self origin:nil extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	710	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	711	!
cf8e46015072 . claus parents: diff changeset	712
cf8e46015072 . claus parents: diff changeset	713	in:aView
cf8e46015072 . claus parents: diff changeset	714	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	715	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	716	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	717	by adding it to the superview via #addSubView:.
cf8e46015072 . claus parents: diff changeset	718	If realized and no superview has ever been set, it will come
cf8e46015072 . claus parents: diff changeset	719	up as a topview."
cf8e46015072 . claus parents: diff changeset	720
cf8e46015072 . claus parents: diff changeset	721	\|newView\|
cf8e46015072 . claus parents: diff changeset	722
cf8e46015072 . claus parents: diff changeset	723	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	724	aView notNil ifTrue:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	725	newView device:(aView graphicsDevice).
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	726	newView container:aView.
135 cf8e46015072 . claus parents: diff changeset	727	] ifFalse:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	728	newView device:Screen current "Display"
135 cf8e46015072 . claus parents: diff changeset	729	].
cf8e46015072 . claus parents: diff changeset	730	newView initialize.
cf8e46015072 . claus parents: diff changeset	731	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	732	^ newView
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	733
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	734	"Modified: 28.5.1996 / 20:24:58 / cg"
135 cf8e46015072 . claus parents: diff changeset	735	!
cf8e46015072 . claus parents: diff changeset	736
140 0db355079dc4 . claus parents: 138 diff changeset	737	label:label
0db355079dc4 . claus parents: 138 diff changeset	738	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	739
cf8e46015072 . claus parents: diff changeset	740	^ self origin:nil extent:nil borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	741	font:nil label:label in:nil
140 0db355079dc4 . claus parents: 138 diff changeset	742	!
0db355079dc4 . claus parents: 138 diff changeset	743
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	744	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	745	"create a new view as subview of aView with given label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	746
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	747	^ self origin:nil extent:nil borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	748	font:nil label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	749	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	750
1393 0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	751	model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	752	"st-80 style view creation: create a new view and set its model.
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	753	Notice, that simpleViews do not understand #model:; however,
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	754	subclasses may."
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	755
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	756	^ self new model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	757
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	758	"Created: 28.2.1997 / 19:27:40 / cg"
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	759	"Modified: 28.2.1997 / 19:28:12 / cg"
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	760	!
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	761
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	762	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	763	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	764
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	765	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	766	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	767	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	768	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	769	^ self new model:aModel.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	770	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	772	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	773	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	774	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	775	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	776
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	777	\|device\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	778
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	779	anotherView notNil ifTrue:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	780	device := anotherView graphicsDevice.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	781	] ifFalse:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	782	device := Screen current.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	783	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	784	^ self onDevice:device
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	785
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	786	"Modified: 28.5.1996 / 20:25:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	787	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	788
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	789	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	790	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	791
140 0db355079dc4 . claus parents: 138 diff changeset	792	^ self origin:origin corner:corner borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	793	font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	794	!
cf8e46015072 . claus parents: diff changeset	795
cf8e46015072 . claus parents: diff changeset	796	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	797	\|newView\|
cf8e46015072 . claus parents: diff changeset	798
cf8e46015072 . claus parents: diff changeset	799	aView notNil ifTrue:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	800	newView := self basicNew.
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	801	newView device:(aView graphicsDevice).
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	802	newView initialize.
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	803	aView addSubView:newView.
135 cf8e46015072 . claus parents: diff changeset	804	] ifFalse:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	805	newView := self onDevice:Screen current "Display"
135 cf8e46015072 . claus parents: diff changeset	806	].
cf8e46015072 . claus parents: diff changeset	807	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	808	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	809	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	810	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	811	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	812	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	813
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	814	"Modified: 28.5.1996 / 20:25:15 / cg"
135 cf8e46015072 . claus parents: diff changeset	815	!
cf8e46015072 . claus parents: diff changeset	816
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	817	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	818	"create a new view as a subview of aView with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	819
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	820	^ self origin:origin corner:corner borderWidth:bw
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	821	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	822	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	823
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	824	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	825	"create a new view as a subview of aView with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	826
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	827	^ self origin:origin corner:corner borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	828	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	829	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	831	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	832	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	833
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	834	^ self origin:origin extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	835	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	836	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	837
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	838	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	839	"create a new view with given origin, extent and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	840
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	841	^ self origin:origin extent:extent borderWidth:bw
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	842	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	843	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	845	origin:anOrigin extent:anExtent borderWidth:bw font:aFont label:aLabel in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	846	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	847
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	848	aView notNil ifTrue:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	849	newView := self basicNew.
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	850	newView device:(aView graphicsDevice).
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	851	newView initialize.
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	852	aView addSubView:newView.
140 0db355079dc4 . claus parents: 138 diff changeset	853	] ifFalse:[
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	854	newView := self onDevice:Screen current "Display"
140 0db355079dc4 . claus parents: 138 diff changeset	855	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	856	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	857	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	858	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	859	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	860	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	861	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	862
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	863	"Modified: 28.5.1996 / 20:25:19 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	864	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	865
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	866	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	867	"create a new view as a subview of aView with given origin, extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	868	and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	869
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	870	^ self origin:origin extent:extent borderWidth:bw
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	871	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	872	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	873
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	874	origin:origin extent:extent font:aFont label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	875	^ self origin:origin extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	876	font:nil label:label in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	877	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	879	origin:origin extent:extent font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	880	^ self origin:origin extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	881	font:aFont label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	882	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	883
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	884	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	885	"create a new view as a subview of aView with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	886
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	887	^ self origin:origin extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	888	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	889	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	890
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	891	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	892	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	893
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	894	^ self origin:origin extent:extent borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	895	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	896	!
cf8e46015072 . claus parents: diff changeset	897
cf8e46015072 . claus parents: diff changeset	898	origin:anOrigin extent:anExtent
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	899	label:aLabel icon:aForm
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	900	minExtent:minExtent maxExtent:maxExtent
135 cf8e46015072 . claus parents: diff changeset	901	\|newView\|
cf8e46015072 . claus parents: diff changeset	902
151 8123ec03c52f . claus parents: 145 diff changeset	903	newView := self onDevice:Screen current "Display".
135 cf8e46015072 . claus parents: diff changeset	904	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	905	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	906	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	907	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	908	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	909	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	910	^ newView
cf8e46015072 . claus parents: diff changeset	911	!
cf8e46015072 . claus parents: diff changeset	912
140 0db355079dc4 . claus parents: 138 diff changeset	913	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	914	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	915
0db355079dc4 . claus parents: 138 diff changeset	916	^ self origin:origin extent:nil borderWidth:nil
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	917	font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	918	! !
cf8e46015072 . claus parents: diff changeset	919
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	920	!SimpleView class methodsFor:'change & update'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	921
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	922	update:something with:aParameter from:changedObject
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	923	something == #Language ifTrue:[
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	924	"flush resources on language changes"
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	925	self flushAllClassResources
135 cf8e46015072 . claus parents: diff changeset	926	]
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	927
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	928	"Created: 15.6.1996 / 15:23:04 / cg"
135 cf8e46015072 . claus parents: diff changeset	929	! !
cf8e46015072 . claus parents: diff changeset	930
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	931	!SimpleView class methodsFor:'defaults'!
135 cf8e46015072 . claus parents: diff changeset	932
140 0db355079dc4 . claus parents: 138 diff changeset	933	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	934	"return the default extent of my instances.
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	935	The value returned here is usually ignored, and
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	936	the value from preferredExtent taken instead."
140 0db355079dc4 . claus parents: 138 diff changeset	937
0db355079dc4 . claus parents: 138 diff changeset	938	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	939	^ CentPoint
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	940
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	941	"Modified: 22.4.1996 / 23:38:39 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	942	!
0db355079dc4 . claus parents: 138 diff changeset	943
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	944	defaultFont
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	945	\|f\|
0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	946
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	947	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	948
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	949	DefaultFont isNil ifTrue:[
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	950	self == SimpleView ifFalse:[
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	951	f := self superclass defaultFont.
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	952	] ifTrue:[
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	953	f := super defaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	954	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	955	].
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	956
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	957	f notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	958	DefaultFont := f.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	959	f := f on:Display.
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	960	f notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	961	DefaultFont := f.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	962	]
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	963	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	964	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	965
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	966	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	967	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	968
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	969	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	970	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	971
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	972	\|f\|
39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	973
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	974	DefaultFont := aFont.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	975	aFont notNil ifTrue:[
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	976	f := aFont on:Display.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	977	f notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	978	DefaultFont := f.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	979	]
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	980	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	981
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	982	"Modified: 18.3.1996 / 12:56:20 / cg"
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	983	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	984
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	985	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	986	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	987
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	988	^ DefaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	989
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	990	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	991	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	992	"
135 cf8e46015072 . claus parents: diff changeset	993	!
cf8e46015072 . claus parents: diff changeset	994
cf8e46015072 . claus parents: diff changeset	995	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	996	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	997
180 0b3a8658d55e . claus parents: 176 diff changeset	998	"/ aStyle ~~ DefaultStyle ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	999	DefaultStyle := aStyle.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1000	self updateAllStyleCaches.
180 0b3a8658d55e . claus parents: 176 diff changeset	1001	"/ ]
135 cf8e46015072 . claus parents: diff changeset	1002
cf8e46015072 . claus parents: diff changeset	1003	"
cf8e46015072 . claus parents: diff changeset	1004	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1005	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1006	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1007	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1008	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1009	"
cf8e46015072 . claus parents: diff changeset	1010	!
cf8e46015072 . claus parents: diff changeset	1011
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1012	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1013	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1014	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1015
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1016	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1017	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1018
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1019	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1020	"control the keyboard-focus behavior when a modal dialog
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1021	is closed. The default (true) is to return the focus to the view
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1022	which was active when the dialog was opened.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1023	If false, it is left up to the display to set the focus.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1024	For owm / ovwm (which requires an explicit click for the focus),
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1025	it is better to return the focus automatically.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1026	For managers which assign the focus according the pointer position,
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1027	it may be better to turn the focus-return off.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1028	You should add a corresponding expression into your private.rc or
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1029	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1030
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1031	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1032
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1033	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1034	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1035	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1036	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1037	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1038
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1039	styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1040	"return the view style sheet information (a dictionary)"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1041
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1042	^ StyleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1043
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1044	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1045	View styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1046	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1047
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1048	"Modified: 9.1.1997 / 13:47:42 / cg"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1049	!
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1050
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1051	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1052	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1053
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1054	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1055	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1056	self updateAllStyleCaches.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1057	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1058
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1059	updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1060	"reload all style caches in all view classes.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1061	Needed after a style change or when a style file has been changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1062
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1063	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1064	StyleSheet fileReadFailed ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1065	('***** WARNING: no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1066	DefaultStyle ~~ #normal ifTrue:[
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1067	DefaultStyle := #normal.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1068	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1069
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1070	StyleSheet fileReadFailed ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1071	'***** WARNING: not even a styleSheet for normal-style (using defaults).' errorPrintCR.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1072	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1073	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1074	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1075
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1076	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1077	tell all view classes to flush any
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1078	cached style-data
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1079	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1080	self changed:#style.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1081	SimpleView updateStyleCache.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1082	SimpleView allSubclassesDo:[:aClass \|
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1083	aClass defaultFont:nil.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1084	(aClass class implements:#updateStyleCache) ifTrue:[
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1085	aClass updateStyleCache
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1086	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1087	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1088
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1089	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1090	View updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1091	"
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1092
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1093	"Modified: 10.1.1997 / 18:06:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1094	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1095
135 cf8e46015072 . claus parents: diff changeset	1096	updateStyleCache
cf8e46015072 . claus parents: diff changeset	1097	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	1098	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	1099	Subclasses should redefine this to load any cached style-values
cf8e46015072 . claus parents: diff changeset	1100	into faster class variables as well. These should NOT do a
cf8e46015072 . claus parents: diff changeset	1101	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	1102	anyway."
cf8e46015072 . claus parents: diff changeset	1103
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1104	<resource: #style (#viewSpacing #font #borderWidth
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1105	#viewBackground #shadowColor #lightColor
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1106	#focusColor #focusBorderWidth)>
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1107
135 cf8e46015072 . claus parents: diff changeset	1108	\|bgGrey\|
cf8e46015072 . claus parents: diff changeset	1109
cf8e46015072 . claus parents: diff changeset	1110	"
cf8e46015072 . claus parents: diff changeset	1111	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	1112	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	1113	"
cf8e46015072 . claus parents: diff changeset	1114	StyleSheet isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1115	DefaultStyle := #normal.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1116	StyleSheet := ViewStyle fromFile:'normal.style'.
135 cf8e46015072 . claus parents: diff changeset	1117	].
cf8e46015072 . claus parents: diff changeset	1118
cf8e46015072 . claus parents: diff changeset	1119	Grey := StyleSheet viewGrey.
cf8e46015072 . claus parents: diff changeset	1120	Grey isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1121	Grey := Color grey
135 cf8e46015072 . claus parents: diff changeset	1122	].
cf8e46015072 . claus parents: diff changeset	1123	Grey := Grey on:Display.
cf8e46015072 . claus parents: diff changeset	1124
151 8123ec03c52f . claus parents: 145 diff changeset	1125	StyleSheet fileReadFailed ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1126	bgGrey := White
135 cf8e46015072 . claus parents: diff changeset	1127	] ifFalse:[
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1128	Display hasGrayscales ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1129	bgGrey := Grey
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1130	] ifFalse:[
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1131	bgGrey := White
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1132	]
135 cf8e46015072 . claus parents: diff changeset	1133	].
151 8123ec03c52f . claus parents: 145 diff changeset	1134	bgGrey := bgGrey on:Display.
135 cf8e46015072 . claus parents: diff changeset	1135
cf8e46015072 . claus parents: diff changeset	1136	ViewSpacing := StyleSheet at:'viewSpacing'.
cf8e46015072 . claus parents: diff changeset	1137	ViewSpacing isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1138	ViewSpacing := Display verticalPixelPerMillimeter rounded.
135 cf8e46015072 . claus parents: diff changeset	1139	].
cf8e46015072 . claus parents: diff changeset	1140
cf8e46015072 . claus parents: diff changeset	1141	DefaultBorderColor := StyleSheet colorAt:'borderColor' default:Black.
151 8123ec03c52f . claus parents: 145 diff changeset	1142
8123ec03c52f . claus parents: 145 diff changeset	1143	StyleSheet fileReadFailed ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1144	DefaultBorderWidth := 1.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1145	DefaultShadowColor := Black.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1146	DefaultLightColor := White.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1147	DefaultFocusColor := Black.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1148	DefaultFocusBorderWidth := 2.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1149	DefaultViewBackgroundColor := bgGrey.
151 8123ec03c52f . claus parents: 145 diff changeset	1150	] ifFalse:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1151	DefaultBorderWidth := StyleSheet at:'borderWidth' default:0.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1152	DefaultViewBackgroundColor := StyleSheet colorAt:'viewBackground' default:bgGrey.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1153	DefaultShadowColor := StyleSheet colorAt:'shadowColor'.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1154	DefaultLightColor := StyleSheet colorAt:'lightColor'.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1155	DefaultFocusColor := StyleSheet colorAt:'focusColor' default:Color red.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1156	DefaultFocusBorderWidth := StyleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	1157	].
135 cf8e46015072 . claus parents: diff changeset	1158
526 3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1159	self == SimpleView ifTrue:[
3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1160	DefaultFont := StyleSheet at:'font'.
3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1161	DefaultFont isNil ifTrue:[
3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1162	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1163	].
3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1164	DefaultFont := DefaultFont on:Display.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1165	] ifFalse:[
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1166	DefaultFont := nil
135 cf8e46015072 . claus parents: diff changeset	1167	].
cf8e46015072 . claus parents: diff changeset	1168
cf8e46015072 . claus parents: diff changeset	1169	DefaultViewBackgroundColor isNil ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1170	'SimpleView [warning]: bad viewBackground in style - using white' errorPrintCR.
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1171	DefaultViewBackgroundColor := White
135 cf8e46015072 . claus parents: diff changeset	1172	].
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1173
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1174	"Modified: 10.1.1997 / 18:06:18 / cg"
135 cf8e46015072 . claus parents: diff changeset	1175	!
cf8e46015072 . claus parents: diff changeset	1176
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1177	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1178	"return a convenient number of pixels used to separate views (usually 1mm).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1179	Having this value here at a common place makes certain that all views
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1180	get a common look"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1181
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1182	^ ViewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1183	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1184
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1185	!SimpleView class methodsFor:'resources'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1186
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1187	classResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1188	"if not already loaded, get the classes resourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1189	and return it"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1190
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1191	ClassResources isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1192	ClassResources := ResourcePack for:self.
140 0db355079dc4 . claus parents: 138 diff changeset	1193	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1194	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1195	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1196
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1197	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1198	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1199
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1200	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1201	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1202
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1203	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1204	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1205	Needed after a resource file has changed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1206
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1207	ResourcePack flushCachedResourcePacks.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1208	SimpleView flushClassResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1209	SimpleView allSubclasses do:[:aClass \|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1210	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1211	]
0db355079dc4 . claus parents: 138 diff changeset	1212
0db355079dc4 . claus parents: 138 diff changeset	1213	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1214	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	1215	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1216	"to change the language:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1217	Language := #english.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1218	Smalltalk changed:#Language.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1219	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1220	or:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1221	Language := #german.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1222	Smalltalk changed:#Language.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1223	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1224	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1225	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1226
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1227	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1228	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1229	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1230
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1231	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1232	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1233
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1234	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1235	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1236	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1237
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1238	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1239	self classResources
135 cf8e46015072 . claus parents: diff changeset	1240	! !
cf8e46015072 . claus parents: diff changeset	1241
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1242	!SimpleView methodsFor:'ST-80 compatibility'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1243
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1244	bounds
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1245	"ST-80 compatibility: return my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1246
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1247	^ (self origin) corner:(self corner)
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1248
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1249	"Created: 4.6.1996 / 21:23:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1250	"Modified: 10.1.1997 / 19:46:21 / cg"
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1251	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1252
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1253	bounds:aRectangle
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1254	"ST-80 compatibility: change my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1255
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1256	explicitExtent := true.
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1257	self pixelOrigin:aRectangle origin
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1258	corner:aRectangle corner
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1259
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1260	"Created: 4.6.1996 / 21:44:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1261	"Modified: 10.1.1997 / 19:46:36 / cg"
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1262	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1263
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1264	checkForEvents
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1265	"ST-80 compatibility:
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1266	check for any pending events and process them"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1267
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1268	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1269
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1270	"Modified: 10.1.1997 / 19:46:06 / cg"
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1271	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1272
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1273	displayOn:aGC
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1274	"ST-80 compatibility: (re-)display myself"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1275
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1276	self redraw
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1277
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1278	"Created: 4.6.1996 / 21:25:59 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1279	"Modified: 10.1.1997 / 19:46:58 / cg"
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1280	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1281
1432 23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1282	displayPendingInvalidation
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1283	"dummy - for ST-80 compatibility"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1284
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1285	"Created: 6.3.1997 / 15:17:14 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1286	"Modified: 6.3.1997 / 15:17:31 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1287	!
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1288
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1289	isEnabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1290	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1291	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1292	be disabled.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1293	#isEnabled is ST-80's equivalent of #enabled"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1294
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1295	^ self enabled
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1296	!
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1297
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1298	newLayout:aLayoutObject
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1299	"set the layout object which controls my geometry.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1300	ST80-compatibility."
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1301
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1302	here layout:aLayoutObject.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1303
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1304	"Created: 3.3.1997 / 18:54:53 / cg"
1427 35214ddde67c checkin from browser ca parents: 1425 diff changeset	1305	!
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1306
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1307	refresh
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1308	self invalidate
151 8123ec03c52f . claus parents: 145 diff changeset	1309	! !
8123ec03c52f . claus parents: 145 diff changeset	1310
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1311	!SimpleView methodsFor:'accessing-bg & border'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1312
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1313	allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1314	"set the viewBackground to something, a color, image or form,
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1315	in myself and recursively in all of my subviews"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1316
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1317	self viewBackground:something.
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1318	subViews notNil ifTrue:[
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1319	subViews do:[:v\|
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1320	v allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1321	]
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1322	]
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1323
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1324	"Created: 17.7.1996 / 14:59:08 / cg"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1325	"Modified: 18.7.1996 / 13:34:26 / cg"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1326	!
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1327
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1328	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1329	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1330
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1331	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1332	^ superView borderColor
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1333	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1334
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1335	^ borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1336
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1337	"Modified: 5.6.1996 / 14:11:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1338	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1339
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1340	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1341	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1342
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1343	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1344	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1345	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1346	^ superView borderColor:aColor
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1347	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1348
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1349	(aColor ~~ borderColor) ifTrue:[
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1350	borderColor := aColor.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1351	drawableId notNil ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1352	self setBorderColor
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1353	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1354	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1355
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1356	"Modified: 5.6.1996 / 14:11:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1357	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1358
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1359	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1360	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1361
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1362	borderShape := aForm.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1363	drawableId notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1364	device setWindowBorderShape:(aForm id) in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1365	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1366	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1367
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1368	borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1369	"return my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1370
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1371	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1372	^ superView borderWidth
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1373	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1374
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1375	^ borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1376
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1377	"Modified: 5.6.1996 / 14:11:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1378	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1379
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1380	borderWidth:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1381	"set my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1382
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1383	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1384	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1385	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1386	^ superView borderWidth:aNumber
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1387	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1388
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1389	(aNumber ~~ borderWidth) ifTrue:[
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1390	borderWidth := aNumber.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1391	drawableId notNil ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1392	device setWindowBorderWidth:aNumber in:drawableId
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1393	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1394	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1395
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1396	"Modified: 5.6.1996 / 14:12:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1397	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1398
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1399	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1400	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1401
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1402	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1403	^ superView level
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1404	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1405
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1406	^ level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1407
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1408	"Modified: 5.6.1996 / 14:12:10 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1409	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1410
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1411	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1412	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1413
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1414	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1415
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1416	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1417	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1418	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1419	^ superView level:aNumber
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1420	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1421
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1422	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
433 d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1423	self is3D ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1424	level := aNumber.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1425	oldMargin := margin.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1426	margin := level abs.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1427
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1428	realized ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1429	margin ~~ oldMargin ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1430	(margin > oldMargin) ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1431	how := #smaller
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1432	] ifFalse:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1433	how := #larger
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1434	].
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1435	self sizeChanged:how.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1436	self setInnerClip.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1437	].
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1438	shown ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1439	margin ~~ oldMargin ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1440	self clear.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1441	self redrawX:margin y:margin
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1442	width:width-(margin*2)
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1443	height:height-(margin*2)
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1444	].
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1445	self redrawEdges.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1446	]
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1447	]
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1448	]
135 cf8e46015072 . claus parents: diff changeset	1449	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1450
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1451	"Modified: 5.6.1996 / 14:12:17 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1452	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1453
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1454	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1455	"set the color to be used for lighted edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1456
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1457	lightColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1458	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1459
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1460	margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1461	"return my inner margin - this is usually the level,
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1462	but can be more for some views
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1463	(textViews which add more margin between the border and the text)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1464
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1465	^ margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1466
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1467	"Modified: 5.6.1996 / 14:37:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1468	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1469
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1470	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1471	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1472
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1473	shadowColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1474	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1475
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1476	viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1477	"set the viewBackground to something, a color, image or form.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1478	If its a color and we run on a color display, also set shadow and light
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1479	colors - this means, that a red view will get light-red and dark-red
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1480	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1481
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1482	something isColor ifTrue:[
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1483	device hasGrayscales ifTrue:[
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	1484	shadowColor := something darkened "on:device".
a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	1485	lightColor := something lightened "on:device".
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1486	]
135 cf8e46015072 . claus parents: diff changeset	1487	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1488	super viewBackground:something
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1489
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	1490	"Modified: 28.5.1996 / 22:33:03 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1491	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1492
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1493	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1494	"set the viewShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1495
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1496	viewShape := aForm.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1497	drawableId notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1498	device setWindowShape:(aForm id) in:drawableId
135 cf8e46015072 . claus parents: diff changeset	1499	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1500	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1501
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1502	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1503
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1504	heightOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1505	"return the height of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1506	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1507	This method MUST be redefined in all view classess which are
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1508	going to be scrolled AND show data which has different size than
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1509	the view. For example, a view showing A4-size documents should return
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1510	the number of vertical pixels such a document has on this device.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1511	A view showing a bitmap of height 1000 should return 1000.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1512	If not redefined, scrollbars have no way of knowing the actual size
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1513	of the contents being shown. This is called by scrollBars to compute
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1514	the relative height of the document vs. the views actual size.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1515	The value returned here must be based on a scale of 1, since users
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1516	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1517
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1518	^ (self innerHeight max:(self maxSubViewBottom)) max:self maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1519
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1520	"Modified: 26.5.1996 / 12:44:21 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1521	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1522
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1523	widthOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1524	"return the width of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1525	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1526	This method MUST be redefined in all view classess which are
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1527	going to be scrolled AND show data which has different size than
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1528	the view. For example, a view showing A4-size documents should return
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1529	the number of horizontal pixels such a document has on this device.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1530	A view showing a bitmap of width 500 should return 500.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1531	If not redefined, scrollbars have no way of knowing the actual size
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1532	of the contents being shown. This is called by scrollBars to compute
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1533	the relative width of the document vs. the views actual width.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1534	The value returned here must be based on a scale of 1, since users
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1535	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1536
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1537	^ (self innerWidth max:(self maxSubViewRight)) max:self maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1538
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1539	"Modified: 26.5.1996 / 13:02:50 / cg"
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	1540	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1541
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1542	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1543
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1544	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1545	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1546	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1547
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1548	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1549	insets := Array new:4.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1550	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1551	insets atAllPut:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1552
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1553	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1554	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1555	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1556	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1557	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1558	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1559
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1560	"Modified: 19.7.1996 / 17:30:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1561	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1562
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1563	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1564	"return the y position of the actual bottom edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1565
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1566	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1567	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1568
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1569	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1570	"set the corners y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1571
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1572	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1573	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1574
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1575	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1576	"return the inset of the bottom edge; positive is to the top,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1577	negative to the bottom"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1578
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1579	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1580	^ insets at:4
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1581	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1582
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1583	bottomInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1584	"set the inset of the bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1585	positive is to the top (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1586	negative to the bottom (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1587
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1588	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1589	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1590	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1591	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1592
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1593	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1594	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1595	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1596	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1597	self containerChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1598	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1599
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1600	"Modified: 19.7.1996 / 17:30:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1601	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1602
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1603	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1604	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1605
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1606	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1607	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1608
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1609	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1610	"move the receiver so that newCenter, aPoint becomes the center point"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1611
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1612	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1613	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1614
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1615	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1616	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1617	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1618	Blocks may return relative values or nil; nil means: take current value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1619	Returns the corner point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1620
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1621	\|org newCorner newExt x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1622
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1623	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1624	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1625	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1626	layout notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1627	^ (layout rectangleRelativeTo:(superView viewRectangle)
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1628	preferred:(self preferredBounds)) corner rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1629	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1630
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1631	(cornerRule notNil) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1632	newCorner := cornerRule value.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1633	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1634	allow return of relative values ...
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1635	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1636	x := newCorner x.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1637	y := newCorner y.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1638	x isNil ifTrue:[x := self corner x].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1639	y isNil ifTrue:[y := self corner y].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1640	((x isInteger not) or:[y isInteger not]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1641	newCorner := self cornerFromRelativeCorner:x@y
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1642	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1643	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1644	(relativeCorner notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1645	newCorner := self cornerFromRelativeCorner:relativeCorner
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1646	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1647	org := self computeOrigin.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1648	(extentRule notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1649	newExt := extentRule value
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1650	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1651	(relativeExtent notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1652	newExt := self extentFromRelativeExtent:relativeExtent
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1653	] ifFalse:[
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1654	newExt := self extent.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1655	]
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1656	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1657	newCorner := org + newExt
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1658	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1659	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1660	^ newCorner
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1661
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1662	"Modified: 28.2.1997 / 10:33:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1663	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1664
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1665	computeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1666	"compute my extent; if I have a layoutObject, a relative extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1667	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1668	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1669	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1670	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1671	Returns the extent in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1672
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1673	\|newOrg newExt newCorner x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1674
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1675	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1676	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1677	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1678	layout notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1679	^ (layout rectangleRelativeTo:(superView viewRectangle)
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1680	preferred:(self preferredBounds)) extent rounded
135 cf8e46015072 . claus parents: diff changeset	1681	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1683	(cornerRule notNil) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1684	newCorner := cornerRule value.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1685	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1686	allow return of relative values ...
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1687	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1688	x := newCorner x.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1689	y := newCorner y.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1690	x isNil ifTrue:[x := self corner x].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1691	y isNil ifTrue:[y := self corner y].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1692	((x isInteger not) or:[y isInteger not]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1693	newCorner := self cornerFromRelativeCorner:x@y
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1694	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1695	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1696	(relativeCorner notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1697	newCorner := self cornerFromRelativeCorner:relativeCorner
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1698	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1699	(extentRule notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1700	newExt := extentRule value.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1701	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1702	allow return of relative values ...
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1703	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1704	x := newExt x.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1705	y := newExt y.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1706	x isNil ifTrue:[x := width].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1707	y isNil ifTrue:[y := height].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1708	((x isInteger not) or:[y isInteger not]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1709	newExt := self extentFromRelativeExtent:x@y
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1710	]
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1711	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1712	(relativeExtent notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1713	newExt := self extentFromRelativeExtent:relativeExtent
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1714	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1715	newExt := (width @ height).
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1716	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1717	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1718	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1719	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1720
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1721	newCorner notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1722	newOrg := self computeOrigin.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1723	^ newCorner - newOrg.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1724	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1725	^ newExt.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1726	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1727
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1728	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1729	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1730	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1731	Blocks may return relative values or nil; nil means: take current value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1732	Returns the origin point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1733
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1734	\|newOrg x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1735
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1736	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1737	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1738	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1739	layout notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1740	^ (layout rectangleRelativeTo:(superView viewRectangle)
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1741	preferred:(self preferredBounds)) origin rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1742	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1743
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1744	(originRule notNil) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1745	newOrg := originRule value.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1746	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1747	allow return of relative values ...
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1748	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1749	x := newOrg x.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1750	y := newOrg y.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1751	x isNil ifTrue:[x := self origin x].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1752	y isNil ifTrue:[y := self origin y].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1753	((x isInteger not) or:[y isInteger not]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1754	newOrg := self originFromRelativeOrigin:x@y.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1755	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1756	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1757	(relativeOrigin notNil) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1758	newOrg := self originFromRelativeOrigin:relativeOrigin.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1759	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1760	^ (left @ top).
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	1761	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1762	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1763	^ newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1764	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1765
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1766	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1767	"return the lower right corner-point (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1768
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1769	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1770	^ (left + width - 1) @ (top + height - 1)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1772	"Modified: 31.8.1995 / 16:51:40 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1773	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1774
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1775	corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1776	"set the views corner;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1777	the corner argument may be:
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1778	a point
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1779	where integer fields mean 'pixel-values'
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1780	and float values mean 'relative-to-superview'
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1781	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1782	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1783	Please migrate to use layoutObjects, if possible."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1784
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1785	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1786
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1787	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1788
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1789	corner isBlock ifTrue:[
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1790	cornerRule := corner.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1791	drawableId notNil ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1792	pixelCorner := corner value
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1793	] ifFalse:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1794	extentChanged := true
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1795	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1796	] ifFalse:[
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1797	x := corner x.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1798	y := corner y.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1799	x isNil ifTrue:[x := self corner x].
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1800	y isNil ifTrue:[y := self corner y].
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1801	c := x @ y.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1802	((x isInteger not) or:[y isInteger not]) ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1803	relativeCorner := c.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1804	pixelCorner := self cornerFromRelativeCorner.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1805	pixelCorner isNil ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1806	extentChanged := true
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1807	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1808	] ifFalse:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1809	pixelCorner := c
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1810	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1811	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1812
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1813	pixelCorner notNil ifTrue:[
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1814	self pixelCorner:pixelCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1815	]
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1816
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1817	"Modified: 15.7.1996 / 09:51:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1818	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1819
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	1820	cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1821	"return the corner block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1822
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1823	^ cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1824	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1825
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1826	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1827	"set the views extent;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1828	extent may be:
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1829	a point
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1830	where integer fields mean 'pixel-values'
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1831	and float values mean 'relative-to-superview'
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1832	and nil means 'leave current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1833	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1834	Be careful when using relative extents: rounding errors may
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1835	accumulate. Better use origin/corner.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1836	Best: migrate to use layour objects.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1837
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1838	Notice: this sets the views explicitExtent flag, which prevents it normally
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1839	from resizing itself to its preferredExtent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1840	See initialExtent: for a variation."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1841
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1842	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1843
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1844	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1845
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1846	extent isBlock ifTrue:[
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1847	extentRule := extent.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1848	drawableId notNil ifTrue:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1849	pixelExtent := extent value
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1850	] ifFalse:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1851	extentChanged := true
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1852	]
135 cf8e46015072 . claus parents: diff changeset	1853	] ifFalse:[
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1854	w := extent x.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1855	h := extent y.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1856	w isNil ifTrue:[w := width].
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1857	h isNil ifTrue:[h := height].
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1858	e := w@h.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1859	((w isInteger not) or:[h isInteger not]) ifTrue:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1860	relativeExtent := e.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1861	pixelExtent := self extentFromRelativeExtent.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1862	pixelExtent isNil ifTrue:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1863	extentChanged := true
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1864	]
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1865	] ifFalse:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1866	relativeExtent := nil.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1867	pixelExtent := e
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1868	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1869	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1870	pixelExtent notNil ifTrue:[
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1871	self pixelExtent:pixelExtent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1872	]
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1873
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1874	"Modified: 15.7.1996 / 09:51:21 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1875	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1876
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	1877	extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1878	"return the extent block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1879
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1880	^ extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1881	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1882
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1883	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1884	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1885	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1886	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1887	DO NOT USE #geometryLayout: in your code; it will be removed without
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1888	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1889
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1890	^ here layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1891	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1892
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1893	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1894	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1895	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1896	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1897	DO NOT USE #geometryLayout: in your code; it will be removed without
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1898	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1899
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1900	here layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1901	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1902
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1903	height:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1904	"set the views height in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1905
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1906	self extent:(width @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1907	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1908
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1909	heightIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1910	"return my height including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1911	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1912	while #height returns the height as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1913
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1914	^ height + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1915	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1916
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1917	horizontalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1918	"set the insets of the left/right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1919	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1920
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1921	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1922	insets := Array with:0 with:0 with:0 with:0
135 cf8e46015072 . claus parents: diff changeset	1923	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1924	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1925	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1926
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1927	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1928	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1929	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1930	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1931	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1932	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1933
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1934	"Modified: 19.7.1996 / 17:30:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1935	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1936
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1937	initialExtent:extent
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1938	"set the views extent, but dont change its explicitExtent setting.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1939	a variant of #extent."
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1940
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1941	\|expl\|
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1942
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1943	expl := explicitExtent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1944	self extent:extent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1945	explicitExtent := expl
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1946	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1947
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1948	initialHeight:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1949	"set the views height in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1950
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1951	self initialExtent:(width @ aNumber)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1952	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1953
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1954	initialWidth:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1955	"set the views width in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1956
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1957	self initialExtent:(aNumber @ height)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1958	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1959
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1960	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1961	"return the height of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1962
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1963	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1964	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1965	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1966
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1967	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1968	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1969	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1970
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1971	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1972	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1973
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1974	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1975	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1976	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1977	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1978
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1979	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1980	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1981
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1982	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1983	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1984	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1985	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1986
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1987	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1988	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1989
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1990	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1991	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1992
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1993	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1994	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1995	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1996
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1997	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1998	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1999	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2000
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2001	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2002	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2003
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2004	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2005	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2006	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2007
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2008	self allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2009	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2010
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2011	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2012	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2013	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2014	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2015	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2016	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2017	since the above listed instance variables will vanish."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2018
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2019	^ layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2020	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2021
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2022	layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2023	"set the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2024	Currently, this is almost nowhere used but views will be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2025	incrementally changed to use this new geometry management."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2026
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2027	layout := aLayoutObject.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2028	superView isNil ifTrue:[
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2029	originChanged := cornerChanged := extentChanged := true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2030	] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2031	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2032	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2033
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2034	"Modified: 19.9.1995 / 16:17:25 / claus"
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2035	"Modified: 19.7.1996 / 17:30:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2036	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2037
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2038	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2039	"return the x position of the left border (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2040
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2041	^ left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2042	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2043
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2044	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2045	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2046
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2047	self origin:(aNumber @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2048	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2049
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2050	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2051	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2052
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2053	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2054	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2055
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2056	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2057	"return the inset of the left edge; positive is to the right,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2058	negative to the left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2059
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2060	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2061	^ insets at:1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2062	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2063
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2064	leftInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2065	"set the inset of the left edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2066	positive is to the right (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2067	negative to the left (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2068
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2069	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2070	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2071	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2072	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2073
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2074	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2075	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2076	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2077	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2078	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2079	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2080
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2081	"Modified: 19.7.1996 / 17:30:30 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2082	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2083
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2084	makeFullyVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2085	"make sure, that the view is fully visible by shifting it
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2086	into the visible screen area if nescessary.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2087	This method will be moved to StandardSystemView ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2088
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2089	\|devBot devRight newTop newLeft\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2090
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2091	newTop := top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2092	newLeft := left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2093
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2094	((top + height) > (devBot := device height)) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2095	newTop := devBot - height
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2096	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2097	((left + width) > (devRight := device width)) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2098	newLeft := devRight - width
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2099	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2100	(newTop < 0) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2101	newTop := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2102	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2103	(newLeft < 0) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2104	newLeft := 0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2105	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2106	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2107	self origin:newLeft @ newTop
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2108	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2109	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2110
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2111	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2112	"return the origin (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2113
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2114	^ left@top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2115	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2116
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2117	origin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2118	"set the views origin;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2119	origin may be:
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2120	a point
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2121	where integer fields mean 'pixel-values'
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2122	and float values mean 'relative-to-superview'
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2123	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2124	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2125	Please migrate to use layout objects."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2126
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2127	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2128
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2129	origin isBlock ifTrue:[
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2130	originRule := origin.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2131	drawableId notNil ifTrue:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2132	pixelOrigin := origin value
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2133	] ifFalse:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2134	originChanged := true
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2135	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2136	] ifFalse:[
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2137	o := origin.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2138	newLeft := origin x.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2139	newTop := origin y.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2140	newLeft isNil ifTrue:[newLeft := left].
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2141	newTop isNil ifTrue:[newTop := top].
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2142	o := newLeft @ newTop.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2143	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2144	relativeOrigin := o.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2145	pixelOrigin := self originFromRelativeOrigin.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2146	pixelOrigin isNil ifTrue:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2147	originChanged := true
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2148	]
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2149	] ifFalse:[
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2150	relativeOrigin := nil.
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2151	pixelOrigin := o
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2152	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2153	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2154	pixelOrigin notNil ifTrue:[
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2155	self pixelOrigin:pixelOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2156	].
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2157
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2158	"Modified: 19.4.1996 / 15:12:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2159	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2160
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2161	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2162	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2163
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2164	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2165
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2166	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2167
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2168	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2169
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2170	origin isBlock ifFalse:[
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2171	corner isBlock ifFalse:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2172	newLeft := origin x.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2173	newLeft isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2174	newTop := origin y.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2175	newTop isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2176	newRight := corner x.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2177	newRight isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2178	newBot := corner y.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2179	newBot isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2180	self pixelOrigin:origin corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2181	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2182	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2183	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2184	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2185	]
135 cf8e46015072 . claus parents: diff changeset	2186	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2187	self origin:origin.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2188	self corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2189
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2190	"Modified: 15.7.1996 / 09:52:43 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2191	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2192
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2193	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2194	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2195
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2196	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2197
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2198	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2199
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2200	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2201
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2202	origin isBlock ifFalse:[
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2203	extent isBlock ifFalse:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2204	newLeft := origin x.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2205	newLeft isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2206	newTop := origin y.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2207	newTop isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2208	newWidth := extent x.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2209	newWidth isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2210	newHeight := extent y.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2211	newHeight isInteger ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2212	self pixelOrigin:origin extent:extent
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2213	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2214	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2215	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2216	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2217	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2218	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2219	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2220	self origin:origin
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2221
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2222	"Modified: 15.7.1996 / 09:52:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2223	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2224
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2225	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2226	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2227	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2228	If the receiver is nonNil and not a subview of aView, return nil."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2229
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2230	\|currentView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2231	org "{ Class: Point }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2232	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2233	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2234
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2235	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2236	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2237	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2238	[currentView notNil] whileTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2239	(currentView == aView) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2240	^ (sumX @ sumY)
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2241	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2242	org := currentView origin.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2243	sumX := sumX + org x.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2244	sumY := sumY + org y.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2245	currentView := currentView superView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2246	].
729 d2fdca1c2895 eliminated references to RootView Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2247	(aView isNil or:[aView == device rootView]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2248	"return relative to screen ..."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2249	^ (sumX @ sumY)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2250	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2251	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2252
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2253	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2254	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2255
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2256	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2257	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2258	sub1 := View origin:0.2 @ 0.2 corner:0.8 @ 0.8 in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2259	sub2 := Button origin:0.3 @ 0.3 corner:0.7 @ 0.7 in:sub1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2260	top openAndWait.
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2261	Transcript show:'button in top:'; showCR:(sub2 originRelativeTo:top).
cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2262	Transcript show:'button on screen:'; showCR:(sub2 originRelativeTo:nil).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2263	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2264	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2265
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2266	originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2267	"return the origin block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2268
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2269	^ originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2270	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2271
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2272	preferredExtent:anExtentPoint
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2273	"override the views own preferredExtent computation,
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2274	and let it prefer the size given by the argument."
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2275
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2276	preferredExtent := anExtentPoint.
1038 fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2277
fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2278	"Modified: 22.8.1996 / 13:41:47 / cg"
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2279	!
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2280
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2281	relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2282	"return the relative corner or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2283
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2284	^ relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2285	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2286
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2287	relativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2288	"set the relative corner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2289
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2290	relativeCorner := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2291	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2292
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2293	relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2294	"return the relative extent or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2295
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2296	^ relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2297	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2298
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2299	relativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2300	"set the relative extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2301
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2302	relativeExtent := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2303	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2304
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2305	relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2306	"return the relative origin or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2307
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2308	^ relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2309	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2310
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2311	relativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2312	"set the relative origin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2313
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2314	relativeOrigin := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2315	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2316
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2317	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2318	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2319
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2320	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2321
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2322	"Modified: 31.8.1995 / 19:31:10 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2323	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2324
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2325	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2326	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2327
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2328	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2329	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2330
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2331	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2332	"return the inset of the right edge; positive is to the left,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2333	negative to the right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2334
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2335	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2336	^ insets at:3
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2337	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2338
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2339	rightInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2340	"set the inset of the right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2341	positive is to the left (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2342	negative to the right (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2343
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2344	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2345	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2346	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2347	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2348
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2349	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2350	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2351	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2352	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2353	self containerChangedSize.
135 cf8e46015072 . claus parents: diff changeset	2354	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2355
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2356	"Modified: 19.7.1996 / 17:30:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2357	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2358
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2359	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2360	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2361	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2362	should cease to do so and take their current size if sizeFixed is set to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2363	true. Currently, only supported by Labels.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2364	This does NOT prevent the window manager from resizing the view,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2365	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2366	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2367
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2368	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2369	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2370
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2371	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2372	"return the y position of the top border"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2373
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2374	^ top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2375	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2376
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2377	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2378	"set the y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2379
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2380	self origin:(left @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2381	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2382
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2383	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2384	"return the inset of the top edge; positive is to the bottom,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2385	negative to the top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2386
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2387	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2388	^ insets at:2
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2389	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2390
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2391	topInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2392	"set the inset of the top edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2393	positive is to the bottom (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2394	negative to the top (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2395
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2396	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2397	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2398	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2399	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2400
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2401	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2402	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2403	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2404	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2405	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2406	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2407
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2408	"Modified: 19.7.1996 / 17:30:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2409	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2410
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2411	verticalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2412	"set the insets of the top/bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2413	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2414
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2415	insets isNil ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2416	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2417	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2418	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2419	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2420
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2421	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2422	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2423	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2424	"/ ] ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2425	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2426	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2427
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2428	"Modified: 19.7.1996 / 17:30:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2429	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2430
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2431	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2432	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2433	This is used by relative sized subviews and layout-computations
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2434	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2435	For most views, the value returned here (actual extent minus any
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2436	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2437	However, views which want some extra area around (for example: FramedBox)
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2438	may redefine this method to return a rectangle without this area
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2439	(thus, a relative sized subviews coordinates will be based on this net area) "
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2440
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2441	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2442
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2443	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2444	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2445
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2446	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2447	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2448
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2449	width:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2450	"set the views width in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2451
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2452	self extent:(aNumber @ height)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2453	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2454
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2455	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2456	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2457	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2458	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2459
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2460	^ width + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2461	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2462
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2463	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2464
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2465	components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2466	"return the collection of non-view components"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2467
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2468	^ components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2469
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2470	"Created: 28.5.1996 / 23:59:37 / cg"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2471	!
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2472
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2473	container
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2474	"return my container"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2475
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2476	^ superView
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2477
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2478	"Created: 5.6.1996 / 01:08:36 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2479	"Modified: 10.1.1997 / 19:47:59 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2480	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2481
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2482	container:aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2483	"set my container (i.e. superView) to be aContainer"
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2484
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2485	(superView notNil and:[superView ~~ aContainer]) ifTrue:[
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2486	"/ actually, this is worth an exception
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	2487	('View [warning]: ' , self printString , ' already has a container') errorPrintCR.
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2488	superView removeComponent:self.
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2489	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2490	superView := aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2491
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2492	"Created: 9.5.1996 / 00:40:56 / cg"
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	2493	"Modified: 29.1.1997 / 17:37:38 / cg"
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2494	!
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2495
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2496	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2497	"bring to back"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2498
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2499	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2500	device lowerWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2501
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2502	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2503	Transcript topView lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2504	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2505	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2506
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2507	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2508	"bring to front"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2509
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2510	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2511	device raiseWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2512
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2513	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2514	Transcript topView raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2515	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2516	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2517
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2518	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2519	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2520
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2521	^ subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2522	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2523
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2524	subViews:aListOfViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2525	"set the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2526
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2527	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	2528	subViews notNil ifTrue:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2529	subViews do:[:view \|
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2530	view container:self
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2531	]
135 cf8e46015072 . claus parents: diff changeset	2532	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2533
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2534	"Modified: 9.5.1996 / 00:42:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	2535	!
cf8e46015072 . claus parents: diff changeset	2536
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2537	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2538	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2539
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2540	^ superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2541	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2542
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2543	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2544	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2545
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2546	self obsoleteMethodWarning:'use #container:'.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2547	self container:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2548
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2549	"Modified: 9.5.1996 / 00:46:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2550	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2551
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2552	topComponent
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2553	"return the topmost component - thats the one with no superview.
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2554	For ST-80 compatibility."
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2555
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2556	^ self topView
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2557
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2558	"Modified: 9.5.1996 / 01:40:24 / cg"
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2559	!
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2560
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2561	topView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2562	"return the topView - thats the one with no superview"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2563
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2564	\|v next\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2565
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2566	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2567	[v notNil] whileTrue:[
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2568	(next := v container) isNil ifTrue:[^ v].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2569	v := next
135 cf8e46015072 . claus parents: diff changeset	2570	].
cf8e46015072 . claus parents: diff changeset	2571
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2572	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2573
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2574	"Modified: 5.6.1996 / 01:09:12 / cg"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2575	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2576
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2577	view
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2578	"return my view - for real views, thats the receiver.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2579	For wrappers, its the real view that contains it"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2580
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2581	^ self
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2582
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2583	"Created: 4.6.1996 / 21:32:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2584	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2585
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2586	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2587
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2588	menuHolder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2589	"who has the menu ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2590	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2591
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2592	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2593	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2594
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2595	menuMessage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2596	"Return the symbol sent to myself to aquire the menu"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2597
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2598	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2599	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2600
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2601	menuPerformer
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2602	"who should perform the menu actions ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2603	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2604
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2605	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2606	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2607
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2608	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2609	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2610	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2611	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2612	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2613	controller."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2614
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2615	\|sym menuHolder\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2617	"/ middleButtonMenu notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2618	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2619	"/ "/ has been assigned a static middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2620	"/ "/ (or a cached menu)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2621	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2622	"/ ^ middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2623	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2624
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2625	menuHolder := self menuHolder.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2626
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2627	menuHolder notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2628	sym := self menuMessage.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2629	sym notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2630	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2631	mhmh - for backward compatibility, try to ask
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2632	the model first, then use the views menu.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2633	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2634	(menuHolder respondsTo:sym) ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2635	(self respondsTo:sym) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2636	menuHolder := self
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2637	]
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2638	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2639	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2640	ask the menuHolder for the menu
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2641	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2642	^ menuHolder perform:sym.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2643	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2644	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2645
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2646	^ nil
135 cf8e46015072 . claus parents: diff changeset	2647	! !
cf8e46015072 . claus parents: diff changeset	2648
cf8e46015072 . claus parents: diff changeset	2649	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	2650
cf8e46015072 . claus parents: diff changeset	2651	bitGravity
cf8e46015072 . claus parents: diff changeset	2652	"return the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2653	when the the view is resized."
cf8e46015072 . claus parents: diff changeset	2654
cf8e46015072 . claus parents: diff changeset	2655	^ bitGravity
cf8e46015072 . claus parents: diff changeset	2656	!
cf8e46015072 . claus parents: diff changeset	2657
cf8e46015072 . claus parents: diff changeset	2658	bitGravity:gravity
cf8e46015072 . claus parents: diff changeset	2659	"set the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2660	when the view is resized."
cf8e46015072 . claus parents: diff changeset	2661
cf8e46015072 . claus parents: diff changeset	2662	bitGravity ~~ gravity ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2663	bitGravity := gravity.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2664	drawableId notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2665	device setBitGravity:gravity in:drawableId
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2666	]
135 cf8e46015072 . claus parents: diff changeset	2667	]
cf8e46015072 . claus parents: diff changeset	2668	!
cf8e46015072 . claus parents: diff changeset	2669
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2670	clippingRectangle:aRectangle
153 c56277fa4865 . claus parents: 151 diff changeset	2671	"set the clipping rectangle for drawing (in logical coordinates);
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	2672	a nil argument turns off clipping (i.e. whole view is drawable).
153 c56277fa4865 . claus parents: 151 diff changeset	2673	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	2674
c56277fa4865 . claus parents: 151 diff changeset	2675	\|x y w h\|
c56277fa4865 . claus parents: 151 diff changeset	2676
c56277fa4865 . claus parents: 151 diff changeset	2677	aRectangle isNil ifTrue:[
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2678	clipRect isNil ifTrue:[^ self].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2679	gcId notNil ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2680	device noClipIn:gcId
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2681	]
153 c56277fa4865 . claus parents: 151 diff changeset	2682	] ifFalse:[
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2683	clipRect notNil ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2684	(clipRect = aRectangle) ifTrue:[^ self]
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2685	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2686	gcId notNil ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2687	x := aRectangle left.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2688	y := aRectangle top.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2689	w := aRectangle width.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2690	h := aRectangle height.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2691	transformation notNil ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2692	x := transformation applyToX:x.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2693	y := transformation applyToY:y.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2694	w := transformation applyScaleX:w.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2695	h := transformation applyScaleY:h.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2696	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2697	(x isMemberOf:SmallInteger) ifFalse:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2698	w := w + (x - x truncated).
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2699	x := x truncated
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2700	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2701	(y isMemberOf:SmallInteger) ifFalse:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2702	h := h + (y - y truncated).
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2703	y := y truncated
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2704	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2705	(w isMemberOf:SmallInteger) ifFalse:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2706	w := w truncated + 1
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2707	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2708	(h isMemberOf:SmallInteger) ifFalse:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2709	h := h truncated + 1
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2710	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2711	x < margin ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2712	x := margin.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2713	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2714	y < margin ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2715	y := margin.
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2716	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2717	x + w - 1 >= (width-margin) ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2718	w := width - margin - x
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2719	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2720	y + h - 1 >= (height-margin) ifTrue:[
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2721	h := height - margin - y
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2722	].
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2723	device setClipX:x y:y width:w height:h in:gcId
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2724	]
153 c56277fa4865 . claus parents: 151 diff changeset	2725	].
c56277fa4865 . claus parents: 151 diff changeset	2726	clipRect := aRectangle
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2727
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2728	"Created: 28.5.1996 / 19:50:03 / cg"
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	2729	"Modified: 28.5.1996 / 22:32:15 / cg"
153 c56277fa4865 . claus parents: 151 diff changeset	2730	!
c56277fa4865 . claus parents: 151 diff changeset	2731
c56277fa4865 . claus parents: 151 diff changeset	2732	fullName
c56277fa4865 . claus parents: 151 diff changeset	2733	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	2734
c56277fa4865 . claus parents: 151 diff changeset	2735	superView notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2736	^ superView fullName , '.' , name
153 c56277fa4865 . claus parents: 151 diff changeset	2737	].
c56277fa4865 . claus parents: 151 diff changeset	2738	^ name
c56277fa4865 . claus parents: 151 diff changeset	2739	!
c56277fa4865 . claus parents: 151 diff changeset	2740
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2741	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2742	"return my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2743
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2744	^ name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2745	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2746
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2747	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2748	"set my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2750	name := aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2751	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2752
153 c56277fa4865 . claus parents: 151 diff changeset	2753	processName
c56277fa4865 . claus parents: 151 diff changeset	2754	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	2755
c56277fa4865 . claus parents: 151 diff changeset	2756	^ self name
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2757	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2758
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2759	styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2760	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2761	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2762	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2763
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2764	^ styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2765
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2766	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2767	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2768
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2769	viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2770	"return the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2771	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2772
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2773	^ viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2774	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2775
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2776	viewGravity:gravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2777	"set the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2778	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2779
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2780	viewGravity ~~ gravity ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2781	viewGravity := gravity.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2782	drawableId notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2783	device setWindowGravity:gravity in:drawableId
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2784	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2785	]
140 0db355079dc4 . claus parents: 138 diff changeset	2786	! !
0db355079dc4 . claus parents: 138 diff changeset	2787
0db355079dc4 . claus parents: 138 diff changeset	2788	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	2789
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2790	application
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2791	"return the application, under which this view was opened,
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2792	or nil, if there is no application"
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2793
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2794	\|top\|
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2795
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2796	(top := self topView) notNil ifTrue:[
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	2797	top ~~ self ifTrue:[
2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	2798	^ top application
2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	2799	]
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2800	].
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2801	^ nil
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2802
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	2803	"Modified: 13.1.1997 / 20:30:31 / cg"
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2804	!
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2805
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2806	aspect:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2807	"ST-80 style updating: If a views aspectSymbol is nonNil,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2808	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2809	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2810
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2811	self aspectMessage:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2812	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2813
140 0db355079dc4 . claus parents: 138 diff changeset	2814	controller
0db355079dc4 . claus parents: 138 diff changeset	2815	"return the controller. For non MVC views, return nil"
0db355079dc4 . claus parents: 138 diff changeset	2816
0db355079dc4 . claus parents: 138 diff changeset	2817	^ controller
0db355079dc4 . claus parents: 138 diff changeset	2818	!
0db355079dc4 . claus parents: 138 diff changeset	2819
0db355079dc4 . claus parents: 138 diff changeset	2820	controller:aController
0db355079dc4 . claus parents: 138 diff changeset	2821	"set the controller"
0db355079dc4 . claus parents: 138 diff changeset	2822
0db355079dc4 . claus parents: 138 diff changeset	2823	controller := aController.
0db355079dc4 . claus parents: 138 diff changeset	2824	controller notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2825	controller view:self.
135 cf8e46015072 . claus parents: diff changeset	2826	]
cf8e46015072 . claus parents: diff changeset	2827	!
cf8e46015072 . claus parents: diff changeset	2828
140 0db355079dc4 . claus parents: 138 diff changeset	2829	model
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2830	"return nil - simpleViews have no model (only providing geometric)"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2831
135 cf8e46015072 . claus parents: diff changeset	2832	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2833
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2834	"Modified: 5.6.1996 / 14:17:29 / cg"
135 cf8e46015072 . claus parents: diff changeset	2835	!
cf8e46015072 . claus parents: diff changeset	2836
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2837	sensor
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2838	"return the views sensor"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2839
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2840	windowGroup notNil ifTrue:[
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2841	^ windowGroup sensor.
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2842	].
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2843	^ nil
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2844
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2845	"Modified: 10.1.1997 / 19:47:13 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2846	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2847
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2848	setController:aController
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2849	"set the controller but do not affect the model/view releationship"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2850
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2851	controller := aController.
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2852
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2853	"Created: 18.7.1996 / 11:43:40 / cg"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2854	!
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2855
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2856	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2857	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2858
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2859	^ windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2860	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2861
140 0db355079dc4 . claus parents: 138 diff changeset	2862	windowGroup:aGroup
0db355079dc4 . claus parents: 138 diff changeset	2863	"set the window group."
0db355079dc4 . claus parents: 138 diff changeset	2864
0db355079dc4 . claus parents: 138 diff changeset	2865	windowGroup := aGroup
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2866	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2867
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2868	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2869
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2870	maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2871	"return the maximum of all components bottom"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2872
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2873	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2874	^ components inject:0 into:[:maxSoFar :sub
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2875	\| (sub bottom) max:maxSoFar].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2876
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2877	"Created: 26.5.1996 / 12:44:05 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2878	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2879	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2880
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2881	maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2882	"return the maximum of all components rights"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2883
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2884	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2885	^ components inject:0 into:[:maxSoFar :sub
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2886	\| (sub right) max:maxSoFar].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2887
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2888	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2889	"Created: 26.5.1996 / 13:02:19 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2890	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2891
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2892	maxSubViewBottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2893	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2894	"/ ^ subViews inject:0 into:[:maxSoFar :sub \| (sub top + sub height) max:maxSoFar].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2895	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2896	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2897
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2898	maxSubViewRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2899	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2900	"/ ^ subViews inject:0 into:[:maxSoFar :sub \| (sub left + sub width) max:maxSoFar].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2901	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2902	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2903
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2904	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2905	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2906
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2907	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2908	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2909	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2910
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2911	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2912	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2913
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2914	\|p\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2915
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2916	p := aPoint negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2917	transformation isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2918	transformation := WindowingTransformation scale:1 translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2919	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2920	transformation translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2921	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2922	clipRect notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2923	self setInnerClip.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2924	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2925	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2926
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2927	viewOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2928	"return the viewOrigin; thats the coordinate of the contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2929	which is shown topLeft in the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2930	(i.e. the origin of the visible part of the contents)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2931
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2932	transformation isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	2933	^ 0@0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2934	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2935	^ transformation translation negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2936	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2937
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2938	visibleArea
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2939	"return the rectangle that contains the visible part
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2940	of the view in user coordinates."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2941
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2942
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2943	transformation isNil ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2944	^ Rectangle left:0 top:0 width:width height:height.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2945	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2946	^ Rectangle origin:(transformation translation negated)
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2947	extent:((width @ height) scaledBy:(transformation scale)).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2948
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2949	"Created: 12.7.1996 / 11:57:04 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2950	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	2951
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2952	xOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2953	"return the x coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2954	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2955
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2956	^ self viewOrigin x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2957	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2958
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2959	yOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2960	"return the y coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2961	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2962
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2963	^ self viewOrigin y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2964	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2965
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2966	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2967
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2968	beInvisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2969	"make the view invisible; if my container is visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2970	change visibility immediately;
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2971	otherwise, arrange for the receiver to be not realized,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2972	when the container is made visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2973
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2974	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2975	realized ifTrue:[
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	2976	(superView isNil "/ I am a topView
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	2977	or:[superView realized]) "/ superview already shown
711 8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	2978	ifTrue:[
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	2979	self unmap
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	2980	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2981	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2982
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2983	"Modified: 3.4.1997 / 21:20:40 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2984	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2985
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2986	beVisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2987	"make the view visible; if my container is already visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2988	change visibility immediately; otherwise, arrange for the receiver
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2989	to be made visible when the container is made visible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2990	Notice, that the command may not be sent immediately to the display,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2991	and that ST/X considers the view to be still invisible until a
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2992	cisibility event arrives. Thus, the view may remain logically invisible
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2993	for a while. (see #beVisibleNow for more on this)"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2994
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2995	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2996	realized ifFalse:[
711 8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	2997	superView isNil "/ I am a topView
574 41257c050cf4 beVisible ca parents: 573 diff changeset	2998	ifTrue:[
711 8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	2999	self remap
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	3000	] ifFalse:[
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	3001	superView realized "/ superview already shown
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	3002	ifTrue:[
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	3003	self realize
8aa1b1a9536f fixed beVisible, to remap topViews at old position Claus Gittinger <cg@exept.de> parents: 709 diff changeset	3004	]
574 41257c050cf4 beVisible ca parents: 573 diff changeset	3005	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3006	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3007
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3008	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3009	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3010
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3011	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3012	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3013	topFrame := VerticalPanelView origin:0.0@0.0 corner:1.0@0.4 in:top.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3014	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3015
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3016	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3017	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3018	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3019
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3020	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3021	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3022	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3023	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3024
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3025	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3026	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3027
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3028	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3029	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3030
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3031	"Created: 22.9.1995 / 15:50:33 / claus"
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3032	"Modified: 3.4.1997 / 21:24:49 / cg"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3033	!
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3034
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3035	beVisibleNow
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3036	"make the view visible immediately.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3037	In contrast to #beVisible, this waits until the view is really
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3038	visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3039
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3040	self beVisible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3041	device sync.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3042	realized := shown := true.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3043
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3044	"Created: 3.4.1997 / 21:23:28 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3045	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3046
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3047	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3048	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3049	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3050
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3051	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3052	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3053
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3054	"Modified: 17.1.1996 / 11:44:47 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3055	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3056
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3057	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3058	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3059	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3060
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3061	self obsoleteMethodWarning:'use #beVisible / #beInvisible'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3062	hiddenOnRealize := aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3063
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3064	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3065	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3066
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3067	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3068	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3069	be mapped automatically when the superview is realized.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3070	The hiddenOnRealize flag is useful to create views which are
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3071	to be made visible conditionally or later.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3072	For ST-80 compatibility, please use #beVisible / #beInvisible."
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3073
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3074	hiddenOnRealize := aBoolean
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3075
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3076	"Modified: 3.4.1997 / 21:21:21 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3077	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3078
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3079	isHiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3080	"return true, if the receiver will NOT be mapped when
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3081	realized. False otherwise.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3082	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3083	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3084
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3085	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3086	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3087
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3088	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3089	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3090	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3091
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3092	^ shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3093	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3094
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3095	!SimpleView methodsFor:'adding & removing components'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3096
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3097	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3098	"add a component (either a view or gadget) to the collection of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3099	subComponents."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3101	self addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3102	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3103
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3104	add:aComponent at:anOrigin
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3105	"for ST-80 compatibility.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3106	add a component at some origin"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3107
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3108	\|l comp\|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3109
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3110	(aComponent isWrapper not
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3111	or:[aComponent isLayoutWrapper not]) ifTrue:[
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3112	comp := LayoutWrapper on:aComponent
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3113	] ifFalse:[
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3114	comp := aComponent
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3115	].
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3116
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3117	l := anOrigin asLayout.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3118	comp layout:l.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3119
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3120	self addComponent:comp
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3121
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3122	"Modified: 12.2.1997 / 11:55:33 / cg"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3123	!
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3124
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3125	add:aComponent in:aRectangleOrLayoutFrame
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3126	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3127	add a component in some frame; the argument may be either a rectangle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3128	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3129	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3130
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3131	\|l\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3132
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	3133	l := aRectangleOrLayoutFrame asLayout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3134
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3135	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3136	"/ aComponent layout:l.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3137	aComponent geometryLayout:l.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3138
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3139	self addComponent:aComponent
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	3140
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	3141	"Modified: 29.5.1996 / 15:12:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3142	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3143
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3144	addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3145	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3146	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3147
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3148	aComponent isView ifTrue:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3149	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3150	] ifFalse:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3151	components isNil ifTrue:[
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3152	components := OrderedCollection new
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3153	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3154	components add:aComponent.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3155	aComponent container:self.
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3156	shown ifTrue:[
ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3157	aComponent displayOn:self
ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3158	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3159	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3160
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3161	"Modified: 13.5.1996 / 21:19:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3162	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3163
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3164	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3165	"add a view to the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3166
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3167	subViews isNil ifTrue:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3168	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3169	] ifFalse:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3170	subViews add:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3171	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3172	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3173
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3174	"Modified: 9.5.1996 / 00:47:16 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3175	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3176
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3177	addSubView:newView after:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3178	"add a view to the collection of subviews after another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3179	This makes sense, in Panels and other layout views, to enter a new
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3180	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3181
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3182	subViews isNil ifTrue:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3183	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3184	] ifFalse:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3185	aView isNil ifTrue:[
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3186	subViews add:newView
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3187	] ifFalse:[
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3188	subViews add:newView after:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3189	]
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3190	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3191	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3192
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3193	"Modified: 9.5.1996 / 00:47:20 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3194	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3195
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3196	addSubView:newView before:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3197	"add a view to the collection of subviews before another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3198	This makes sense, in Panels and other layout views, to enter a new
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3199	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3200
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3201	subViews isNil ifTrue:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3202	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3203	] ifFalse:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3204	aView isNil ifTrue:[
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3205	subViews addFirst:newView
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3206	] ifFalse:[
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3207	subViews add:newView before:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3208	]
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3209	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3210	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3211
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3212	"Modified: 9.5.1996 / 00:47:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3213	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3214
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3215	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3216	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3217
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3218	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3219	self add:aView in:bounds.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3220	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3221
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3222	addSubViewFirst:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3223	"add a view to the front of the collection of subviews"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3224
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3225	subViews isNil ifTrue:[
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3226	subViews := OrderedCollection with:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3227	] ifFalse:[
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3228	subViews addFirst:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3229	].
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3230	self setContainerIn:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3231
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3232	"Modified: 9.5.1996 / 00:47:16 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3233	"Created: 6.3.1997 / 18:43:38 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3234	!
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3235
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3236	component:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3237	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3238	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3239
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3240	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3241	aComponent isView ifTrue:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3242	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3243	] ifFalse:[
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3244	components := OrderedCollection with:aComponent.
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3245	aComponent container:self.
ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3246
ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3247	shown ifTrue:[
ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3248	aComponent displayOn:self
ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3249	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3250	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3251
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3252	"Modified: 13.5.1996 / 21:20:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3253	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3255	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3256	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3257
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3258	subViews notNil ifTrue:[
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3259	subViews copy do:[:aSubView \|
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3260	aSubView destroy.
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3261	].
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3262
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3263	"/ paranoia ;-)
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3264	subViews size ~~ 0 ifTrue:[
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3265	('View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3266	subViews := nil
dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3267	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3268	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3269
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3270	"Modified: 5.9.1995 / 22:35:36 / claus"
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3271	"Modified: 29.1.1997 / 17:07:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3272	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3273
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3274	removeComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3275	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3276	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3277
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3278	aComponent isView ifTrue:[
1304 d914bfc99b49 use #removeIdentical Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	3279	self removeSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3280	] ifFalse:[
1304 d914bfc99b49 use #removeIdentical Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	3281	components isNil ifTrue:[^self].
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	3282	components remove:aComponent ifAbsent:[].
1304 d914bfc99b49 use #removeIdentical Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	3283	aComponent parent:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3284	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3285	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3286
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3287	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3288	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3289
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3290	subViews notNil ifTrue:[
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	3291	subViews remove:aView ifAbsent:[nil].
1304 d914bfc99b49 use #removeIdentical Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	3292	(subViews size == 0) ifTrue:[
d914bfc99b49 use #removeIdentical Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	3293	subViews := nil
d914bfc99b49 use #removeIdentical Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	3294	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3295	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3296	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3297
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3298	setContainerIn:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3299	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3300
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3301	aView container:self.
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	3302	(aView graphicsDevice ~~ device) ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3303	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3304	') has different device than me (' errorPrint.
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3305	self class name errorPrint. ').' errorPrintCR.
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3306
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3307	aView device:device
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3308	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3309
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3310	"Created: 9.5.1996 / 00:46:59 / cg"
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3311	"Modified: 10.1.1997 / 18:06:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3312	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3313
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3314	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3315
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3316	changedPreferredBounds:someArgument
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3317	"tell any dependents, that I have changed my preferred bounds;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3318	Interface is provided mostly provided for ST80 compatibility;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3319	here, translate into ST/X's mechanism for telling others about this."
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3320
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3321	^ self changed:#preferredExtent
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3322
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3323	"Modified: 6.3.1997 / 16:12:02 / cg"
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3324	!
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3325
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3326	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3327	"an update request"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3328
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3329	aspect == #sizeOfView ifTrue:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3330	"one of the views we depend on changed its size"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3331	^ self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3332	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3333	^super update:aspect with:aParameter from:changedObject
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3334
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3335	"Modified: 19.7.1996 / 17:30:48 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3336	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3337
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3338	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3339
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3340	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3341	"evaluate some time consuming block, while doing this,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3342	show a spinning wheel cursor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3343
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3344	\|ok bitmaps cursors mask process oldCursor\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3345
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3346	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3347
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3348	ok := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3349	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3350	collect:[:name \|
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3351	\|f\|
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3352
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3353	f := Image fromFile:('bitmaps/' , name , '.xbm').
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3354	f isNil ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3355	('SimpleView [warning]: no bitmap file: ' , name , '.xbm') errorPrintCR.
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3356	ok := false
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3357	].
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3358	f
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3359	].
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3360
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3361	mask := Image fromFile:'bitmaps/wheelm.xbm'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3362	mask isNil ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3363	('SimpleView [warning]: no bitmap file: wheelm.xbm') errorPrintCR.
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3364	ok := false
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3365	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3366
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3367	ok ifFalse:[
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3368	self cursor:Cursor wait.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3369	aBlock valueNowOrOnUnwindDo:[
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3370	self cursor:oldCursor
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3371	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3372	] ifTrue:[
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3373	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3374	maskForm:mask
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3375	hotX:8
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3376	hotY:8) on:device].
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3377
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3378	process := [
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3379	Delay waitForSeconds:0.25.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3380	[true] whileTrue:[
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3381	cursors do:[:curs \|
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3382	self cursor:curs.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3383	Delay waitForSeconds:0.05
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3384	]
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3385	]
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3386	] fork.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3387
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3388	Processor activeProcess priority:7.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3389	aBlock valueNowOrOnUnwindDo:[
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3390	Processor activeProcess priority:8.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3391	process terminate.
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3392	self cursor:oldCursor
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3393	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3394	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3395
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3396	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3397	View new realize showBusyWhile:[10 timesRepeat:[3000 factorial]]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3398	"
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3399
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3400	"Modified: 10.1.1997 / 18:07:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3401	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3402
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3403	!SimpleView methodsFor:'drag & drop'!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3404
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3405	canDrop:anObjectOrCollection
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3406	"return true, if anObjectOrCollection can be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3407	dropped in the receiver. This method should be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3408	redefined in views which can take objects"
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3409
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3410	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3411
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3412	(app := self application) notNil ifTrue:[
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3413	^ app canDrop:anObjectOrCollection in:self
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3414	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3415	^ false
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3416	!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3417
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3418	drop:anObjectOrCollection at:aPoint
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3419	"drop manager wants to drop.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3420	If I have an application, forward the request.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3421	Otherwise, ignore it. This is only sent, if #canDrop: returned true;
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3422	if you redefined #canDrop: in a subclass, #drop:at: must also be redefined."
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3423
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3424	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3425
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3426	(app := self application) notNil ifTrue:[
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3427	^ app drop:anObjectOrCollection in:self at:aPoint
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3428	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3429	self subclassResponsibility
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3430	! !
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3431
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3432	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3433
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3434	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3435	"draw bottom 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3436
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3437	self drawBottomEdgeLevel:level
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3438	shadow:shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3439	light:lightColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3440	halfShadow:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3441	halfLight:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3442	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3443	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3444
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3445	drawBottomEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3446	\|botFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3447	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3448	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3449
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3450	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3451	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3452
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3453	(count < 0) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3454	botFg := lightColor.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3455	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3456	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3457	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3458	botFg := halfShadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3459	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3460	botFg := shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3461	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3462	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3463	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3464	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3465
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3466	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3467	0 to:(count - 1) do:[:i \|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3468	b := height - 1 - i.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3469	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3470	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3471
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3472	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3473	b := height - 1.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3474	super paint:shadowColor.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3475	super displayDeviceLineFromX:1 y:b toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3476	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3477
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3478	self edgeDrawn:#bottom.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3479
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3480	"Modified: 7.3.1997 / 17:59:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3481	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3482
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3483	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3484	"draw all of my 3D edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3485
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3486	self drawEdgesForX:0 y:0 width:width height:height level:level
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3487	shadow:shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3488	light:lightColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3489	halfShadow:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3490	halfLight:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3491	style:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3492	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3493
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3494	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3495	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3496
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3497	self drawEdgesForX:x y:y width:w height:h level:l
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3498	shadow:shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3499	light:lightColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3500	halfShadow:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3501	halfLight:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3502	style:nil
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3503	!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3504
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3505	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3506	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3507
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3508	self drawLeftEdgeLevel:level
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3509	shadow:shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3510	light:lightColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3511	halfShadow:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3512	halfLight:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3513	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3514	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3515
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3516	drawLeftEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3517	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3518	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3519
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3520	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3521	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3522
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3523	(count < 0) ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3524	leftFg := shadowColor.
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3525	leftHalfFg := halfShadowColor.
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3526	count := count negated.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3527	] ifFalse:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3528	leftFg := lightColor.
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3529	leftHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3530	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3531	leftHalfFg isNil ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3532	leftHalfFg := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3533	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3534
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3535	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3536	paint := leftHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3537	] ifFalse:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3538	paint := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3539	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3540	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3541	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3542
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3543	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3544	0 to:(count - 1) do:[:i \|
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3545	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3546	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3547
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3548	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3549	super paint:(device blackColor).
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3550	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3551	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3552
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3553	self edgeDrawn:#left.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3554
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3555	"Modified: 7.3.1997 / 17:59:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3556	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3557
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3558	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3559	"draw right 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3560
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3561	self drawRightEdgeLevel:level
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3562	shadow:shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3563	light:lightColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3564	halfShadow:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3565	halfLight:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3566	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3567	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3568
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3569	drawRightEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3570	\|rightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3571	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3572	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3573
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3574	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3575	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3576
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3577	(count < 0) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3578	rightFg := lightColor.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3579	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3580	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3581	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3582	rightFg := halfShadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3583	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3584	rightFg := shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3585	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3586	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3587	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3588	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3589
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3590	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3591	0 to:(count - 1) do:[:i \|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3592	r := width - 1 - i.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3593	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3594	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3595	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3596	r := width - 1.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3597	super paint:shadowColor.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3598	super displayDeviceLineFromX:r y:1 toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3599	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3600
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3601	self edgeDrawn:#right.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3602
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3603	"Modified: 7.3.1997 / 18:00:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3604	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3605
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3606	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3607	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3608
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3609	self drawTopEdgeLevel:level
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3610	shadow:shadowColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3611	light:lightColor
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3612	halfShadow:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3613	halfLight:nil
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	3614	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3615	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3617	drawTopEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3618	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3619	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3620
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3621	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3622	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3623
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3624	(count < 0) ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3625	topFg := shadowColor.
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3626	topHalfFg := halfShadowColor.
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3627	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3628	] ifFalse:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3629	topFg := lightColor.
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3630	topHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3631	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3632	topHalfFg isNil ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3633	topHalfFg := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3634	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3635
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3636	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3637	paint := topHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3638	] ifFalse:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3639	paint := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3640	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3641	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3642	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3643
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3644	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3645	0 to:(count - 1) do:[:i \|
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3646	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3647	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3648	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3649	super paint:(device blackColor).
6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	3650	super displayDeviceLineFromX:0 y:0 toX:r y:0.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3651	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3652
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3653	self edgeDrawn:#top.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3654
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3655	"Modified: 7.3.1997 / 18:00:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3656	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3657
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3658	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3659	"redraw my edges (if any)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3660
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3661	(level ~~ 0) ifTrue:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3662	shown ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3663	self clippingRectangle:nil.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3664	self drawEdges.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3665	self clippingRectangle:innerClipRect
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3666	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3667	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3668
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3669	"Modified: 28.5.1996 / 20:04:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3670	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3671
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3672	!SimpleView methodsFor:'enumerating subviews'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3673
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3674	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3675	"evaluate aBlock for all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3676
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3677	subViews notNil ifTrue:[
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3678	subViews do:[:aSubview \|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3679	aSubview withAllSubViewsDo:aBlock
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3680	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3681	]
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3682
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3683	"Modified: 12.2.1997 / 12:23:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3684	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3685
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3686	changeSequenceOrderFor:aSubView to:anIndex
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3687	"change a subview's position into subviews collection
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3688	"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3689	\|aView\|
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3690
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3691
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3692	(subViews notNil and:[subViews size >= anIndex]) ifTrue:[
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3693	aView := subViews remove:aSubView ifAbsent:nil.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3694
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3695	aView notNil ifTrue:[
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3696	subViews add:aView beforeIndex:anIndex.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3697	^ true
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3698	]
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3699	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3700	^ false
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3701	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3702
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3703	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3704	"evaluate aBlock for the receiver and all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3705
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3706	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3707	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	3708	! !
cf8e46015072 . claus parents: diff changeset	3709
cf8e46015072 . claus parents: diff changeset	3710	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	3711
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3712	activateMenu
520 3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3713	"activate my menu.
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3714	If there is a static middleButtonMenu, that one is taken,
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3715	and handled in the superClass (static menus are a historic leftOver).
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3716	Otherwise, the follwing steps are performed:
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3717
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3718	- ask the receiver for the menu (via #yellowButtonMenu)
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3719	- ask the receiver for the menuPerformer.
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3720	- startUp the menu - it is supposed to return an actionSelector
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3721	- if the menuPerformer responds to the selector,
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3722	send it to the performer;
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3723	otherwise send it to the view (the receiver)
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3724	This is funny, it allows additional menuItems to be added
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3725	AND still get the views copy/cut/paste functionality.
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3726	Without this, you had to redefine and forward all of those
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3727	messages in the performer."
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3728
1113 6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3729	\|menu menuPerformer actionSelector actionArg haveArg prevReceiver\|
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3730
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3731	middleButtonMenu isNil ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3732
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3733	haveArg := false.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3734
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3735	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3736	try ST-80 style menus first:
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3737	if there is a model, and a menuMessage is defined,
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3738	ask model for the menu and launch that if non-nil.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3739	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3740	menu := self yellowButtonMenu.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3741	menu notNil ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3742	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3743	got one, launch the menu. It is supposed
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3744	to return an actionSelector.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3745	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3746	menuPerformer := self menuPerformer.
520 3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3747
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3748	"
1259 60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3749	a temporary kludge:
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3750	pass myself as receiver, the menuPerformer as performer;
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3751	the menu will send its messages to either the
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3752	menuPerformer or me (its receiver).
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3753	This allows for the ST-80 behavior, where some messages
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3754	go to the model, others to the view
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3755	(copy/cut/paste).
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3756	"
1113 6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3757	(prevReceiver := menu receiver) isNil ifTrue:[
1259 60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3758	"/ menu receiver:menuPerformer.
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3759	menu menuPerformer:menuPerformer.
60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3760	menu receiver:self.
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3761	].
520 3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3762
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3763	"/
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3764	"/ startup the menu - this returns a selector
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3765	"/
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3766	actionSelector := menu startUp.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3767
1113 6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3768	actionSelector notNil ifTrue:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3769	"
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3770	mhmh - kludge for selectors with argument
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3771	"
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3772	(actionSelector isMemberOf:Array) ifTrue:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3773	actionArg := actionSelector at:2.
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3774	actionSelector := actionSelector at:1.
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3775	haveArg := true.
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3776	].
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3777
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3778	"
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3779	mhmh - ST-80 seems to send some to the model and
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3780	others (copy/cut/paste) to the controller/view
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3781	Simulate this behavior, by looking what the model responds to.
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3782	"
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3783	actionSelector isSymbol ifTrue:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3784	(menuPerformer respondsTo:actionSelector) ifFalse:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3785	(self respondsTo:actionSelector) ifTrue:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3786	menuPerformer := self
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3787	]
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3788	].
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3789	actionSelector numArgs ~~ 0 ifTrue:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3790	menuPerformer perform:actionSelector with:actionArg
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3791	] ifFalse:[
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3792	menuPerformer perform:actionSelector
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3793	]
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3794	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3795	].
1113 6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3796
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3797	menu receiver:prevReceiver.
6c1370b4bda4 restore old menu receiver ca parents: 1109 diff changeset	3798
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3799	^ self
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3800	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3801	].
520 3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3802
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3803	"/
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3804	"/ old style static menu
3e947f34a2af describe menuPerformer detection in #activateMenu Claus Gittinger <cg@exept.de> parents: 517 diff changeset	3805	"/
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3806	super activateMenu
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3807
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3808	"Created: 1.3.1996 / 13:24:18 / cg"
1259 60af09384d13 pass myself AND the menuPerformer to the popupMenu. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	3809	"Modified: 21.1.1997 / 15:33:47 / cg"
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3810	!
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3811
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3812	buttonPress:button x:x y:y
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3813	"button was pressed - check my components for a hit."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3814
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3815	components notNil ifTrue:[
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3816	self componentsContainingX:x y:y do:[:comp :cx :cy \|
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3817	comp buttonPress:button x:cx y:cy.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3818	^ self
472 621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3819	]
140 0db355079dc4 . claus parents: 138 diff changeset	3820	].
0db355079dc4 . claus parents: 138 diff changeset	3821
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3822	super buttonPress:button x:x y:y
271 88d9e485a5da menu handling: if entry is a checkToggleEntry, AND selector wants an argument, Claus Gittinger <cg@exept.de> parents: 269 diff changeset	3823
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3824	"Modified: 8.5.1996 / 23:43:41 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3825	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3826
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3827	buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3828	"button was released - check my components for a hit."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3829
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3830	components notNil ifTrue:[
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3831	self componentsContainingX:x y:y do:[:comp :cx :cy \|
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3832	comp buttonRelease:button x:cx y:cy.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3833	^ self
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3834	]
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3835	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3836
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3837	super buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3838
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3839	"Modified: 8.5.1996 / 23:41:58 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	3840	"Created: 8.5.1996 / 23:43:25 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	3841	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	3842
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3843	clientMessage:msgType format:msgFormat eventData:msgData
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3844	"a client message - very X-specific and only useful
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3845	for special applications.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3846	Ignored here"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3847
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3848	"Created: 4.4.1997 / 18:56:52 / cg"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3849	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	3850
140 0db355079dc4 . claus parents: 138 diff changeset	3851	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	3852	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	3853
180 0b3a8658d55e . claus parents: 176 diff changeset	3854	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge p\|
0b3a8658d55e . claus parents: 176 diff changeset	3855
0b3a8658d55e . claus parents: 176 diff changeset	3856	(superView isNil
0b3a8658d55e . claus parents: 176 diff changeset	3857	and:[drawableId notNil]) ifTrue:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3858	"/ have to be careful - some window managers (motif) wrap another
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3859	"/ view around and the reported origin is relative to that.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3860	"/ not relative to the screen.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3861	p := device translatePoint:0@0 from:drawableId to:device rootWindowId.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3862	left := p x.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3863	top := p y.
180 0b3a8658d55e . claus parents: 176 diff changeset	3864	] ifFalse:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3865	left := x.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3866	top := y.
180 0b3a8658d55e . claus parents: 176 diff changeset	3867	].
140 0db355079dc4 . claus parents: 138 diff changeset	3868	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3869	realized ifFalse:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3870	width := newWidth.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3871	height := newHeight.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3872	extentChanged := true.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3873	^ self
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3874	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3875
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3876	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3877	how := #smaller
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3878	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3879
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3880	level ~~ 0 ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3881	mustRedrawBottomEdge := newHeight < height.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3882	mustRedrawRightEdge := newWidth < width.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3883	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3884	] ifFalse:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3885	anyEdge := false
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3886	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3887
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3888	width := newWidth.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3889	height := newHeight.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3890
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3891	"recompute inner-clip if needed"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3892	self setInnerClip.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3893
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3894	"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3895	must first process pending exposes;
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3896	otherwise, those may be drawn at a wrong position
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3897	"
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3898	"/ claus: no; expose events are in the same queue as configure events;
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3899	"/ which is exactly for that reason ...
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3900
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3901	"/ windowGroup notNil ifTrue:[
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3902	"/ windowGroup processExposeEvents
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3903	"/ ].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3904	self sizeChanged:how.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3905
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3906	(anyEdge and:[shown]) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3907	self clippingRectangle:nil.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3908	mustRedrawBottomEdge ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3909	self drawBottomEdge
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3910	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3911	mustRedrawRightEdge ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3912	self drawRightEdge
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3913	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3914	self clippingRectangle:innerClipRect
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3915	]
140 0db355079dc4 . claus parents: 138 diff changeset	3916	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3917
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	3918	"Modified: 19.7.1996 / 21:28:47 / cg"
138 3167663e38e7 . claus parents: 137 diff changeset	3919	!
3167663e38e7 . claus parents: 137 diff changeset	3920
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3921	containerChangedSize
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3922	"my container has changed size; if I have relative
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3923	origin/extent or blocks to evaluate, do it now .."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3924
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	3925	\|oldWidth oldHeight oldTop oldLeft newExt newOrg r\|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3926
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3927	oldWidth := width.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3928	oldHeight := height.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3929	oldTop := top.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3930	oldLeft := left.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3931
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3932	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3933	slowly migrating to use layoutObjects ...
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3934	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3935	layout isNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3936	newOrg := self computeOrigin.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3937	newExt := self computeExtent.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3938	] ifFalse:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3939	r := (layout rectangleRelativeTo:(superView viewRectangle)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3940	preferred:(self preferredBounds)).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3941	newOrg := r origin rounded.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3942	newExt := r extent rounded.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3943	"/ newOrg printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3944	"/ newExt printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3945	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3946
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3947	newOrg notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3948	((newOrg x == oldLeft) and:[newOrg y == oldTop]) ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3949	newOrg := nil
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3950	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3951	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3952	newExt notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3953	((newExt x == width) and:[newExt y == height]) ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3954	newExt := nil
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3955	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3956	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3957
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3958	newExt isNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3959	newOrg notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3960	self pixelOrigin:newOrg
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3961	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3962	] ifFalse:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3963	newOrg isNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3964	self pixelExtent:newExt
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3965	] ifFalse:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3966	self pixelOrigin:newOrg extent:newExt
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3967	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3968	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3969
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3970	"Modified: 19.7.1996 / 17:32:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3971	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3972
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3973	containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3974	"my container was mapped (became visible).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3975	If I was previously realized, this implies that I myself
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3976	am now mapped as well."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3977
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3978	"/ if I was not previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3979	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3980
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3981	realized ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3982	shown ifFalse:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3983	"/ old:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3984	"/ shown := true.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3985	"/ subViews notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3986	"/ subViews do:[:v \|
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3987	"/ v containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3988	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3989	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3990
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3991	"/ which is equivalent to:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3992	self mapped.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3993	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3994	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3995
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3996	"Modified: 30.5.1996 / 11:41:02 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3997	"Created: 19.7.1996 / 17:41:10 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3998	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3999
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4000	containerUnmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4001	"my container was unmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4002	- this implies that the recevier is now also unmapped."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4003
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4004	"/ if I was previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4005	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4006
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4007	realized ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4008	shown ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4009	self unmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4010	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4011	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4012
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4013	"Modified: 30.5.1996 / 11:41:25 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4014	"Created: 19.7.1996 / 17:43:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4015	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4016
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4017	coveredBy:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4018	"the receiver has been covered by another view;
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	4019	we are not interested in that here (but see modalBox for more)."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4020	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4021
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4022	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4023	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4024
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4025	shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4026	super destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4027	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4028
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4029	dropMessage:dropType data:dropObjects
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4030	"a drop from some other view.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4031	Convert to the ST/X drag and drop protocol here."
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4032
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4033	"Created: 4.4.1997 / 18:58:03 / cg"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4034	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4035
135 cf8e46015072 . claus parents: diff changeset	4036	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	4037	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	4038	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	4039
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4040	\|leftEdge topEdge rightEdge botEdge anyEdge nx ny nw nh old\|
135 cf8e46015072 . claus parents: diff changeset	4041
cf8e46015072 . claus parents: diff changeset	4042	nw := w.
cf8e46015072 . claus parents: diff changeset	4043	nh := h.
cf8e46015072 . claus parents: diff changeset	4044	nx := x.
cf8e46015072 . claus parents: diff changeset	4045	ny := y.
cf8e46015072 . claus parents: diff changeset	4046
cf8e46015072 . claus parents: diff changeset	4047	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	4048
cf8e46015072 . claus parents: diff changeset	4049	"
cf8e46015072 . claus parents: diff changeset	4050	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	4051	"
cf8e46015072 . claus parents: diff changeset	4052	(margin ~~ 0) ifTrue:[
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4053	leftEdge := false.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4054	topEdge := false.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4055	rightEdge := false.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4056	botEdge := false.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4057	transformation notNil ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4058	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4059	need device coordinates for this test
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4060	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4061	nx := transformation applyToX:nx.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4062	ny := transformation applyToY:ny.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4063	nw := transformation applyScaleX:nw.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4064	nh := transformation applyScaleY:nh.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4065	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4066	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4067	adjust expose rectangle, to exclude the margin.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4068	Care for rounding errors ...
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4069	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4070	(nx isMemberOf:SmallInteger) ifFalse:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4071	old := nx.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4072	nx := nx truncated.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4073	nw := nw + (nx - old).
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4074	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4075	(ny isMemberOf:SmallInteger) ifFalse:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4076	old := ny.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4077	ny := ny truncated.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4078	nh := nh + (ny - old).
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4079	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4080	(nw isMemberOf:SmallInteger) ifFalse:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4081	nw := nw truncated + 1
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4082	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4083	(nh isMemberOf:SmallInteger) ifFalse:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4084	nh := nh truncated + 1
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4085	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4086	(nx < margin) ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4087	old := nx.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4088	nx := margin.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4089	nw := nw - (nx - old).
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4090	leftEdge := anyEdge := true.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4091	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4092	((nx + nw - 1) >= (width - margin)) ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4093	nw := (width - margin - nx).
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4094	rightEdge := anyEdge := true.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4095	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4096	(ny < margin) ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4097	old := ny.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4098	ny := margin.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4099	nh := nh - (ny - old).
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4100	topEdge := anyEdge := true.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4101	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4102	((ny + nh - 1) >= (height - margin)) ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4103	nh := (height - margin - ny).
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4104	botEdge := anyEdge := true.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4105	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4106	transformation notNil ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4107	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4108	need logical coordinates for redraw
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4109	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4110	nx := transformation applyInverseToX:nx.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4111	ny := transformation applyInverseToY:ny.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4112	nw := transformation applyInverseScaleX:nw.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4113	nh := transformation applyInverseScaleY:nh.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4114	].
135 cf8e46015072 . claus parents: diff changeset	4115	].
cf8e46015072 . claus parents: diff changeset	4116
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4117	(nw > 0 and:[nh > 0]) ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4118	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4119	redraw inside area
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4120	"
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4121	self redrawX:nx y:ny width:nw height:nh.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4122	].
135 cf8e46015072 . claus parents: diff changeset	4123
cf8e46015072 . claus parents: diff changeset	4124	"
cf8e46015072 . claus parents: diff changeset	4125	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	4126	"
cf8e46015072 . claus parents: diff changeset	4127	anyEdge ifTrue:[
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	4128	self clippingRectangle:nil.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4129	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4130	self drawEdges
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4131	] ifFalse:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4132	topEdge ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4133	self drawTopEdge
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4134	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4135	leftEdge ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4136	self drawLeftEdge
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4137	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4138	botEdge ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4139	self drawBottomEdge
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4140	].
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4141	rightEdge ifTrue:[
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4142	self drawRightEdge
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4143	]
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4144	].
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4145	self clippingRectangle:innerClipRect
135 cf8e46015072 . claus parents: diff changeset	4146	]
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4147
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4148	"Modified: 28.5.1996 / 22:31:49 / cg"
135 cf8e46015072 . claus parents: diff changeset	4149	!
cf8e46015072 . claus parents: diff changeset	4150
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4151	focusIn
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	4152	"got keyboard focus (via the window manager)"
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	4153
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4154	delegate notNil ifTrue:[
1402 0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4155	(delegate respondsTo:#handlesKeyPress:inView:) ifTrue:[
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4156	(delegate handlesKeyPress:#Any inView:self) ifTrue:[
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4157	delegate showFocus:false.
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4158	^ self
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4159	]
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4160	]
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4161	].
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	4162	self showFocus:false
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4163
1402 0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4164	"Modified: 28.2.1997 / 23:29:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4165	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4166
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4167	focusOut
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	4168	"lost keyboard focus (via the window manager)"
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	4169
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4170	delegate notNil ifTrue:[
1402 0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4171	(delegate respondsTo:#handlesKeyPress:inView:) ifTrue:[
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4172	(delegate handlesKeyPress:#Any inView:self) ifTrue:[
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4173	delegate showNoFocus:false.
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4174	^ self
0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4175	]
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4176	]
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4177	].
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	4178	self showNoFocus:false
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4179
1402 0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4180	"Modified: 28.2.1997 / 23:29:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4181	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4182
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4183	hasKeyboardFocus:aBoolean
140 0db355079dc4 . claus parents: 138 diff changeset	4184	^ self
0db355079dc4 . claus parents: 138 diff changeset	4185	!
0db355079dc4 . claus parents: 138 diff changeset	4186
0db355079dc4 . claus parents: 138 diff changeset	4187	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	4188	"a key has been pressed. If there are components,
0db355079dc4 . claus parents: 138 diff changeset	4189	pass it to the corresponding one.
0db355079dc4 . claus parents: 138 diff changeset	4190	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	4191
510 c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	4192	<resource: #keyboard ( #Menu ) >
c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	4193
140 0db355079dc4 . claus parents: 138 diff changeset	4194	components notNil ifTrue:[
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4195	components notNil ifTrue:[
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4196	self componentsContainingX:x y:y do:[:comp :cx :cy \|
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4197	comp keyPress:key x:cx y:cy.
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4198	^ self
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4199	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4200	].
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4201	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4202
494 cc7765901744 checkin from browser Claus Gittinger <cg@exept.de> parents: 490 diff changeset	4203	key == #Menu ifTrue:[
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4204	^ self activateMenu.
135 cf8e46015072 . claus parents: diff changeset	4205	].
cf8e46015072 . claus parents: diff changeset	4206
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4207	x isNil ifTrue:[
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4208	"/ already redelegated, but nowhere handled
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4209	superView notNil ifTrue:[
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4210	superView keyPress:key x:nil y:nil.
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4211	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4212	^ self
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4213	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4214
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4215	superView notNil ifTrue:[
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4216	WindowEvent
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4217	sendEvent:#keyPress:x:y:
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4218	arguments:(Array with:key with:0 with:0)
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4219	view:superView
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	4220	] ifFalse:[
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4221	super keyPress:key x:x y:y
135 cf8e46015072 . claus parents: diff changeset	4222	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	4223
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4224	"Modified: 18.7.1996 / 11:47:03 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4225	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4226
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4227	keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4228	"a key has been released. If there are components,
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4229	pass it to the corresponding one.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4230	Otherwise, do whatever my superclass would do."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4231
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4232	components notNil ifTrue:[
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4233	components notNil ifTrue:[
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4234	self componentsContainingX:x y:y do:[:comp :cx :cy \|
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4235	comp keyRelease:key x:cx y:cy.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4236	^ self
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4237	]
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4238	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4239	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4240
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4241	super keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4242
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4243	"Modified: 8.5.1996 / 23:44:36 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4244	"Created: 8.5.1996 / 23:45:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	4245	!
cf8e46015072 . claus parents: diff changeset	4246
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4247	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4248	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4249	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4250
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4251	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4252	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4253
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4254	realized := true.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4255	shown := true.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4256	...
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4257
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4258	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4259	realized and shortly after unrealized - before the mapped event
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4260	arrived. This lead to realized being set to true even thought the
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4261	view was not.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4262	Boy - that was a bad one (hard to reproduce and hard to find).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4263	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4264
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4265	realized ifTrue:[
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4266
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4267	"/ currently, the 'shown ifFalse:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4268	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4269	"/ Also, when remapped, X11 only sends a mapped event for the topView.
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4270	"/ Therefore, synthetically generate those #superViewMapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4271	"/ in any case.
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4272
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4273	shown := true.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4274	"
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4275	backed views will not get expose events - have
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4276	to force a redraw here to get things drawn into
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4277	backing store.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4278	"
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4279	backed ifTrue:[
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4280	self redrawX:0 y:0 width:width height:height
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4281	].
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4282	subViews notNil ifTrue:[
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4283	subViews do:[:v \|
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4284	v containerMapped
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4285	]
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4286	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4287	]
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4288
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4289	"Modified: 25.2.1997 / 22:41:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4290	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4291
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4292	pointerEnter:state x:x y:y
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4293	"got mouse pointer"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4294
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4295	self focusIn
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4296
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4297	"Modified: 25.2.1997 / 23:43:21 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4298	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4299
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4300	pointerLeave:state
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4301	"got mouse pointer"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4302
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4303	self focusOut
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4304
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4305	"Modified: 25.2.1997 / 23:43:17 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4306	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4307
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4308	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4309	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4310	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4311	nothing done here"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4312
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4313	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4314	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4315
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4316	saveAndTerminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4317	"window manager wants me to save and go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4318	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4319	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4320	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4321	to prepare for restart."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4322
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4323	^ self destroy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4324	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4325
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4326	sizeChanged:how
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4327	"tell subviews if I change size.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4328	How is either #smaller, #larger or nil, and is used to control the order,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4329	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4330
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4331	\|subViews\|
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4332
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4333	(subViews := self subViews) notNil ifTrue:[
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4334	(how isNil "false"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4335	or:[how == #smaller]) ifTrue:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4336	subViews do:[:view \|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4337	view containerChangedSize
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4338	]
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4339	] ifFalse:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4340	"doing it reverse speeds up resizing - usually subviews
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4341	are created from top-left to bottom-right; therefore
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4342	bottom-right views will be moved/resized first, then top-left ones;
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4343	this avoids multiple redraws of subviews"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4344
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4345	subViews reverseDo:[:view \|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4346	view containerChangedSize
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4347	]
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4348	]
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4349	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4350
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4351	components notNil ifTrue:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4352	(how isNil "false"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4353	or:[how == #smaller]) ifTrue:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4354	components do:[:view \|
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4355	view containerChangedSize
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4356	]
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4357	] ifFalse:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4358	"doing it reverse speeds up resizing - usually subviews
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4359	are created from top-left to bottom-right; therefore
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4360	bottom-right views will be moved/resized first, then top-left ones;
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4361	this avoids multiple redraws of subviews"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4362
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4363	components reverseDo:[:view \|
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4364	view containerChangedSize
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4365	]
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4366	]
135 cf8e46015072 . claus parents: diff changeset	4367	].
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4368
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4369	self changed:#sizeOfView with:how.
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4370
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4371	superView notNil ifTrue:[
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4372	superView subViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4373	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4374
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4375	"Modified: 28.1.1997 / 17:58:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4376	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4377
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4378	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	4379	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4380	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4381	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4382
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4383	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4384
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4385	"Created: 22.9.1995 / 14:44:59 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4386	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4387
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4388	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4389	"window manager wants me to go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4390	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4391	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4392	Can be redefined in subclasses to do whatever cleanup is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4393	required."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4394
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4395	^ self destroy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4396	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4397
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4398	unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4399	"the view has been unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4400	(either by some outside action - i.e. window manager iconified me,
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4401	or due to unmapping of my parentView)."
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4402
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4403	"/ if I was previously shown, tell it to all of
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4404	"/ my subviews (they remember this in the shown instVar)
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4405
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4406	"/ currently, the 'shown ifTrue:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4407	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4408	"/ Also, when remapped, X11 only sends a mapped event for the topView.
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4409	"/ Therefore, synthetically generate those #superViewUnmapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4410	"/ in any case.
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4411
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4412	shown := false.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4413	subViews notNil ifTrue:[
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4414	subViews do:[:v \|
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4415	v containerUnmapped
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4416	]
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4417	]
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4418
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4419	"Modified: 25.2.1997 / 22:40:52 / cg"
135 cf8e46015072 . claus parents: diff changeset	4420	!
cf8e46015072 . claus parents: diff changeset	4421
cf8e46015072 . claus parents: diff changeset	4422	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	4423	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	4424	action - i.e. window manager rearranged things).
cf8e46015072 . claus parents: diff changeset	4425	Using this knowledge avoids useless redraw in obsucred views."
cf8e46015072 . claus parents: diff changeset	4426
cf8e46015072 . claus parents: diff changeset	4427	how == #fullyObscured ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4428	shown := false
135 cf8e46015072 . claus parents: diff changeset	4429	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4430	shown := true.
135 cf8e46015072 . claus parents: diff changeset	4431	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4432	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4433
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4434	!SimpleView methodsFor:'event simulation'!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4435
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4436	pushEvent:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4437	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4438	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4439	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4440	a higher prio process, to avoid blocking in the high prio one)"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4441
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4442	\|sensor\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4443
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4444	(sensor := self sensor) notNil ifTrue:[
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4445	sensor pushUserEvent:aSelector for:self
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4446	] ifFalse:[
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4447	self perform:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4448	]
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4449
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4450	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4451	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4452
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4453	v := View new openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4454	v fill:Color red.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4455	v pushEvent:#redraw
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4456	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4457
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4458	"Modified: 31.1.1997 / 16:09:27 / cg"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4459	!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4460
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4461	pushEvent:aSelector withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4462	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4463	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4464	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4465	a higher prio process, to avoid blocking in the high prio one)"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4466
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4467	\|sensor\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4468
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4469	(sensor := self sensor) notNil ifTrue:[
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4470	sensor pushUserEvent:aSelector for:self withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4471	] ifFalse:[
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4472	self perform:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4473	]
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4474
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4475	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4476	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4477
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4478	v := (Button label:'hello') openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4479	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4480	v pushEvent:#buttonPress:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4481	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4482	v pushEvent:#buttonRelease:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4483	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4484
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4485	"Modified: 31.1.1997 / 16:10:40 / cg"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4486	! !
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4487
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4488	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4489
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4490	contentsChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4491	"this one is sent, whenever contents changes size -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4492	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4493
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4494	self changed:#sizeOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4495	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4496
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4497	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4498	"this one is sent, after the origin of my contents has changed -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4499	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4500
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4501	self changed:#originOfContents with:delta.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4502	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4503	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4504	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4505	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4506	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4507	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4508
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4509	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4510	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4511	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4512	(for example to hide cursor before scroll)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4513
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4514	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4515	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4516
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4517	!SimpleView methodsFor:'initialization'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4518
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4519	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4520	^ nil "/ Controller
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4521	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4522
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4523	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	4524	"return the default extent of my instances."
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	4525
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4526	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4527
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4528	"Created: 1.3.1996 / 19:20:46 / cg"
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	4529	"Modified: 22.4.1996 / 23:38:27 / cg"
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4530	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4531
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4532	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4533	"will be sent by create - can be redefined by subclasses to enable
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4534	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4535
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4536	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4537	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4538
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4539	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4540	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4541
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4542	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4543
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4544	borderWidth := DefaultBorderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4545	borderWidth isNil ifTrue:[borderWidth := 1].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4546
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4547	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4548
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4549	DefaultLightColor notNil ifTrue:[
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4550	lightColor := DefaultLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4551	] ifFalse:[
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	4552	device hasGrayscales ifTrue:[
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4553	DefaultLightColor := lightColor := viewBackground lightened.
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4554	] ifFalse:[
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4555	"
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4556	this seems strange: on B&W screens, we create the light color
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4557	darker than normal viewBackground (White) -
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4558	to make the boundary of the view visible
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4559	"
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4560	lightColor := Color gray:50
5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4561	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4562	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4563	DefaultShadowColor notNil ifTrue:[
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4564	shadowColor := DefaultShadowColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4565	] ifFalse:[
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4566	shadowColor := Black
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4567	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4568
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4569	lightColor := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4570	shadowColor := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4571	borderColor := DefaultBorderColor.
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	4572	font := self class defaultFont.
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	4573	font := font on:device.
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4574
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	4575	"Modified: 28.5.1996 / 21:13:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4576	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4577
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4578	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4579	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4580
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4581	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4582	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4583	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4584	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4585	StyleSheet isNil ifTrue:[
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4586	DefaultStyle isNil ifTrue:[
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4587	"/ the very-very first time (no styleSheet yet)
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4588	View defaultStyle:#normal.
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4589	].
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4590	self class updateStyleCache
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4591	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4592
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4593	styleSheet := StyleSheet.
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4594
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4595	"Modified: 25.7.1996 / 22:00:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4596	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4597
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4598	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4599	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4600	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4601	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4602	View setup is separated into two parts, the general setup done here
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4603	and the style specific setup in initStyle. Each view should be prepared
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4604	for a stylechange by being sent another initStyle with a new style value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4605	(in this case, it should set all of its style-dependent things, but
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4606	leave the state and contents as-is)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4607
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4608	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4610	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4611
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	4612	font := self class defaultFont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4613
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4614	shown := hiddenOnRealize := realized := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4615
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4616	"fill in some defaults - some of them are usually redefined in subclasses
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4617	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4618
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4619	myClass := self class.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4620	name := myClass name "asString" asLowercaseFirst.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4621	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4622
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4623	level := margin := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4624	margin := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4625
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4626	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4627
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4628	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4629	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4630	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4631	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4632
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4633	originChanged := extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4634	bitGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4635	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4636
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4637	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4638	controllerClass notNil ifTrue:[
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4639	controller := controllerClass new.
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4640	controller view:self.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4641	].
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4642
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4643	"Modified: 1.3.1996 / 19:21:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4644	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4645
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4646	initializeMiddleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4647	"a place to initialize menu - this one is sent once when the view is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4648	first created; usually redefined in subclasses; default here is no menu.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4649	Notice, that static middleButtonmenus are a historic thing in ST/X;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4650	you may prefer to create the menu dynamically (i.e. the ST-80 way)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4651
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4652	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4653	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4654
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4655	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4656	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4657	windowGroup notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4658	windowGroup reinitialize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4659	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4660	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4661
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4662	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4663	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4664
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4665	\|t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4666
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4667	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4668	drawableId notNil ifTrue:[
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	4669	"force a change"
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	4670	t := borderWidth. borderWidth := nil. self borderWidth:t.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	4671	t := viewBackground. viewBackground := nil. self viewBackground:t.
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4672	self invalidate.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4673	].
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4674
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4675	"Modified: 29.5.1996 / 18:03:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4676	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4677
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4678	reinitialize
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4679	"this is called right after snapIn"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4680
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4681	\|myController\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4683	"if I have already been reinited - return"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4684	drawableId notNil ifTrue:[
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4685	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4686	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4687
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4688	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4689	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4690	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4691	superView notNil ifTrue:[
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4692	superView view id isNil ifTrue:[
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4693	superView view reinitialize
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4694	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4695	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4696
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4697	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4698	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4699	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4700
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4701	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4702	realized ifTrue:[
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4703	"only remap if I have a superview - otherwise, I might be
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4704	a hidden iconView or menu ..."
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4705	superView notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4706	"/ shown ifTrue:[
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4707	device mapView:self id:drawableId iconified:false
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4708	atX:left y:top width:width height:height
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4709	"/ ].
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4710	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4711	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4712
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4713	"restore controller"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4714	controller := myController
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4715
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4716	"Modified: 5.6.1996 / 19:38:22 / cg"
135 cf8e46015072 . claus parents: diff changeset	4717	! !
cf8e46015072 . claus parents: diff changeset	4718
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4719	!SimpleView methodsFor:'misc'!
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4720
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4721	grabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4722	"grab the pointer - that is: report all motion events relative to
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4723	myself, even if moved out of myself."
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4724
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4725	device grabPointerIn:drawableId
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4726	!
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4727
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4728	ungrabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4729	"ungrab the pointer"
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4730
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4731	device ungrabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4732	! !
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	4733
140 0db355079dc4 . claus parents: 138 diff changeset	4734	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	4735
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4736	componentsContainingX:x y:y do:aBlock
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4737	components notNil ifTrue:[
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4738	components do:[:aComponent \|
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4739	\|thisFrame\|
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4740
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4741	thisFrame := aComponent bounds.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4742	(thisFrame containsPointX:x y:y) ifTrue:[
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4743	aBlock value:aComponent
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4744	value:x - thisFrame left
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4745	value:y - thisFrame top.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4746	]
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4747	]
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4748	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4749
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4750	"Created: 8.5.1996 / 23:40:59 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4751	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4752
140 0db355079dc4 . claus parents: 138 diff changeset	4753	computeInnerClip
0db355079dc4 . claus parents: 138 diff changeset	4754	"compute, but do not set the inside clip-area"
0db355079dc4 . claus parents: 138 diff changeset	4755
0db355079dc4 . claus parents: 138 diff changeset	4756	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	4757
0db355079dc4 . claus parents: 138 diff changeset	4758	(margin ~~ 0) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4759	m2 := margin + margin.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4760	nX := nY := margin.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4761	nW := width - m2.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4762	nH := height - m2.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4763	transformation notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4764	nX := transformation applyInverseToX:nX.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4765	nY := transformation applyInverseToY:nY.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4766	nW := transformation applyInverseScaleX:nW.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4767	nH := transformation applyInverseScaleY:nH.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4768	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4769	innerClipRect := Rectangle
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4770	left:nX
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4771	top:nY
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4772	width:nW
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4773	height:nH
140 0db355079dc4 . claus parents: 138 diff changeset	4774	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4775	"no clipping"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4776	innerClipRect := nil
140 0db355079dc4 . claus parents: 138 diff changeset	4777	]
0db355079dc4 . claus parents: 138 diff changeset	4778	!
0db355079dc4 . claus parents: 138 diff changeset	4779
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4780	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4781	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4782
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4783	^ self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4784	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4785
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4786	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4787	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4788
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4789	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4790
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4791	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4792
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4793	bw := borderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4794	insets isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4795	bw == 0 ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4796	^ p
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4797	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4798	^ (p x - bw) @ (p y - bw)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4799	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4800	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4801	b := (insets at:4) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4802
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4803	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4804	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4805	"/ r := rightInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4806	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4807	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4808	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4809	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4810	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4811	^ (p x - r) @ (p y - b)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4812	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4813	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4814	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4815
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4816	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4817	"compute & return pixel extent from relativeExtent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4819	^ self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4820	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4821
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4822	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4823	"compute & return pixel extent from relativeExtent, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4824
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4825	\|rel newX newY inRect bw2 i\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4826
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4827	superView isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4828	inRect := 0@0 extent:device extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4829	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4830	inRect := superView viewRectangle.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4831	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4832
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4833	bw2 := borderWidth * 2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4834
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4835	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4836	rel isInteger ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4837	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4838	(borderWidth ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4839	newX := newX - borderWidth
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4840	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4841	] ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4842	newX := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4843	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4845	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4846	rel isInteger ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4847	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4848	(borderWidth ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4849	newY := newY - borderWidth
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4850	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4851	] ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4852	newY := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4853	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4855	insets notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4856	i := insets at:1. "top"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4857	(i ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4858	newX := newX - i
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4859	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4860	i := insets at:3. "left"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4861	(i ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4862	newX := newX - i
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4863	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4864	i := insets at:2. "right"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4865	(i ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4866	newY := newY - i
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4867	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4868	i := insets at:4. "bottom"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4869	(i ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4870	newY := newY - i
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4871	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4872	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4873	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4874	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4875
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4876	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4877	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4879	^ self originFromRelativeOrigin:relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4880	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4882	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4883	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4884
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4885	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4886
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4887	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4888
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4889	insets isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4890	^ p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4891	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4892	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4893	t := insets at:2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4894
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4895	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4896	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4897	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4898	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4899	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4900	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4901	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4902	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4903	^ (p x + l) @ (p y + t)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4904	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4905	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4906	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4907
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4908	pixelCorner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4909	"set the views corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4910
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4911	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4912
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4913	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4914	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4915	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4916
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4917	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4918	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4919
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4920	pixelExtent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4921	"set the views extent in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4923	self pixelOrigin:(left @ top) extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4924	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4925
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4926	pixelOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4927	"return the views origin in pixels. For subviews. the origin is relative
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4928	to the superviews top-left. For topViews, its the screen origin."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4929
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4930	^ self computeOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4931	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4932
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4933	pixelOrigin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4934	"set the views origin in pixels. For subviews. the origin is relative
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4935	to the superviews top-left. For topViews, its the screen origin."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4936
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4937	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4938
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4939	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4940	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4941	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4942	top := newTop.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4943	left := newLeft.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4944
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4945	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4946	if the receiver is visible, or is a topView, perform the
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4947	operation right away - otherwise, simply remember that the
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4948	origin has changed - will tell the display once we get realized
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4949	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4950	"/ (shown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4951	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4952
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4953	"/ no, have to do it if drawableId is there
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4954	"/ (otherwise, we could not move unmapped views around ...
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4955	"/
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4956	drawableId notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4957	device moveWindow:drawableId x:left y:top
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4958	] ifFalse:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4959	originChanged := true
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	4960	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4961	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4962	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4963
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4964	pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4965	"set the views origin and corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4966
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4967	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4968
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4969	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4970	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4971	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4972
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4973	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4974	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4975
140 0db355079dc4 . claus parents: 138 diff changeset	4976	pixelOrigin:origin extent:extent
0db355079dc4 . claus parents: 138 diff changeset	4977	"set the views origin and extent in pixels"
0db355079dc4 . claus parents: 138 diff changeset	4978
0db355079dc4 . claus parents: 138 diff changeset	4979	\|newLeft newTop newWidth newHeight how
0db355079dc4 . claus parents: 138 diff changeset	4980	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
0db355079dc4 . claus parents: 138 diff changeset	4981	mustRepaintRight sameOrigin oldWidth oldHeight\|
0db355079dc4 . claus parents: 138 diff changeset	4982
0db355079dc4 . claus parents: 138 diff changeset	4983	newLeft := origin x.
0db355079dc4 . claus parents: 138 diff changeset	4984	newTop := origin y.
0db355079dc4 . claus parents: 138 diff changeset	4985	sameOrigin := ((newTop == top) and:[newLeft == left]).
0db355079dc4 . claus parents: 138 diff changeset	4986
0db355079dc4 . claus parents: 138 diff changeset	4987	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	4988	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	4989
0db355079dc4 . claus parents: 138 diff changeset	4990	"
0db355079dc4 . claus parents: 138 diff changeset	4991	X complains badly if you try to create/resize a view with
0db355079dc4 . claus parents: 138 diff changeset	4992	a dimension <= 0 ... (although I think that 0 maks sense ...)
0db355079dc4 . claus parents: 138 diff changeset	4993	"
0db355079dc4 . claus parents: 138 diff changeset	4994	newWidth < 1 ifTrue:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4995	newWidth := 1.
140 0db355079dc4 . claus parents: 138 diff changeset	4996	].
0db355079dc4 . claus parents: 138 diff changeset	4997	newHeight < 1 ifTrue:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4998	newHeight := 1
140 0db355079dc4 . claus parents: 138 diff changeset	4999	].
0db355079dc4 . claus parents: 138 diff changeset	5000
0db355079dc4 . claus parents: 138 diff changeset	5001	((newWidth == width) and:[newHeight == height]) ifTrue:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5002	sameOrigin ifTrue:[^ self].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5003	^ self pixelOrigin:origin
140 0db355079dc4 . claus parents: 138 diff changeset	5004	].
0db355079dc4 . claus parents: 138 diff changeset	5005	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	5006	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	5007
0db355079dc4 . claus parents: 138 diff changeset	5008	"/ shown ifTrue:[ "4-nov-94 actually correct,"
0db355079dc4 . claus parents: 138 diff changeset	5009	drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5010	mustRedrawBottomEdge := (level ~~ 0) and:[newHeight < height].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5011	mustRedrawRightEdge := (level ~~ 0) and:[newWidth < width].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5012
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5013	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5014	how := #smaller
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5015	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5016
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5017	mustRepaintRight := false.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5018	mustRepaintBottom := false.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5019	(level ~~ 0) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5020	"clear the old edges"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5021
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5022	newWidth > width ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5023	self clippingRectangle:nil.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5024	self paint:viewBackground.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5025	self fillDeviceRectangleX:(width - margin)
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5026	y:0
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5027	width:margin
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5028	height:height.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5029	mustRepaintRight := true.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5030	oldWidth := width
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5031	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5032	newHeight > height ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5033	self clippingRectangle:nil.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5034	self paint:viewBackground.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5035	self fillDeviceRectangleX:0
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5036	y:(height - margin)
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5037	width:width
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5038	height:margin.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5039	mustRepaintBottom := true.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5040	oldHeight := height
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5041	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5042	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5043
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5044	width := newWidth.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5045	height := newHeight.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5046
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5047	self setInnerClip.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5048
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5049	"if view becomes smaller, send sizeChanged first"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5050	(how == #smaller) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5051	self sizeChanged:how
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5052	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5053
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5054	"have to tell X, when extent of view is changed"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5055	sameOrigin ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5056	device resizeWindow:drawableId width:width height:height.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5057	] ifFalse:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5058	"claus: some xservers seem to do better when resizing
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5059	first ...."
140 0db355079dc4 . claus parents: 138 diff changeset	5060	"
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5061	(how == #smaller) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5062	device resizeWindow:drawableId width:width height:height.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5063	device moveWindow:drawableId x:left y:top
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5064	] ifFalse:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5065	device moveResizeWindow:drawableId x:left y:top width:width height:height
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5066	].
140 0db355079dc4 . claus parents: 138 diff changeset	5067	"
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5068	device moveResizeWindow:drawableId x:left y:top
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5069	width:width height:height.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5070	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5071
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5072	"if view becomes bigger, send sizeChanged after"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5073	(how ~~ #smaller) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5074	self sizeChanged:how
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5075	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5076
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5077	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5078	self clippingRectangle:nil.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5079	mustRedrawBottomEdge ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5080	self drawBottomEdge
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5081	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5082	mustRedrawRightEdge ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5083	self drawRightEdge
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5084	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5085	self clippingRectangle:innerClipRect
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5086	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5087
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5088	mustRepaintRight ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5089	self redrawDeviceX:(oldWidth - margin)
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5090	y:0
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5091	width:margin
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5092	height:height.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5093	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5094	mustRepaintBottom ifTrue:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5095	self redrawDeviceX:0
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5096	y:(oldHeight - margin)
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5097	width:width
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5098	height:margin.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5099	].
140 0db355079dc4 . claus parents: 138 diff changeset	5100	] ifFalse:[
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5101	"otherwise memorize the need for a sizeChanged message"
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5102
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5103	width := newWidth.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5104	height := newHeight.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5105	sameOrigin ifFalse:[
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5106	originChanged := true.
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5107	].
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5108	extentChanged := true
140 0db355079dc4 . claus parents: 138 diff changeset	5109	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5110
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5111	"Modified: 28.5.1996 / 20:04:48 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5112	!
0db355079dc4 . claus parents: 138 diff changeset	5113
0db355079dc4 . claus parents: 138 diff changeset	5114	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	5115	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	5116
0db355079dc4 . claus parents: 138 diff changeset	5117	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	5118
0db355079dc4 . claus parents: 138 diff changeset	5119	bw := borderWidth.
0db355079dc4 . claus parents: 138 diff changeset	5120
0db355079dc4 . claus parents: 138 diff changeset	5121	superView isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5122	superWidth := device width + bw.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5123	superHeight := device height + bw.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5124	superLeft := superTop := 0.
140 0db355079dc4 . claus parents: 138 diff changeset	5125	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5126	inRect := superView viewRectangle.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5127	superWidth := inRect width.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5128	superHeight := inRect height.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5129	superLeft := inRect left.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5130	superTop := inRect top.
140 0db355079dc4 . claus parents: 138 diff changeset	5131	].
0db355079dc4 . claus parents: 138 diff changeset	5132
0db355079dc4 . claus parents: 138 diff changeset	5133	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	5134	rel isInteger ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5135	newX := rel
140 0db355079dc4 . claus parents: 138 diff changeset	5136	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5137	newX := (rel * superWidth) asInteger + superLeft.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5138	(bw ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5139	rel ~= 1.0 ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5140	newX := newX - bw
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5141	]
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5142	]
140 0db355079dc4 . claus parents: 138 diff changeset	5143	].
0db355079dc4 . claus parents: 138 diff changeset	5144
0db355079dc4 . claus parents: 138 diff changeset	5145	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	5146	rel isInteger ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5147	newY := rel
140 0db355079dc4 . claus parents: 138 diff changeset	5148	] ifFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5149	newY := (rel * superHeight) asInteger + superTop.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5150	(bw ~~ 0) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5151	rel ~= 1.0 ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5152	newY := newY - bw
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5153	]
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5154	]
140 0db355079dc4 . claus parents: 138 diff changeset	5155	].
0db355079dc4 . claus parents: 138 diff changeset	5156	^ newX @ newY
0db355079dc4 . claus parents: 138 diff changeset	5157	!
0db355079dc4 . claus parents: 138 diff changeset	5158
0db355079dc4 . claus parents: 138 diff changeset	5159	setBorderColor
0db355079dc4 . claus parents: 138 diff changeset	5160	"set my borderColor"
0db355079dc4 . claus parents: 138 diff changeset	5161
0db355079dc4 . claus parents: 138 diff changeset	5162	\|id dither\|
0db355079dc4 . claus parents: 138 diff changeset	5163
0db355079dc4 . claus parents: 138 diff changeset	5164	drawableId notNil ifTrue:[
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5165	borderColor := borderColor on:device.
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5166	id := borderColor colorId.
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5167	id notNil ifTrue:[
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5168	device setWindowBorderColor:id in:drawableId
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5169	] ifFalse:[
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5170	dither := borderColor ditherForm.
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5171	dither notNil ifTrue:[
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5172	device setWindowBorderPixmap:(dither id) in:drawableId
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5173	] ifFalse:[
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5174	'SimpleView [warning]: bad borderColor' errorPrintCR
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5175	]
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5176	]
135 cf8e46015072 . claus parents: diff changeset	5177	]
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5178
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5179	"Modified: 10.1.1997 / 18:06:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	5180	!
cf8e46015072 . claus parents: diff changeset	5181
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5182	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5183	"compute, and set the inside clip-area"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5184
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5185	self computeInnerClip.
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5186	self clippingRectangle:innerClipRect
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5187
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5188	"Modified: 28.5.1996 / 20:04:53 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5189	! !
0db355079dc4 . claus parents: 138 diff changeset	5190
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5191	!SimpleView methodsFor:'queries'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5192
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5193	buttonMotionEventPending
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5194	"return true, if a button motion event is pending.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5195	Normally, you dont want to use this, since no polling is needed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5196	(not even for mouse-tracking).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5197	Dont use it, since it does not honor the windowGroup, but
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5198	goes directly to the device instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5199	Actually, its a historical leftover"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5200
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5201	windowGroup notNil ifTrue:[
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5202	^ windowGroup sensor hasButtonMotionEventFor:self
140 0db355079dc4 . claus parents: 138 diff changeset	5203	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5204	^ super buttonMotionEventPending
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5205
ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5206	"Modified: 1.11.1996 / 17:04:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5207	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5208
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5209	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5210	"return true, if I like to handle the key (from a keyPress event).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5211	OBSOLETE: do not use & depend on this method, it is a historic
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5212	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5213
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5214	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5215	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5216
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5217	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5218	"return true, if I like to handle the key (from a keyPress event)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5219	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5220	OBSOLETE: do not use & depend on this method, it is a historic
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5221	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5222
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5223	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5224	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5225
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5226	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5227	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5228
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5229	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5230	^ delegate delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5231	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5232
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5233	enabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5234	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5235	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5236	be disabled."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5237
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5238	^ true
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5239	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5240
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5241	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5242	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5243	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5244	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5245
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5246	\|focusView delegate\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5248	windowGroup isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5249
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5250	(focusView := windowGroup focusView) == self ifTrue:[^ true].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5251	focusView notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5252	"mhmh - is there a delegation to me ?"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5253	(delegate := focusView delegate) notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5254	delegate == self ifTrue:[^ true].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5255	^ delegate delegatesTo:self
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5256	]
135 cf8e46015072 . claus parents: diff changeset	5257	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5258	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5259	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5260
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5261	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5262	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5263	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5264
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5265	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5266	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5267
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5268	isBorderedWrapper
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5269	^ false
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5270
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5271	"Created: 5.6.1996 / 14:11:15 / cg"
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5272	!
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5273
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5274	isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5275	"return true, if I am a (direct or indirect) component of aViewOrComponent"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5276
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5277	aViewOrComponent == self isNil ifTrue:[^ true].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5278	superView isNil ifTrue:[^ false].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5279	superView == aViewOrComponent ifTrue:[^ true].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5280	^ superView isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5281
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5282	"Created: 5.6.1996 / 14:23:57 / cg"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5283	"Modified: 5.6.1996 / 14:26:14 / cg"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5284	!
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5285
497 5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5286	isInputField
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5287	"return true, if the receiver is some kind of input view,
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5288	i.e. it should (can) be part of an enterGroup.
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5289	Return false here, this is redefined in EnterField."
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5290
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5291	^ false
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5292
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5293	"Created: 4.3.1996 / 11:34:07 / cg"
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5294	!
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5295
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5296	isLayoutWrapper
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5297	^ false
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5298
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5299	"Created: 19.7.1996 / 17:51:04 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5300	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5301
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5302	isPopUpView
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5303	"return true, if this view should be put on top (raised) automatically.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5304	usually this is true for alertBoxes etc."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5305
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5306	^ false
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5307	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5308
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5309	isSubViewOf:aView
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5310	"return true, if I am a (direct or indirect) subview of aView"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5311
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5312	self obsoleteMethodWarning:'use #isComponentOf:'.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5313	^ self isComponentOf:aView.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5314
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5315	"Modified: 5.6.1996 / 14:25:35 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5316	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5317
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5318	isWrapper
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5319	^ false
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5320
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5321	"Created: 5.6.1996 / 01:05:06 / cg"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5322	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5323
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5324	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5325	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5326
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5327	^ 0@0 extent:(self preferredExtent)
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5328
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5329	"Modified: 19.7.1996 / 20:41:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5330	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5331
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5332	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5333	"return my preferred extent - this is the minimum size I would like to have.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5334	If the preferredExtent has been set, that one is returned.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5335	Otherwise, if there are any components, a rectangle enclosing them
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5336	is returned. Otherwise, the actual extent is returned."
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5337
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	5338	\|maxX maxY\|
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5339
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5340	"/ If I have an explicit preferredExtent ..
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5341
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5342	preferredExtent notNil ifTrue:[
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5343	^ preferredExtent
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5344	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5345
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5346	"/ mhmh - if I have subViews, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5347	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5348
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5349	subViews notNil ifTrue:[
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5350	maxX := maxY := 0.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5351	subViews do:[:aSubView \|
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5352	\|org corn\|
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5353
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5354	org := aSubView computeOrigin.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5355	corn := org + aSubView preferredExtent.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5356	maxX := maxX max:corn x.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5357	maxY := maxY max:corn y.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5358	]
140 0db355079dc4 . claus parents: 138 diff changeset	5359	].
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5360
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5361	"/ mhmh - if I have components, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5362	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5363
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5364	components notNil ifTrue:[
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5365	maxX isNil ifTrue:[
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5366	maxX := maxY := 0.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5367	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5368	components do:[:aComponent \|
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5369	\|bounds org corn\|
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5370
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5371	bounds := aComponent preferredBounds.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5372	corn := bounds corner.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5373	maxX := maxX max:corn x.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5374	maxY := maxY max:corn y.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5375	]
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5376	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5377
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5378	"/ nothing found - return the actual size
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5379
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5380	maxX isNil ifTrue:[
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5381	^ self extent.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5382	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5383
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5384	^ maxX @ maxY.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5385
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5386	"Modified: 19.7.1996 / 20:43:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5387	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5388
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5389	sizeFixed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5390	"return true, if this vew wants its size to remain unchanged.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5391	Used by panels, to check if their components want to keep their size."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5392
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5393	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5394
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5395	"Created: 17.9.1995 / 20:29:20 / claus"
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5396	!
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5397
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5398	specClass
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5399	"fallback - heuristics to get a specClass for some viewClass"
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5400
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5401	\|myName cls\|
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5402
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5403	(self class == View
3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5404	or:[self class == SimpleView]) ifTrue:[
1490 c2fffb968267 checkin from browser Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	5405	^ ViewSpec "/ CompositeSpecCollection
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5406	].
3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5407
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5408	myName := self class name.
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5409	cls := Smalltalk classNamed:(myName , 'Spec').
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5410	(cls notNil and:[cls isLoaded not]) ifTrue:[
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5411	cls autoload
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5412	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5413
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5414	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5415
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5416	(myName endsWith:'View') ifTrue:[
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5417	"/ try name without 'View'
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5418	cls := Smalltalk classNamed:(myName copyWithoutLast:4).
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5419	(cls notNil and:[cls isLoaded not]) ifTrue:[
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5420	cls autoload
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5421	].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5422	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5423
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5424	"/ try with 'View' replaced by 'Spec'
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5425	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5426	(cls notNil and:[cls isLoaded not]) ifTrue:[
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5427	cls autoload
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5428	].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5429	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5430	].
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5431	^ ArbitraryComponentSpec
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5432
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5433	"/ self error:'no spec class (subclassResponsibility)'
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5434
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5435	"
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5436	FramedBox new specClass
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5437	"
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5438
1490 c2fffb968267 checkin from browser Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	5439	"Modified: 27.3.1997 / 11:04:17 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5440	! !
0db355079dc4 . claus parents: 138 diff changeset	5441
0db355079dc4 . claus parents: 138 diff changeset	5442	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	5443
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5444	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5445	"create (i.e. tell my device about me) if not already created.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5446	This does not make the view visible (needs a #map for that)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5447
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5448	drawableId isNil ifTrue:[
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5449	"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5450	make certain that superview is created also
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5451	"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5452	superView notNil ifTrue:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5453	superView view create.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5454
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5455	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5456	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5457	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5458	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5459	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5460	"/ ]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5461	] ifFalse:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5462	"/
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5463	"/ if the display is not already dispatching events,
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5464	"/ this starts the event process.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5465	"/
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5466	device startDispatch
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5467	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5468
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5469	cursor notNil ifTrue:[
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	5470	cursor := cursor onDevice:device.
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5471	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5472
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5473	explicitExtent ~~ true ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5474	self resize
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5475	].
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5476
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5477	self physicalCreate.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5478
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5479	viewBackground notNil ifTrue:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5480	self setViewBackground
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5481	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5482
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5483	self initializeMiddleButtonMenu.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5484	self initEvents.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5485
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5486	"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5487	this is the first create,
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5488	force sizechange messages to be sent to the view
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5489	"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5490	extentChanged := true.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5491	originChanged := true
151 8123ec03c52f . claus parents: 145 diff changeset	5492	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5493
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	5494	"Modified: 28.3.1997 / 13:50:17 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	5495	!
8123ec03c52f . claus parents: 145 diff changeset	5496
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5497	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5498	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5499
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5500	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5501	subViews notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5502	subViews do:[:subView \| subView createWithAllSubViews]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5503	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5504	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5505
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5506	destroy
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5507	"unmap & destroy - make me invisible, destroy subviews then
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5508	make me unknown to the device"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5509
140 0db355079dc4 . claus parents: 138 diff changeset	5510	realized ifTrue:[
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5511	self unmap.
1474 9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5512	"/ "make it go away immediately
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5513	"/ - also, this hides the subview killing"
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5514	"/
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5515	"/ device synchronizeOutput.
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5516
151 8123ec03c52f . claus parents: 145 diff changeset	5517	].
8123ec03c52f . claus parents: 145 diff changeset	5518
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5519	"/ controller notNil ifTrue:[
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5520	"/ controller release.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5521	"/ controller := nil.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5522	"/ ].
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5523
1474 9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5524	subViews notNil ifTrue:[
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5525	self destroySubViews.
140 0db355079dc4 . claus parents: 138 diff changeset	5526	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5527	superView notNil ifTrue:[
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5528	superView removeSubView:self.
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5529	superView := nil
140 0db355079dc4 . claus parents: 138 diff changeset	5530	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5531	super destroy.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5532
1477 7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5533	"/ superView isNil ifTrue:[
7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5534	"/ device flush
7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5535	"/ ].
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5536
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5537	controller notNil ifTrue:[
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5538	controller release.
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5539	controller := nil.
140 0db355079dc4 . claus parents: 138 diff changeset	5540	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5541
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5542	windowGroup notNil ifTrue:[
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5543	windowGroup removeView:self.
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5544	windowGroup := nil
140 0db355079dc4 . claus parents: 138 diff changeset	5545	].
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5546
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5547	"Modified: 3.5.1996 / 23:49:24 / stefan"
1477 7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5548	"Modified: 20.3.1997 / 22:11:53 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5549	!
0db355079dc4 . claus parents: 138 diff changeset	5550
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5551	fetchDeviceResources
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5552	"fetch all device specific resources. This is invoked,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5553	when the view is made visible on some device for the very first
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5554	time, to allocate device specific colors, fonts, bitmaps etc.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5555	The view may keep those in instance variables, to avoid reallocating
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5556	those with every redraw.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5557	If you ommit to do this, the views will still be able to display themself,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5558	but possibly slower, since resources are reallocated over and over.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5559	If you redefine this method, make certain that 'super fetchDeviceResources'
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5560	is always sent."
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5561
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5562	shadowColor notNil ifTrue:[shadowColor := shadowColor on:device].
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5563	lightColor notNil ifTrue:[lightColor := lightColor on:device].
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5564
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5565	"Created: 13.1.1997 / 21:51:59 / cg"
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5566	!
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5567
140 0db355079dc4 . claus parents: 138 diff changeset	5568	fixSize
0db355079dc4 . claus parents: 138 diff changeset	5569	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	5570	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	5571	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	5572	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	5573	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	5574
151 8123ec03c52f . claus parents: 145 diff changeset	5575	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	5576
8123ec03c52f . claus parents: 145 diff changeset	5577	"
8123ec03c52f . claus parents: 145 diff changeset	5578	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	5579	"
8123ec03c52f . claus parents: 145 diff changeset	5580	layout notNil ifTrue:[
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5581	(originChanged or:[extentChanged or:[cornerChanged]]) ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5582	r := (layout rectangleRelativeTo:(superView viewRectangle)
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5583	preferred:(self preferredBounds)).
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5584	org := r origin rounded.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5585	ext := r extent rounded.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5586	self pixelOrigin:org extent:ext.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5587	].
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5588	^ self.
151 8123ec03c52f . claus parents: 145 diff changeset	5589	].
8123ec03c52f . claus parents: 145 diff changeset	5590
140 0db355079dc4 . claus parents: 138 diff changeset	5591	"if the extent is not the one we created the window with ..."
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5592	"/ extentChanged ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5593	"/ self sizeChanged:nil.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5594	"/ extentChanged := false
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5595	"/ ].
140 0db355079dc4 . claus parents: 138 diff changeset	5596
0db355079dc4 . claus parents: 138 diff changeset	5597	originChanged ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	5598	"/ org := self computeOrigin.
0db355079dc4 . claus parents: 138 diff changeset	5599	"/ self pixelOrigin:org.
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5600	originRule notNil ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5601	self pixelOrigin:self computeOrigin
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5602	] ifFalse:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5603	relativeOrigin notNil ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5604	self originFromRelativeOrigin:relativeOrigin
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5605	] ifFalse:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5606	shown ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5607	device moveWindow:drawableId x:left y:top.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5608	] ifFalse:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5609	self pixelOrigin:left@top
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5610	].
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5611	].
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5612	].
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5613	originChanged := false
140 0db355079dc4 . claus parents: 138 diff changeset	5614	]
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5615
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	5616	"Modified: 18.6.1996 / 21:44:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5617	!
0db355079dc4 . claus parents: 138 diff changeset	5618
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5619	hide
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5620	"only useful with modal views: hide the view and return control
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5621	back to the suspended main view. Ignored for non-modal views."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5622
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5623	\|p\|
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5624
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5625	realized ifFalse:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5626	windowGroup isNil ifTrue:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5627	windowGroup isModal ifFalse:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5628
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5629	windowGroup notNil ifTrue:[windowGroup focusView:nil].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5630
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5631	self unmap.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5632	device flush.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5633
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5634	(windowGroup notNil and:[(p := windowGroup previousGroup) notNil]) ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5635	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5636	this is a kludge for IRIS which does not provide backingstore:
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5637	when we hide a modalbox (such as a searchbox) which covered
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5638	a scrollbar, the scrollbars bitblt-method will copy from the
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5639	not-yet redrawn area - effectively clearing the scroller.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5640	We need a short delay here, since at this time, the expose event has
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5641	not yet arrived.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5642	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5643	Delay waitForSeconds:0.1.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5644	p processExposeEvents
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5645	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5646	WindowGroup leaveSignal raise.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5647	"/ not reached
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5648	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5649	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5650
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5651	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5652	"for protocol compatibility with modal dialogs;
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5653	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5654
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5655	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5656	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	5657
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5658	map
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5659	"make the view visible on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5660
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5661	realized ifFalse:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5662	drawableId isNil ifTrue:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5663	self realize
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5664	] ifFalse:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5665	"
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5666	no, make the view visible
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5667	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5668	realized := true.
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5669	device mapWindow:drawableId.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5670	]
140 0db355079dc4 . claus parents: 138 diff changeset	5671	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5672
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5673	"Modified: 23.8.1996 / 14:53:55 / stefan"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5674	"Modified: 25.2.1997 / 22:43:58 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5675	!
0db355079dc4 . claus parents: 138 diff changeset	5676
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5677	physicalCreate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5678	"common code for create & recreate:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5679	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5680
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5681	\|sv\|
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5682
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5683	sv := superView isNil ifTrue:[superView] ifFalse:[superView view].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5684
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5685	drawableId := device
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5686	createWindowFor:self
1467 9629ce710c53 added type argument to createWindowFor - prepare for native window support (windows) Claus Gittinger <cg@exept.de> parents: 1444 diff changeset	5687	type:nil
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5688	origin:(left @ top)
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5689	extent:(width @ height)
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5690	minExtent:nil
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5691	maxExtent:nil
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5692	borderWidth:borderWidth
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5693	subViewOf:sv
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5694	onTop:(self isPopUpView)
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5695	inputOnly:(self isInputOnly)
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5696	label:nil
9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5697	cursor:cursor
1425 c6963c38dcd8 preparations for iconMasks (for windows) Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	5698	icon:nil iconMask:nil
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5699	iconView:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5700
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5701	Lobby registerChange:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5702	extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5703	originChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5704
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	5705	(borderColor notNil and:[borderColor ~= Black]) ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5706	"/ borderColor := borderColor on:device.
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5707	self setBorderColor
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5708	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5709	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5710	device setWindowGravity:viewGravity in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5711	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5712	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5713	device setBitGravity:bitGravity in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5714	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5715	borderShape notNil ifTrue:[
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5716	device setWindowBorderShape:(borderShape id) in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5717	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5718	viewShape notNil ifTrue:[
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5719	device setWindowShape:(viewShape id) in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5720	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5721	(backed notNil and:[backed ~~ false]) ifTrue:[
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5722	device setBackingStore:backed in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5723	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5724	saveUnder ifTrue:[
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5725	device setSaveUnder:true in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5726	].
779 9300dc4ed123 renamed #inputOnly to #isInputOnly Claus Gittinger <cg@exept.de> parents: 771 diff changeset	5727
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	5728	"Modified: 13.1.1997 / 23:10:56 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5729	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5730
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5731	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5732	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5733	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5734	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5735
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5736	"/ fetch device colors, to avoid reallocation at redraw time
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5737
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5738	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5739
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5740	"/ now, really realize mySelf
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5741
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5742	self realizeKeepingGroup:false
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5743
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5744	"Modified: 13.1.1997 / 21:52:13 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5745	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5746
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5747	realizeAllSubViews
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5748	"realize all my subviews - but not myself."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5750	subViews notNil ifTrue:[
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5751	subViews do:[:subView \|
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5752	subView realize
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5753	]
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5754	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5755	components notNil ifTrue:[
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5756	components do:[:component \|
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5757	component realize
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5758	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5759	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5760
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5761	"Modified: 5.9.1995 / 23:30:47 / claus"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5762	"Modified: 13.1.1997 / 21:25:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5763	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5764
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5765	realizeInGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5766	"special realize - leave windowgroup as is;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5767	This allows a view to be realized in any windowgroup;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5768	for special applications, like the kill button in the Filebrowser which has
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5769	a windowGroup different from its superview's and is handled as a separate process."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5770
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5771	windowGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5772	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5773
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5774	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5775	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5776
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5777	realizeKeepingGroup:keepGroupAsIs
151 8123ec03c52f . claus parents: 145 diff changeset	5778	"common helper for realize and realizeInGroup.
8123ec03c52f . claus parents: 145 diff changeset	5779	Create the view, if the argument is not true, assign my windowGroup,
8123ec03c52f . claus parents: 145 diff changeset	5780	if hiddenOnRealize is not true, map it."
140 0db355079dc4 . claus parents: 138 diff changeset	5781
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5782	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	5783
0db355079dc4 . claus parents: 138 diff changeset	5784	drawableId isNil ifTrue:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5785	self create.
140 0db355079dc4 . claus parents: 138 diff changeset	5786	].
0db355079dc4 . claus parents: 138 diff changeset	5787
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	5788	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5789
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5790	(windowGroup notNil and:[windowGroup isForModalSubview]) ifTrue:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5791	keep := true.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5792	] ifFalse:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5793	keep := keepGroupAsIs
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5794	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5795
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5796	keep ifFalse:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5797	"
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5798	put myself into superviews windowgroup if there is a superview
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5799	"
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5800	superView notNil ifTrue:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5801	superGroup := superView windowGroup.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5802	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5803	"
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5804	mhmh - seems that the windowgroup has changed ....
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5805	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	5806	"/ 'oops - wgroup change on realize' printNL.
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5807	windowGroup removeView:self.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5808	windowGroup := nil
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5809	].
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5810	superGroup ~~ windowGroup ifTrue:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5811	groupChange := true.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5812	windowGroup := superGroup.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5813	windowGroup notNil ifTrue:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5814	windowGroup addView:self.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5815	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5816	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5817	].
140 0db355079dc4 . claus parents: 138 diff changeset	5818	].
0db355079dc4 . claus parents: 138 diff changeset	5819
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5820	(originChanged or:[extentChanged]) ifTrue:[
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5821	self fixSize.
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5822	self sizeChanged:nil. "/ new 29-aug-1995
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5823	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5824
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5825	(subViews notNil or:[components notNil]) ifTrue:[
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5826	(realized not or:[groupChange]) ifTrue:[
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5827	self realizeAllSubViews.
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5828	].
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5829	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5830	hiddenOnRealize ifFalse:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5831	self setInnerClip.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5832
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5833	realized ifFalse:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5834	"
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5835	now, make the view visible
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5836	"
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5837	self map
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5838	]
140 0db355079dc4 . claus parents: 138 diff changeset	5839	].
0db355079dc4 . claus parents: 138 diff changeset	5840
0db355079dc4 . claus parents: 138 diff changeset	5841	controller notNil ifTrue:[
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5842	controller startUp
140 0db355079dc4 . claus parents: 138 diff changeset	5843	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5844
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5845	"Modified: 5.6.1996 / 01:02:01 / cg"
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	5846	"Modified: 23.8.1996 / 15:07:16 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	5847	!
0db355079dc4 . claus parents: 138 diff changeset	5848
0db355079dc4 . claus parents: 138 diff changeset	5849	recreate
0db355079dc4 . claus parents: 138 diff changeset	5850	"recreate (i.e. tell X about me) after a snapin"
0db355079dc4 . claus parents: 138 diff changeset	5851
0db355079dc4 . claus parents: 138 diff changeset	5852	drawableId isNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5853	super recreate.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5854	self physicalCreate.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5855
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5856	viewBackground notNil ifTrue:[
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5857	self setViewBackground
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5858	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5859
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5860	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5861	XXX has to be changed: eventmasks are device specific -
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5862	XXX will not allow restart on another Workstation-type.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5863	XXX event masks must become symbolic
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5864	"
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5865	device setEventMask:eventMask in:drawableId
140 0db355079dc4 . claus parents: 138 diff changeset	5866	]
0db355079dc4 . claus parents: 138 diff changeset	5867	!
0db355079dc4 . claus parents: 138 diff changeset	5868
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5869	remap
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5870	"make the view visible on the screen at its previous position.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5871	In contrast to map, this asks the windowManager to show the view
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5872	immediately (instead of asking for a frame). However, some windowManagers
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5873	are known to ignore this ..."
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5874
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5875	realized ifFalse:[
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5876	"
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5877	now, make the view visible
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5878	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5879	realized := true.
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5880	device mapView:self id:drawableId iconified:false
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5881	atX:left y:top width:width height:height.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5882	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5883
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5884	"Created: 8.5.1996 / 09:33:06 / cg"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5885	"Modified: 25.2.1997 / 22:44:33 / cg"
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5886	!
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	5887
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5888	rerealize
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5889	"rerealize at old position in (a possibly different) windowGroup."
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5890
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5891	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5892
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5893	self rerealizeInGroup:windowGroup.
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5894
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5895	"Created: 7.11.1996 / 16:27:09 / cg"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5896	"Modified: 13.1.1997 / 21:53:18 / cg"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5897	!
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5898
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5899	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5900	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5901
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5902	drawableId isNil ifTrue:[
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5903	self create
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5904	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5905	drawableId notNil ifTrue:[
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5906	aWindowGroup ~~ windowGroup ifTrue:[
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5907	windowGroup notNil ifTrue:[
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5908	windowGroup removeView:self
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5909	].
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5910	windowGroup := aWindowGroup.
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5911	aWindowGroup addTopView:self.
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5912	].
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5913	self remap.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5914	]
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5915
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5916	"Modified: 3.5.1996 / 23:59:30 / stefan"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	5917	"Modified: 7.11.1996 / 16:28:16 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5918	!
0db355079dc4 . claus parents: 138 diff changeset	5919
0db355079dc4 . claus parents: 138 diff changeset	5920	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	5921	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	5922
0db355079dc4 . claus parents: 138 diff changeset	5923	drawableId notNil ifTrue:[
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5924	realized := true.
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5925	self realizeAllSubViews.
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5926	device mapView:self id:drawableId iconified:false
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5927	atX:left y:top width:width height:height
140 0db355079dc4 . claus parents: 138 diff changeset	5928	]
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5929
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5930	"Modified: 28.1.1997 / 17:59:28 / cg"
180 0b3a8658d55e . claus parents: 176 diff changeset	5931	!
0b3a8658d55e . claus parents: 176 diff changeset	5932
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5933	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5934	"resize myself to make everything fit into me.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5935	Here, nothing special is done (except for setting my extent to the
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5936	preferredExtent), but may be redefined in some subclasses."
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5937
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5938	explicitExtent ~~ true ifTrue:[
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5939	self extent:(self preferredExtent).
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5940	explicitExtent := false.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5941	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5942
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	5943	"Modified: 15.7.1996 / 11:20:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5944	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5945
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5946	unmap
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5947	"hide me - the view stays created, and can be remapped again later."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5948
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5949	realized ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5950	drawableId notNil ifTrue:[
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5951	realized := false.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5952	device unmapWindow:drawableId
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5953	].
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5954	shown := realized := false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5955	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	5956
4c49bdd5b80f . claus parents: 189 diff changeset	5957	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5958	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5959
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5960	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5961	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5962
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5963	sub := View
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5964	origin:0.2@0.2
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5965	corner:0.8@0.8
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5966	in:top.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5967
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5968	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5969	sub hiddenOnRealize:true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5970
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5971	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5972	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5973	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5974	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5975	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5976	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5977	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5978	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	5979	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5980
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5981	"Modified: 25.2.1997 / 23:13:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5982	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5983
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5984	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5985	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5986
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5987	self obsoleteMethodWarning:'use unmap'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5988	self unmap.
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5989
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5990	"Modified: 4.5.1996 / 00:07:48 / stefan"
151 8123ec03c52f . claus parents: 145 diff changeset	5991	! !
8123ec03c52f . claus parents: 145 diff changeset	5992
8123ec03c52f . claus parents: 145 diff changeset	5993	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	5994
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5995	flash
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5996	"flash the view - fill it black, then white, finally
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5997	redraw completely.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5998	Can be used to wakeup the user :- when problem or warning conditions
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5999	arise)"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6000
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6001	self fill:Black.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6002	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6003	self fill:White.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6004	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6005	self clear.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6006	self invalidate
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6007
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6008	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6009	\|v\|
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6010
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6011	v := View new openAndWait.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6012	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6013	v flash.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6014	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6015	v destroy
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6016	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6017
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6018	"Modified: 29.5.1996 / 14:09:46 / cg"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6019	!
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6020
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6021	invalidate
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6022	"add a damage to redraw the recevier to its input event queue.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6023	This is preferable to calling redraw directly, in that the drawing is done by
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6024	the views process itself, and there is a possibilty to merge
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6025	multiple damage rectangles into single redraws."
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6026
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6027	\|sensor\|
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6028
753 cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6029	shown ifTrue:[
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6030	(sensor := self sensor) notNil ifTrue:[
1313 bfda595d4b34 * empty log message * Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	6031	sensor flushExposeEventsFor:self.
753 cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6032	sensor addDamage:(0@0 extent:width@height) view:self
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6033	] ifFalse:[
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6034	self redrawX:0 y:0 width:width height:height
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6035	]
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6036	]
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6037
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6038	"Created: 26.5.1996 / 17:17:38 / cg"
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6039	"Modified: 28.5.1996 / 22:15:05 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6040	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6041
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6042	invalidate:aRectangle
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6043	"add a damage to redraw part of the recevier, to its input event queue.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6044	This is preferable to calling redraw directly,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6045	in that the drawing is done by the views process itself,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6046	and there is a possibilty to merge multiple damage rectangles into
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6047	single redraws."
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6048
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6049	\|sensor\|
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6050
753 cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6051	shown ifTrue:[
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6052	(sensor := self sensor) notNil ifTrue:[
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6053	sensor addDamage:aRectangle view:self.
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6054	] ifFalse:[
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6055	self redrawX:(aRectangle left)
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6056	y:(aRectangle top)
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6057	width:(aRectangle width)
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6058	height:(aRectangle height)
cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6059	]
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6060	]
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6061
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6062	"Created: 26.5.1996 / 17:18:25 / cg"
753 cb2c6ba6f4d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 751 diff changeset	6063	"Modified: 28.5.1996 / 22:15:21 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6064	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6065
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6066	redraw
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6067	"redraw myself completely - this is sent by redrawX:y:width:height:
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6068	as a fallback.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6069	Cannot do much here - is redefined in subclasses which dont care for
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6070	updating regions but instead update everything."
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6071
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6072	"Modified: 29.5.1996 / 18:02:52 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6073	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6074
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6075	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6076	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6077	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6078	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6079	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6080
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6081	\|lx ly lw lh\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6082
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6083	lx := x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6084	ly := y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6085	lw := w.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6086	lh := h.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6087
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6088	transformation notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6089	lx := transformation applyInverseToX:lx.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6090	ly := transformation applyInverseToY:ly.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6091	lw := transformation applyInverseScaleX:lw.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6092	lh := transformation applyInverseScaleY:lh.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6093	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6094	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6095	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6096
151 8123ec03c52f . claus parents: 145 diff changeset	6097	redrawX:x y:y width:w height:h
8123ec03c52f . claus parents: 145 diff changeset	6098	"have to redraw part of myself, given logical coordinates (if trans is nonNil)
8123ec03c52f . claus parents: 145 diff changeset	6099	default is to redraw everything - subclasses should add intelligence"
8123ec03c52f . claus parents: 145 diff changeset	6100
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6101	\|area oldClip\|
151 8123ec03c52f . claus parents: 145 diff changeset	6102
8123ec03c52f . claus parents: 145 diff changeset	6103	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	6104
8123ec03c52f . claus parents: 145 diff changeset	6105	area := Rectangle left:x top:y width:w height:h.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6106	oldClip := clipRect.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6107	self clippingRectangle:area.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6108
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6109	components notNil ifTrue:[
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6110	self clearRectangleX:x y:y width:w height:h.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6111	components do:[:aComponent \|
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6112	\|thisFrame is\|
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6113
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6114	thisFrame := aComponent bounds.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6115	(thisFrame intersects:area) ifTrue:[
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6116	aComponent displayOn:self
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6117	]
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	6118	]
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6119	] ifFalse:[
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6120	"/ redraw everything - a fallBack for lazy views.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6121	self redraw
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6122	].
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6123
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6124	self clippingRectangle:oldClip.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6125
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6126	"Modified: 3.6.1996 / 11:52:51 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	6127	!
8123ec03c52f . claus parents: 145 diff changeset	6128
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6129	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6130	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6131	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6132
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6133	^ self
135 cf8e46015072 . claus parents: diff changeset	6134	!
cf8e46015072 . claus parents: diff changeset	6135
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6136	showFocus:explicit
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6137	"highlight myself somehow to tell user that I have the focus.
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6138	If explicit is true, the focus came via focusStepping (i.e. tabbing);
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6139	if false, it came via the window manager (i.e. pointer entering).
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6140	Only change my border, if this is an explicit focusChange."
135 cf8e46015072 . claus parents: diff changeset	6141
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6142	\|delta clrId\|
135 cf8e46015072 . claus parents: diff changeset	6143
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6144	explicit ifTrue:[
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6145	drawableId notNil ifTrue:[
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6146	delta := DefaultFocusBorderWidth - borderWidth.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6147	delta ~~ 0 ifTrue:[
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6148	device moveWindow:drawableId x:left-delta y:top-delta.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6149	device setWindowBorderWidth:DefaultFocusBorderWidth in:drawableId.
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6150	].
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6151
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6152	clrId := (DefaultFocusColor on:device) colorId.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6153	clrId isNil ifTrue:[
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6154	clrId := device blackpixel
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6155	].
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6156	device setWindowBorderColor:clrId in:drawableId.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6157	]
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6158	] ifFalse:[
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6159	superView notNil ifTrue:[
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6160	superView showFocus:explicit
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6161	]
135 cf8e46015072 . claus parents: diff changeset	6162	]
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6163
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6164	"Modified: 25.2.1997 / 23:46:56 / cg"
135 cf8e46015072 . claus parents: diff changeset	6165	!
cf8e46015072 . claus parents: diff changeset	6166
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6167	showNoFocus:explicit
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6168	"undo the effect of showFocus.
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6169	Explicit tells if the focus came via focusStepping (i.e. tabbing)
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6170	or via the window manager (i.e. pointer entering).
15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6171	Only change my border, if this is an explicit focusChange."
135 cf8e46015072 . claus parents: diff changeset	6172
cf8e46015072 . claus parents: diff changeset	6173	\|delta\|
cf8e46015072 . claus parents: diff changeset	6174
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6175	explicit ifTrue:[
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6176	drawableId notNil ifTrue:[
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6177	(windowGroup notNil
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6178	and:[windowGroup focusView == self]) ifTrue:[
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6179	delta := DefaultFocusBorderWidth - borderWidth.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6180	delta ~~ 0 ifTrue:[
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6181	device setWindowBorderWidth:borderWidth in:drawableId.
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6182	device moveWindow:drawableId x:left y:top.
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6183	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6184	self setBorderColor.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6185	]
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	6186	]
135 cf8e46015072 . claus parents: diff changeset	6187	]
358 27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	6188
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6189	"Modified: 25.2.1997 / 23:51:12 / cg"
135 cf8e46015072 . claus parents: diff changeset	6190	!
cf8e46015072 . claus parents: diff changeset	6191
cf8e46015072 . claus parents: diff changeset	6192	showPassive
cf8e46015072 . claus parents: diff changeset	6193	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	6194	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	6195
cf8e46015072 . claus parents: diff changeset	6196	^ self
cf8e46015072 . claus parents: diff changeset	6197	! !
cf8e46015072 . claus parents: diff changeset	6198
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6199	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6200
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6201	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6202	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6203	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6204
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6205	^ (device horizontalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6206	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6207
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6208	pageDown
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6209	self scrollDown:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6210
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6211	"Created: 13.9.1996 / 14:06:54 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6212	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6213
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6214	pageUp
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6215	self scrollUp:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6216
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6217	"Created: 13.9.1996 / 14:07:01 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6218	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6219
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6220	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6221	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6222	scroll-step down button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6223
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6224	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6225	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6226
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6227	scrollDown:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6228	"change origin to scroll down some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6229
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6230	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6231
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6232	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6233	^ self scrollTo:(viewOrigin x @ (viewOrigin y + nPixels))
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6234
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6235	"Modified: 20.8.1996 / 17:34:36 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6236	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6237
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6238	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6239	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6240
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6241	\|orgY\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6242
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6243	orgY := self viewOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6244	^ self scrollTo:(aPixelOffset @ orgY).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6245
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6246	"Modified: 8.7.1996 / 15:34:54 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	6247	!
0db355079dc4 . claus parents: 138 diff changeset	6248
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6249	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6250	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6251
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6252	\|wCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6253
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6254	wCont := self widthOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6255	transformation notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6256	wCont := transformation applyScaleX:wCont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6257	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6258	self scrollHorizontalTo:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6259	((((wCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6260	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6261
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6262	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6263	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6264	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6265
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6266	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6267	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6268
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6269	scrollLeft:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6270	"change origin to scroll left some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6271
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6272	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6273
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6274	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6275	^ self scrollTo:((viewOrigin x - nPixels) @ viewOrigin y).
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6276
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6277	"Modified: 20.8.1996 / 17:35:09 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6278	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6279
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6280	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6281	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6282	scroll-step right button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6283
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6284	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6285	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6286
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6287	scrollRight:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6288	"change origin to scroll right some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6289
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6290	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6291
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6292	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6293	^ self scrollTo:((viewOrigin x + nPixels) @ viewOrigin y)
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6294
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6295	"Modified: 20.8.1996 / 17:35:37 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6296	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6297
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6298	scrollToBottom
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6299	self scrollTo:0 @ (self heightOfContents - self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6300
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6301	"Created: 13.9.1996 / 14:08:03 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6302	"Modified: 13.9.1996 / 14:09:32 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6303	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6304
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6305	scrollToPercent:originAsPercent
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6306	"scroll to a position given in percent of total (x and y as a Point)"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6307
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6308	\|wCont hCont percent\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6309
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6310	percent := originAsPercent asPoint.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6311
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6312	wCont := self widthOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6313	hCont := self heightOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6314
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6315	transformation notNil ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6316	wCont := transformation applyScaleX:wCont.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6317	hCont := transformation applyScaleY:hCont.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6318	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6319	self scrollTo:
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6320	((((wCont * percent x) / 100.0) + 0.5) asInteger) @
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6321	((((hCont * percent y) / 100.0) + 0.5) asInteger)
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6322
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6323	"Created: 5.8.1996 / 12:15:53 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6324	"Modified: 5.8.1996 / 12:42:57 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6325	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6326
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6327	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6328	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6329
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6330	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6331	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6332
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6333	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6334	"move viewOrigin to top/left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6335
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6336	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6337	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6338
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6339	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6340	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6341	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6342
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6343	self scrollUp:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6344	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6345
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6346	scrollUp:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6347	"change origin to scroll up (towards the origin) by some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6348
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6349	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6350
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6351	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6352	^ self scrollTo:(viewOrigin x @ (viewOrigin y - nPixels)).
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6353
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6354	"Modified: 20.8.1996 / 17:36:16 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6355	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6356
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6357	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6358	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6359
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6360	\|orgX\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6361
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6362	orgX := self viewOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6363	^ self scrollTo:(orgX @ aPixelOffset).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6364
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6365	"Modified: 8.7.1996 / 15:35:40 / stefan"
135 cf8e46015072 . claus parents: diff changeset	6366	!
cf8e46015072 . claus parents: diff changeset	6367
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6368	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6369	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6370
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6371	\|hCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6372
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6373	hCont := self heightOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6374	transformation notNil ifTrue:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6375	hCont := transformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	6376	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6377	self scrollVerticalTo:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6378	((((hCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6379	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6380
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6381	verticalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6382	"return the amount to scroll when stepping up/down.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6383	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6384
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6385	^ (device verticalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6386	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6387
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6388	widthForScrollBetween:yStart and:yEnd
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6389	"return the width in pixels for a scroll between yStart and yEnd
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6390	- return full width here since we do not know how wide contents is.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6391	Views which only use part of their space (short lists, text) may redefine
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6392	this method and return the number of pixels that have to be scrolled.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6393	On slow displays, this may make a difference; on fast ones you will probably
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6394	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6395
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6396	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	6397	! !
cf8e46015072 . claus parents: diff changeset	6398
cf8e46015072 . claus parents: diff changeset	6399	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	6400
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6401	scrollTo:newOrigin
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6402	"change origin to have newOrigin be visible at the top-left.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6403	The argument defines the integer device coordinates of the new top-left
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6404	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6405
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6406	^ self scrollTo:newOrigin redraw:true
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6407
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6408	"Modified: 15.7.1996 / 11:35:08 / stefan"
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6409	"Modified: 13.9.1996 / 14:09:19 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6410	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6411
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6412	scrollTo:newOrigin redraw:doRedraw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6413	"change origin to have newOrigin be visible at the top-left.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6414	The argument defines the integer device coordinates of the new top-left
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6415	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6416
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6417	\|dX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6418	dY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6419	orgX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6420	orgY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6421	x y iw ih
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6422	hCont wCont fromX toX fromY toY copyWidth copyHeight
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6423	redrawX redrawY\|
135 cf8e46015072 . claus parents: diff changeset	6424
cf8e46015072 . claus parents: diff changeset	6425	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	6426	wCont := self widthOfContents.
cf8e46015072 . claus parents: diff changeset	6427	transformation isNil ifTrue:[
704 fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6428	orgY := orgX := 0
135 cf8e46015072 . claus parents: diff changeset	6429	] ifFalse:[
704 fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6430	wCont := (transformation applyScaleX:wCont) rounded.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6431	hCont := (transformation applyScaleY:hCont) rounded.
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	6432	orgY := transformation translation y negated.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6433	orgX := transformation translation x negated
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6434	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6435
135 cf8e46015072 . claus parents: diff changeset	6436	iw := self innerWidth.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6437	ih := self innerHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6438
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6439	"don't scroll outside of displayed area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6440
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6441	x := newOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6442	y := newOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6443
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6444	x + iw > wCont ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6445	x := wCont - iw.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6446	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6447	x < 0 ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6448	x := 0
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6449	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6450	y + ih > hCont ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6451	y := hCont - ih.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6452	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6453	y < 0 ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6454	y := 0.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6455	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6456
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6457	dX := x - orgX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6458	dY := y - orgY.
135 cf8e46015072 . claus parents: diff changeset	6459
1066 bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	6460	(dX == 0 and:[dY == 0]) ifTrue:[
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	6461	^ self
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	6462	].
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	6463
135 cf8e46015072 . claus parents: diff changeset	6464	self originWillChange.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6465	(shown and:[doRedraw]) ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6466	copyWidth := iw - dX abs.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6467	copyHeight := ih - dY abs.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6468	((copyWidth > 0) and:[copyHeight > 0]) ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6469	"/ some of the currently displayed pixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6470	"/ remain visible. Copy them
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6471
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6472	dX < 0 ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6473	fromX := margin.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6474	toX := margin - dX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6475	redrawX := margin
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6476	] ifFalse:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6477	fromX := margin + dX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6478	toX := margin.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6479	redrawX := margin + copyWidth.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6480	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6481	dY < 0 ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6482	fromY := margin.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6483	toY := margin - dY.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6484	redrawY := margin.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6485	] ifFalse:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6486	fromY := margin + dY.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6487	toY := margin.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6488	redrawY := margin + copyHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6489	].
704 fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6490	self catchExpose.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6491	self setViewOrigin:(x @ y).
1293 530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6492	self
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6493	copyFrom:self
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6494	x:fromX y:fromY
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6495	toX:toX y:toY
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6496	width:copyWidth
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6497	height:copyHeight
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6498	async:true.
704 fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6499
fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6500	self setInnerClip.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6501
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6502	"first redraw the rectangle above/below the
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6503	copied area (with full width)."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6504
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6505	copyHeight < ih ifTrue:[
1293 530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6506	self
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6507	redrawDeviceX:margin y:redrawY
530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6508	width:iw height:(ih - copyHeight).
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6509	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6510
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6511	"second redraw the rectangle left/right of the
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6512	copied area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6513
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6514	copyWidth < iw ifTrue:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6515	self redrawDeviceX:redrawX y:toY
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6516	width:iw - copyWidth
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6517	height:copyHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6518	].
704 fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6519	self waitForExpose.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6520	] ifFalse:[
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6521	"redraw everything"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6522
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6523	self setViewOrigin:(x @ y).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6524	self redrawDeviceX:margin y:margin
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6525	width:iw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6526	height:ih.
704 fc3711e83946 avoid sending #translation twice Claus Gittinger <cg@exept.de> parents: 697 diff changeset	6527	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6528	] ifFalse:[
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6529	self setViewOrigin:(x @ y).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6530	].
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	6531	self originChanged:(dX negated @ dY negated).
6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	6532
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6533	"Modified: 5.8.1996 / 11:57:09 / stefan"
1293 530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	6534	"Modified: 29.1.1997 / 13:08:26 / cg"
135 cf8e46015072 . claus parents: diff changeset	6535	! !
cf8e46015072 . claus parents: diff changeset	6536
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6537	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6538
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6539	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6540	"open up the view - for normal views, this is a modeless open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6541	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6542	Although #open is only to be sent to topviews (i.e. it could have been
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6543	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6544	can be opened as a topView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6545	This is redefined in ModalBox, which comes up modal (i.e.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6546	control is under the current process, so that interaction with the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6547	current group is blocked while the modalBox is active)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6548
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6549	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6550
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6551	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6552	View new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6553
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6554	(Button label:'hello') open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6555
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6556	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6557	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6558	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6559	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6560	top open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6561
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6562	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6563	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6564	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6565
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6566	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6567	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6568	In normal applications, you do not need to wait till the view is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6569	open - it should do all of its drawing itself when it gets the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6570	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6571	However, if you want to 'manually' draw into the view (for example,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6572	in doIt expressions) the view must be visible (realized) before doing so.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6573	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6574
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6575	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6576	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6577
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6578	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6579
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6580	\|v\|
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6581
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6582	v := View new open.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6583	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6584
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6585	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6586
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6587	\|v\|
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6588
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6589	v := View new openAndWait.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6590	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6591	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6592	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6593
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6594	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6595	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6596
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6597	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6598
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6599	"Created: 18.9.1995 / 23:30:43 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6600	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6601
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6602	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6603	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6604
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6605	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6606
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6607	"Created: 18.9.1995 / 23:30:56 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6608	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6610	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6611	"create and schedule a new windowgroup for me and open the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6612	The view will be handled by its own process, effectively running in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6613	parallel. This entry is for non-topviews, which want to be served
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6614	autonomous from the topview. (see the fileBrowsers kill-button
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6615	when executing unix commands as an example)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6617	\|wg\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6618
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6619	"/ non-thread operation is no longer supported
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6620	"/
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6621	"/ Processor isPureEventDriven ifTrue:[
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6622	"/ self realize.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6623	"/ ^ self
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6624	"/ ].
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6625
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6626	wg := WindowGroup new.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6627	self windowGroup:wg.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6628	wg addView:self.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6629	wg startup:false.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6630	wg isForModalSubview:true.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6631	self realizeInGroup.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	6632
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6633	"Modified: 29.5.1996 / 13:23:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6634	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6635
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6636	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6637	"special open within another windowGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6638	This allows a view to be realized in any windowgroup;
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6639	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6640	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6641
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6642	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6643	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6644
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6645	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6646	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6647	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6648	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6649
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6650	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6651	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6652	actually suspending event processing for the currently active group.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6653	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6654	(i.e. control is returned to the sender when the receiver is closed)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6655
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6656	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6657
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6658	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6659	the same:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6660	YesNoBox new open
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6661
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6662	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6663
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6664	different:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6665	(Button label:'hello') open
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6666
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6667	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6668	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6669	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6670
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6671	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6672	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6673	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6674	Stay in this modal loop while aBlock evaluates to true AND the receiver is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6675	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6676	(i.e. control is returned to the sender when the receiver is closed)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6677	This makes any interaction with the current window impossible -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6678	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6679
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6680	\|mainGroup\|
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6681
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6682	mainGroup := WindowGroup activeGroup.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6683	mainGroup notNil ifTrue:[
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6684	mainGroup := mainGroup mainGroup.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6685	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6686	^ self openModal:aBlock inGroup:mainGroup.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6687
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6688	"Created: 10.12.1995 / 14:06:45 / cg"
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6689	"Modified: 28.2.1997 / 22:31:50 / cg"
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6690	!
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6691
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6692	openModal:aBlock inGroup:mainGroup
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6693	"create a new windowgroup, but start processing in the current process -
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6694	actually suspending event processing for the main group.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6695	Stay in this modal loop while aBlock evaluates to true AND the receiver is
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6696	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6697	(i.e. control is returned to the sender when the receiver is closed)
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6698	This makes any interaction with the current window impossible -
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6699	however, other views (in other windowgroups) still work."
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6700
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6701	\|tops mainView mainViewID\|
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6702
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6703	ModalBox usingTransientViews ifTrue:[
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6704	mainGroup notNil ifTrue:[
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6705	mainGroup topViews notNil ifTrue:[
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6706	mainView := mainGroup topViews first.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6707	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6708	mainView notNil ifTrue:[
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6709	mainViewID := mainView id.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6710	]
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6711	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6712
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6713	mainViewID isNil ifTrue:[
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6714	self origin:(device center - (self extent//2))
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6715	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6716
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6717	self create.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6718	device setTransient:drawableId for:mainViewID.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6719	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6720
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6721	self raise.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6722
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6723	Processor activeProcessIsSystemProcess ifTrue:[
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6724	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6725	put myself into the modal group, let it handle events for
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6726	me as well. This is only a half way solution, since the view
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6727	is not modal at all ... however, the only situation
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6728	where this happens is with modal boxes popped while in a
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6729	modal browser. You will forgive me for that inconvenience.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6730	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6731	windowGroup := mainGroup.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6732	mainGroup notNil ifTrue:[mainGroup addTopView:self].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6733	self realize
135 cf8e46015072 . claus parents: diff changeset	6734	] ifFalse:[
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6735	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6736	show a stop-cursor in the main group
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6737	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6738	mainGroup notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6739	self isPopUpView ifFalse:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6740	mainGroup showCursor:(Cursor stop).
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6741	]
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6742	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6743
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6744	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6745	create a new window group and put myself into it
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6746	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6747	windowGroup := WindowGroup new.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6748	windowGroup addTopView:self.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6749
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6750	superView notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6751	"/
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6752	"/ special: this is a modal subview,
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6753	"/ prevent the view to reassign its windowGroup when realized
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6754	"/ (subviews normally place themself into the superviews group)
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6755	"/
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6756	windowGroup isForModalSubview:true.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6757	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6758
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6759	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6760	go dispatch events in this new group
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6761	(thus current windowgroup is blocked from interaction)
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6762	"
426 7f0f723980e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 424 diff changeset	6763	AbortSignal handle:[:ex \|
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6764	self hide.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6765	ex return.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6766	] do:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6767	[
1261 15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6768	[
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6769	windowGroup startupModal:[realized and:aBlock] forGroup:mainGroup
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6770	] valueOnUnwindDo:[
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6771	self hide
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6772	]
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6773	] valueNowOrOnUnwindDo:[
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6774	mainGroup notNil ifTrue:[
1261 15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6775	ReturnFocusWhenClosingModalBoxes ifTrue:[
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6776	"
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6777	return input focus to previously active groups top.
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6778	This helps with windowmanagers which need an explicit click
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6779	on the view for the focus.
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6780	"
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6781	tops := mainGroup topViews.
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6782	(tops notNil and:[tops notEmpty]) ifTrue:[
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6783	tops first getKeyboardFocus
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6784	]
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6785	].
1261 15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6786
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6787	"
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6788	restore cursors in the main group & flush its buffered key & mouse events
1261 15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6789	"
15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6790	mainGroup restoreCursors.
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	6791	"/ mainGroup sensor flushUserEvents.
1261 15adeadfaa0e care for returnFocus when aborting modalBoxes Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	6792	]
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6793	]
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	6794	].
135 cf8e46015072 . claus parents: diff changeset	6795	]
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6796
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	6797	"Created: 10.12.1995 / 14:06:14 / cg"
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	6798	"Modified: 28.2.1997 / 22:29:56 / cg"
135 cf8e46015072 . claus parents: diff changeset	6799	!
cf8e46015072 . claus parents: diff changeset	6800
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6801	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6802	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6803	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6804
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6805	self origin:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6806	self create.
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	6807	"/ device setTransient:drawableId for:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6808	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6809
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6810	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6811	View new openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6812
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6813	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6814	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6815
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6816	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6817	"Modified: 18.9.1995 / 23:32:26 / claus"
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	6818	"Modified: 12.4.1996 / 19:02:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6819	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6820
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6821	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6822	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6823	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6824
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6825	^ self openModalAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6826
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6827	"Created: 18.9.1995 / 23:31:47 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6828	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6829
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6830	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6831	"create and schedule a new windowgroup for me and open the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6832	The view will be handled by its own process, effectively running in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6833	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6834
566 530567d2984f checkin from browser Claus Gittinger <cg@exept.de> parents: 560 diff changeset	6835	Processor isPureEventDriven ifFalse:[
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6836	windowGroup isNil ifTrue:[
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6837	windowGroup := WindowGroup new.
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6838	windowGroup addTopView:self.
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6839	windowGroup startup:false.
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6840	] ifFalse:[
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6841	windowGroup addTopView:self.
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6842	windowGroup startup:false.
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6843	self realizeInGroup.
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6844	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6845	] ifTrue:[
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6846	self realize
135 cf8e46015072 . claus parents: diff changeset	6847	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6848
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6849	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6850	the same:
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6851	(Button label:'hello') open
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6852
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6853	(Button label:'hello') openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6855	different:
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6856	YesNoBox new open
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6857
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6858	YesNoBox new openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6859	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6860	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6861	(almost) the same:
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6862	YesNoBox new open
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6863
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6864	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6865
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6866	different:
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6867	(Button label:'hello') open
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6868
c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6869	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6870	"
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	6871
566 530567d2984f checkin from browser Claus Gittinger <cg@exept.de> parents: 560 diff changeset	6872	"Modified: 13.4.1996 / 20:34:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6873	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6874
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6875	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6876	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6877	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6879	self origin:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6880	self create.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6881	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6882
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6883	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6884	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6885
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6886	View new openModelessAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6887	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6888
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6889	"Created: 18.9.1995 / 23:21:42 / claus"
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	6890	"Modified: 12.4.1996 / 19:02:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6891	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6892
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6893	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6894	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6895	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6896
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6897	^ self openModelessAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6898
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6899	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6900	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6901
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6902	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6903	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6904
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6905	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6906	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6907
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6908	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6909	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6910	In normal applications, you do not need to wait till a view is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6911	open - it should do all of its drawing itself when it gets the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6912	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6913	However, if you want to 'manually' draw into the view (for example,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6914	in doIt expressions), or subsequent views depend on some state of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6915	another view (which is only available once visible),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6916	use this to suspend the current process until the receiver is shown.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6917	Caveat:
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6918	we poll here for the view to be shown - we need a semaphore
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6919	which is raised by the view in order to do it right."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6920
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6921	[self shown] whileFalse:[
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6922	Delay waitForSeconds:0.05.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6923	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6924
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6925	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6926	when we attempt to draw a line - this gives an error, since
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6927	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6928
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6929	\|v\|
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6930
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6931	v := View new open.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6932	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6933
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6934	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6935	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6936
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6937	\|v\|
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6938
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6939	v := View new open.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6940	v waitUntilVisible.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6941	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6942	"
135 cf8e46015072 . claus parents: diff changeset	6943	! !
cf8e46015072 . claus parents: diff changeset	6944
cf8e46015072 . claus parents: diff changeset	6945	!SimpleView methodsFor:'user notification'!
cf8e46015072 . claus parents: diff changeset	6946
cf8e46015072 . claus parents: diff changeset	6947	warn:aString
cf8e46015072 . claus parents: diff changeset	6948	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	6949	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	6950
151 8123ec03c52f . claus parents: 145 diff changeset	6951	super warn:(resources string:aString) withCRs
135 cf8e46015072 . claus parents: diff changeset	6952	!
cf8e46015072 . claus parents: diff changeset	6953
cf8e46015072 . claus parents: diff changeset	6954	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	6955	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	6956	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	6957
151 8123ec03c52f . claus parents: 145 diff changeset	6958	super warn:(resources string:aString with:argument) withCRs
8123ec03c52f . claus parents: 145 diff changeset	6959	!
8123ec03c52f . claus parents: 145 diff changeset	6960
8123ec03c52f . claus parents: 145 diff changeset	6961	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	6962	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	6963	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	6964
8123ec03c52f . claus parents: 145 diff changeset	6965	super warn:(resources string:aString with:arg1 with:arg2) withCRs
135 cf8e46015072 . claus parents: diff changeset	6966	! !
cf8e46015072 . claus parents: diff changeset	6967
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	6968	!SimpleView class methodsFor:'documentation'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6969
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6970	version
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	6971	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.195 1997-04-04 16:58:49 cg Exp $'
135 cf8e46015072 . claus parents: diff changeset	6972	! !
cf8e46015072 . claus parents: diff changeset	6973	SimpleView initialize!

author	Claus Gittinger <cg@exept.de>
	Fri, 04 Apr 1997 18:58:49 +0200
changeset 1544	4b78320b98fe
parent 1524	7932774a0429
child 1555	6280ab9b914d
permissions	-rw-r--r--