hg/stx-libview: SimpleView.st@97c51a9ec661 (annotated)

135 cf8e46015072 . claus parents: diff changeset	1	"
cf8e46015072 . claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
cf8e46015072 . claus parents: diff changeset	3	All Rights Reserved
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
cf8e46015072 . claus parents: diff changeset	13	PseudoView subclass:#SimpleView
358 27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	14	instanceVariableNames:'superView subViews components styleSheet resources borderColor
312 a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	15	borderWidth borderShape viewShape top left extentChanged
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	16	originChanged cornerChanged relativeOrigin relativeExtent
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	17	relativeCorner originRule extentRule cornerRule insets viewport
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	18	layout shown hiddenOnRealize name level margin innerClipRect
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	19	shadowColor lightColor bitGravity viewGravity controller
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	20	windowGroup'
358 27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	21	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
312 a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	22	DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
472 621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	23	DefaultShadowColor DefaultBorderWidth DefaultFocusColor
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	24	DefaultFocusBorderWidth ReturnFocusWhenClosingModalBoxes'
358 27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	25	poolDictionaries:''
27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 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'
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	30
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	31	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	32	The following class instance variables are inherited by this class:
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	33
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	34	PseudoView -
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	35	DeviceDrawable -
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	36	DisplayMedium -
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	37	GraphicsContext -
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	38	Object -
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	39	"
140 0db355079dc4 . claus parents: 138 diff changeset	40	!
135 cf8e46015072 . claus parents: diff changeset	41
cf8e46015072 . claus parents: diff changeset	42	!SimpleView class methodsFor:'documentation'!
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
cf8e46015072 . claus parents: diff changeset	47	All Rights Reserved
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
cf8e46015072 . claus parents: diff changeset	73	Instance variables:
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	viewport <Rectangle> my Rectangle in superviews coordinates
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	relativeOrigin <Number> relative origin 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	relativeExtent <Number> relative extent 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	relativeCorner <Number> relative corner in percent within superview
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	originRule <Block> rule to compute origin 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	extentRule <Block> rule to compute extent 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	cornerRule <Block> rule to compute corner if superview changes size
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	insets <Array> array with top, left, bottom & right insets (or nil)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	112
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	113	layout <LayoutObject> not yet implemented - will replace the above layout
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	114	variables.
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	shown <Boolean> true if visible (false if iconified, unmapped or covered)
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	hiddenOnRealize <Boolean> dont show automatically when superview is realized
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	name <String> my name (future use for resources)
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	level <Number> 3D level relative to superview
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	margin <Number> convenient 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	innerClipRect <Rectangle> convenient inner clip (minus margin)
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	shadowColor <Color> color used to draw 3D shadowed 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	lightColor <Color> color used to draw 3D lighted edges
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	bitGravity <nil \| Symbol> gravity of contents (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	viewGravity <nil \| Symbol> gravity of view (if device supports it)
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	controller <nil \| Controller> the controller (if any)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	137
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	138	windowGroup <WindowGroup> the windowGroup
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	139
135 cf8e46015072 . claus parents: diff changeset	140
cf8e46015072 . claus parents: diff changeset	141
cf8e46015072 . claus parents: diff changeset	142	Class variables:
cf8e46015072 . claus parents: diff changeset	143
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	144	Grey <Color> the color grey - its used so often
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	ViewSpacing <Number> preferred spacing between views; 1mm
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	CentPoint <Point> 100 @ 100 - its used so often
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	StyleSheet <ResourcePack> contains all view-style specifics
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	151
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	152	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	153	<Boolean> the keyboard focus to the view which was
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	154	active when the box was opened.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	155	If false (the default), it is left to
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	156	window manager to assign a new focus.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	157	If running on olwm/olvwm (which requires an
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	158	explicit click to reassign a focus), it is
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	159	better to turn this on in a private.rc file.
135 cf8e46015072 . claus parents: diff changeset	160
cf8e46015072 . claus parents: diff changeset	161	styleSheet parameters:
cf8e46015072 . claus parents: diff changeset	162
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	163	popupShadow <Boolean> if true, popupViews show a shadow below
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	popupLevel <nil \| Integer> 3D level
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	borderWidth <nil \| Integer> borderWidth (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	borderColor <nil \| Color> borderColor (ignored in 3D styles)
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	viewBackground <nil \| Color> views background
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	shadowColor <nil \| Color> color for shadow 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	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	176
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	177	font <nil \| Font> font to use
135 cf8e46015072 . claus parents: diff changeset	178
cf8e46015072 . claus parents: diff changeset	179
cf8e46015072 . claus parents: diff changeset	180	TODO:
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	181	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	182	and insets; replace by a single object which defines the size
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	183	(mhmh - ST-80 seems to call this LayoutFrame ?)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	184	-> 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	185	access methods to get those instance variables' values
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	186
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	187	get rid of 3D level & margin, move it to extra wrappers
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	188	(although this will make view setup more complicated, it will remove
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	189	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	190	varieties of borders.)
151 8123ec03c52f . claus parents: 145 diff changeset	191
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	192	add components (could also call them gadgets or lightweight views)
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	193	- 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	194	framing/edge and panel helper views become cheap ST objects, instead
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	195	of views.
135 cf8e46015072 . claus parents: diff changeset	196	"
151 8123ec03c52f . claus parents: 145 diff changeset	197	!
8123ec03c52f . claus parents: 145 diff changeset	198
8123ec03c52f . claus parents: 145 diff changeset	199	examples
8123ec03c52f . claus parents: 145 diff changeset	200	"
8123ec03c52f . claus parents: 145 diff changeset	201	(all examples below use different viewBackgrounds,
8123ec03c52f . claus parents: 145 diff changeset	202	to make the individual subviews visible)
8123ec03c52f . claus parents: 145 diff changeset	203
8123ec03c52f . claus parents: 145 diff changeset	204	fixed position/size:
8123ec03c52f . claus parents: 145 diff changeset	205
8123ec03c52f . claus parents: 145 diff changeset	206	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	207
8123ec03c52f . claus parents: 145 diff changeset	208	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	209	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	210
8123ec03c52f . claus parents: 145 diff changeset	211	v1 := View origin:10@10
8123ec03c52f . claus parents: 145 diff changeset	212	corner:50@50
8123ec03c52f . claus parents: 145 diff changeset	213	in:top.
8123ec03c52f . claus parents: 145 diff changeset	214	v2 := View origin:60@10
8123ec03c52f . claus parents: 145 diff changeset	215	corner:150@100
8123ec03c52f . claus parents: 145 diff changeset	216	in:top.
8123ec03c52f . claus parents: 145 diff changeset	217
8123ec03c52f . claus parents: 145 diff changeset	218	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	219	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	220
8123ec03c52f . claus parents: 145 diff changeset	221	top open
8123ec03c52f . claus parents: 145 diff changeset	222
8123ec03c52f . claus parents: 145 diff changeset	223
8123ec03c52f . claus parents: 145 diff changeset	224	same, using ST-80 way of bulding up view hierarchies
8123ec03c52f . claus parents: 145 diff changeset	225	(recommended, if you plan to port applications later)
8123ec03c52f . claus parents: 145 diff changeset	226
8123ec03c52f . claus parents: 145 diff changeset	227	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	228
8123ec03c52f . claus parents: 145 diff changeset	229	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	230	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	231
8123ec03c52f . claus parents: 145 diff changeset	232	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	233	v1 origin:10@10 corner:50@50.
8123ec03c52f . claus parents: 145 diff changeset	234
8123ec03c52f . claus parents: 145 diff changeset	235	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	236	v2 origin:60@10 corner:150@100.
8123ec03c52f . claus parents: 145 diff changeset	237
8123ec03c52f . claus parents: 145 diff changeset	238	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	239	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	240
8123ec03c52f . claus parents: 145 diff changeset	241	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	242	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	243
8123ec03c52f . claus parents: 145 diff changeset	244	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	245	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	246
8123ec03c52f . claus parents: 145 diff changeset	247	top open
8123ec03c52f . claus parents: 145 diff changeset	248
8123ec03c52f . claus parents: 145 diff changeset	249
8123ec03c52f . claus parents: 145 diff changeset	250	fixed origin, variable size:
8123ec03c52f . claus parents: 145 diff changeset	251
8123ec03c52f . claus parents: 145 diff changeset	252	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	253
8123ec03c52f . claus parents: 145 diff changeset	254	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	255	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	256
8123ec03c52f . claus parents: 145 diff changeset	257	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	258	v1 origin:10@10 corner:50@0.5.
8123ec03c52f . claus parents: 145 diff changeset	259
8123ec03c52f . claus parents: 145 diff changeset	260	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	261	v2 origin:60@10 corner:150@0.5.
8123ec03c52f . claus parents: 145 diff changeset	262
8123ec03c52f . claus parents: 145 diff changeset	263	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	264	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	265
8123ec03c52f . claus parents: 145 diff changeset	266	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	267	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	268
8123ec03c52f . claus parents: 145 diff changeset	269	top open
8123ec03c52f . claus parents: 145 diff changeset	270
8123ec03c52f . claus parents: 145 diff changeset	271
8123ec03c52f . claus parents: 145 diff changeset	272	fixed origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	273	bottomInset for constant distance from bottom:
8123ec03c52f . claus parents: 145 diff changeset	274
8123ec03c52f . claus parents: 145 diff changeset	275	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	276
8123ec03c52f . claus parents: 145 diff changeset	277	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	278	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	279
8123ec03c52f . claus parents: 145 diff changeset	280	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	281	v1 origin:10@10 corner:50@1.0.
8123ec03c52f . claus parents: 145 diff changeset	282	v1 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	283
8123ec03c52f . claus parents: 145 diff changeset	284	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	285	v2 origin:60@10 corner:150@1.0.
8123ec03c52f . claus parents: 145 diff changeset	286	v2 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	287
8123ec03c52f . claus parents: 145 diff changeset	288	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	289	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	290
8123ec03c52f . claus parents: 145 diff changeset	291	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	292	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	293
8123ec03c52f . claus parents: 145 diff changeset	294	top open
8123ec03c52f . claus parents: 145 diff changeset	295
8123ec03c52f . claus parents: 145 diff changeset	296
8123ec03c52f . claus parents: 145 diff changeset	297	variable origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	298
8123ec03c52f . claus parents: 145 diff changeset	299	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	300
8123ec03c52f . claus parents: 145 diff changeset	301	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	302	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	303
8123ec03c52f . claus parents: 145 diff changeset	304	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	305	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	306
8123ec03c52f . claus parents: 145 diff changeset	307	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	308	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	309
8123ec03c52f . claus parents: 145 diff changeset	310	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	311	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	312
8123ec03c52f . claus parents: 145 diff changeset	313	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	314	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	315
8123ec03c52f . claus parents: 145 diff changeset	316	top open
8123ec03c52f . claus parents: 145 diff changeset	317
8123ec03c52f . claus parents: 145 diff changeset	318
8123ec03c52f . claus parents: 145 diff changeset	319	variable origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	320	insets for some constant distance
8123ec03c52f . claus parents: 145 diff changeset	321
8123ec03c52f . claus parents: 145 diff changeset	322	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	323
8123ec03c52f . claus parents: 145 diff changeset	324	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	325	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	326
8123ec03c52f . claus parents: 145 diff changeset	327	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	328	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	329	v1 rightInset:5.
8123ec03c52f . claus parents: 145 diff changeset	330
8123ec03c52f . claus parents: 145 diff changeset	331	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	332	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	333	v2 leftInset:5.
8123ec03c52f . claus parents: 145 diff changeset	334
8123ec03c52f . claus parents: 145 diff changeset	335	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	336	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	337
8123ec03c52f . claus parents: 145 diff changeset	338	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	339	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	340
8123ec03c52f . claus parents: 145 diff changeset	341	top open
8123ec03c52f . claus parents: 145 diff changeset	342
8123ec03c52f . claus parents: 145 diff changeset	343
8123ec03c52f . claus parents: 145 diff changeset	344	using layout objects (ST-80 style):
8123ec03c52f . claus parents: 145 diff changeset	345	fully specifying the frame
8123ec03c52f . claus parents: 145 diff changeset	346
8123ec03c52f . claus parents: 145 diff changeset	347	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	348
8123ec03c52f . claus parents: 145 diff changeset	349	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	350	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	351
8123ec03c52f . claus parents: 145 diff changeset	352	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	353	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	354
8123ec03c52f . claus parents: 145 diff changeset	355	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	356	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	357
8123ec03c52f . claus parents: 145 diff changeset	358	top add:v1 in:(LayoutFrame new
8123ec03c52f . claus parents: 145 diff changeset	359	leftFraction:0.25;
8123ec03c52f . claus parents: 145 diff changeset	360	rightFraction:0.75;
8123ec03c52f . claus parents: 145 diff changeset	361	topFraction:0.0;
8123ec03c52f . claus parents: 145 diff changeset	362	bottomFraction:0.5).
8123ec03c52f . claus parents: 145 diff changeset	363	top add:v2 in:(LayoutFrame new
8123ec03c52f . claus parents: 145 diff changeset	364	leftFraction:0.5;
8123ec03c52f . claus parents: 145 diff changeset	365	rightFraction:1.0;
8123ec03c52f . claus parents: 145 diff changeset	366	topFraction:0.5;
8123ec03c52f . claus parents: 145 diff changeset	367	bottomFraction:0.75).
8123ec03c52f . claus parents: 145 diff changeset	368
8123ec03c52f . claus parents: 145 diff changeset	369	top open
8123ec03c52f . claus parents: 145 diff changeset	370
8123ec03c52f . claus parents: 145 diff changeset	371
8123ec03c52f . claus parents: 145 diff changeset	372	another one, with offsets:
8123ec03c52f . claus parents: 145 diff changeset	373
8123ec03c52f . claus parents: 145 diff changeset	374	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	375
8123ec03c52f . claus parents: 145 diff changeset	376	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	377	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	378
8123ec03c52f . claus parents: 145 diff changeset	379	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	380	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	381
8123ec03c52f . claus parents: 145 diff changeset	382	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	383	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	384
8123ec03c52f . claus parents: 145 diff changeset	385	top add:v1 in:(LayoutFrame new
8123ec03c52f . claus parents: 145 diff changeset	386	leftFraction:0.0 offset:10;
8123ec03c52f . claus parents: 145 diff changeset	387	rightFraction:1.0 offset:-10;
8123ec03c52f . claus parents: 145 diff changeset	388	topFraction:0.0 offset:10;
8123ec03c52f . claus parents: 145 diff changeset	389	bottomFraction:0.5).
8123ec03c52f . claus parents: 145 diff changeset	390	top add:v2 in:(LayoutFrame new
8123ec03c52f . claus parents: 145 diff changeset	391	leftFraction:0.0 offset:30;
8123ec03c52f . claus parents: 145 diff changeset	392	rightFraction:1.0 offset:-30;
8123ec03c52f . claus parents: 145 diff changeset	393	topFraction:0.5 offset:10;
8123ec03c52f . claus parents: 145 diff changeset	394	bottomFraction:0.75).
8123ec03c52f . claus parents: 145 diff changeset	395
8123ec03c52f . claus parents: 145 diff changeset	396	top open
8123ec03c52f . claus parents: 145 diff changeset	397
8123ec03c52f . claus parents: 145 diff changeset	398
8123ec03c52f . claus parents: 145 diff changeset	399	specifying origin only. Extent is views preferred
8123ec03c52f . claus parents: 145 diff changeset	400	(notice, that plain views have some defaultExtent of 100@100)
8123ec03c52f . claus parents: 145 diff changeset	401
8123ec03c52f . claus parents: 145 diff changeset	402	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	403
8123ec03c52f . claus parents: 145 diff changeset	404	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	405	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	406
8123ec03c52f . claus parents: 145 diff changeset	407	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	408	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	409
8123ec03c52f . claus parents: 145 diff changeset	410	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	411	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	412
8123ec03c52f . claus parents: 145 diff changeset	413	top add:v1 in:(LayoutOrigin new
8123ec03c52f . claus parents: 145 diff changeset	414	leftFraction:0.25;
8123ec03c52f . claus parents: 145 diff changeset	415	topFraction:0.0).
8123ec03c52f . claus parents: 145 diff changeset	416	top add:v2 in:(LayoutOrigin new
8123ec03c52f . claus parents: 145 diff changeset	417	leftFraction:0.5;
8123ec03c52f . claus parents: 145 diff changeset	418	topFraction:0.5).
8123ec03c52f . claus parents: 145 diff changeset	419
8123ec03c52f . claus parents: 145 diff changeset	420	top open
8123ec03c52f . claus parents: 145 diff changeset	421
8123ec03c52f . claus parents: 145 diff changeset	422	same example, using buttons which compute their preferredBounds:
8123ec03c52f . claus parents: 145 diff changeset	423
8123ec03c52f . claus parents: 145 diff changeset	424	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	425
8123ec03c52f . claus parents: 145 diff changeset	426	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	427	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	428
8123ec03c52f . claus parents: 145 diff changeset	429	v1 := Button label:'foo'.
8123ec03c52f . claus parents: 145 diff changeset	430	v2 := Button label:'a very long buttonLabel'.
8123ec03c52f . claus parents: 145 diff changeset	431
8123ec03c52f . claus parents: 145 diff changeset	432	v1 backgroundColor:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	433	v2 backgroundColor:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	434
8123ec03c52f . claus parents: 145 diff changeset	435	top add:v1 in:(LayoutOrigin new
8123ec03c52f . claus parents: 145 diff changeset	436	leftFraction:0.25;
8123ec03c52f . claus parents: 145 diff changeset	437	topFraction:0.0).
8123ec03c52f . claus parents: 145 diff changeset	438	top add:v2 in:(LayoutOrigin new
8123ec03c52f . claus parents: 145 diff changeset	439	leftFraction:0.5;
8123ec03c52f . claus parents: 145 diff changeset	440	topFraction:0.5).
8123ec03c52f . claus parents: 145 diff changeset	441
8123ec03c52f . claus parents: 145 diff changeset	442	top open
8123ec03c52f . claus parents: 145 diff changeset	443
8123ec03c52f . claus parents: 145 diff changeset	444	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	445	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	446
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	447	layoutComputation
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	448	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	449	Due to historic reasons, there are 2 mechanisms to resize a view:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	450	- (old, to be eliminated mechanism)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	451	based upon info found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	452	relativeOrigin / relativeCorner / relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	453	originRule / cornerRule / extentRule
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	454
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	455	- (new, will migrate to that one)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	456	letting a layoutObject compute things
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	457
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	458	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	459	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	460	geometry is desired.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	461	However, having 6 instance variables in every view creates some overhead,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	462	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	463	relative-sized).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	464	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	465	to use layoutObjects.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	466	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	467	existing interfaces will (silently) create layoutObjects as appropriate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	468	However, you should remove all direct accesses to the above mentioned
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	469	instance variables, to be prepared for that change.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	470
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	471	Notice, that a view recomputes its size whenever its superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	472	changes size. This is done via:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	473	sizeChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	474	-> allSubviews: superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	475
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	476	If the geometry computation as performed in superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	477	is not powerful enough for your application, you can either:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	478	- redefine superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	479	- create a special layoutObject which computes a new layout.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	480	"
135 cf8e46015072 . claus parents: diff changeset	481	! !
cf8e46015072 . claus parents: diff changeset	482
cf8e46015072 . claus parents: diff changeset	483	!SimpleView class methodsFor:'initialization'!
cf8e46015072 . claus parents: diff changeset	484
cf8e46015072 . claus parents: diff changeset	485	initialize
cf8e46015072 . claus parents: diff changeset	486	DefaultStyle isNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	487	Font initialize.
cf8e46015072 . claus parents: diff changeset	488	Form initialize.
cf8e46015072 . claus parents: diff changeset	489	Color initialize.
cf8e46015072 . claus parents: diff changeset	490
cf8e46015072 . claus parents: diff changeset	491	Display notNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	492	self defaultStyle:#normal.
cf8e46015072 . claus parents: diff changeset	493	].
cf8e46015072 . claus parents: diff changeset	494
cf8e46015072 . claus parents: diff changeset	495	"/ self updateStyleCache.
cf8e46015072 . claus parents: diff changeset	496	self == SimpleView ifTrue:[
cf8e46015072 . claus parents: diff changeset	497	Smalltalk addDependent:self "/ to get language changes
cf8e46015072 . claus parents: diff changeset	498	]
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	499	].
365 347a478d8cf5 default returnFocus to false Claus Gittinger <cg@exept.de> parents: 364 diff changeset	500	ReturnFocusWhenClosingModalBoxes := false.
135 cf8e46015072 . claus parents: diff changeset	501	!
cf8e46015072 . claus parents: diff changeset	502
cf8e46015072 . claus parents: diff changeset	503	postAutoload
cf8e46015072 . claus parents: diff changeset	504	self updateStyleCache.
cf8e46015072 . claus parents: diff changeset	505	! !
cf8e46015072 . claus parents: diff changeset	506
cf8e46015072 . claus parents: diff changeset	507	!SimpleView class methodsFor:'instance creation'!
cf8e46015072 . claus parents: diff changeset	508
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	509	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	510	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	511
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	512	^ self origin:nil extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	513	font:nil label:nil in:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	514	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	515
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	516	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	517	"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	518
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	519	^ self origin:nil extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	520	font:nil label:nil in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	521	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	522
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	523	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	524	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	525
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	526	^ self origin:nil extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	527	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	528	!
cf8e46015072 . claus parents: diff changeset	529
cf8e46015072 . claus parents: diff changeset	530	in:aView
cf8e46015072 . claus parents: diff changeset	531	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	532	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	533	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	534	by adding it to the superview via #addSubView:.
cf8e46015072 . claus parents: diff changeset	535	If realized and no superview has ever been set, it will come
cf8e46015072 . claus parents: diff changeset	536	up as a topview."
cf8e46015072 . claus parents: diff changeset	537
cf8e46015072 . claus parents: diff changeset	538	\|newView\|
cf8e46015072 . claus parents: diff changeset	539
cf8e46015072 . claus parents: diff changeset	540	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	541	aView notNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	542	newView device:(aView device).
cf8e46015072 . claus parents: diff changeset	543	newView superView:aView.
cf8e46015072 . claus parents: diff changeset	544	] ifFalse:[
151 8123ec03c52f . claus parents: 145 diff changeset	545	newView device:Screen current "Display"
135 cf8e46015072 . claus parents: diff changeset	546	].
cf8e46015072 . claus parents: diff changeset	547	newView initialize.
cf8e46015072 . claus parents: diff changeset	548	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	549	^ newView
cf8e46015072 . claus parents: diff changeset	550	!
cf8e46015072 . claus parents: diff changeset	551
140 0db355079dc4 . claus parents: 138 diff changeset	552	label:label
0db355079dc4 . claus parents: 138 diff changeset	553	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	554
cf8e46015072 . claus parents: diff changeset	555	^ self origin:nil extent:nil borderWidth:nil
140 0db355079dc4 . claus parents: 138 diff changeset	556	font:nil label:label in:nil
0db355079dc4 . claus parents: 138 diff changeset	557	!
0db355079dc4 . claus parents: 138 diff changeset	558
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	559	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	560	"create a new view as subview of aView with given label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	561
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	562	^ self origin:nil extent:nil borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	563	font:nil label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	564	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	565
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	566	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	567	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	568
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	569	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	570	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	571	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	572	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	573	^ self new model:aModel.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	574	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	575
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	576	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	577	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	578	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	579	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	580
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	581	\|device\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	582
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	583	anotherView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	584	device := anotherView device.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	585	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	586	device := Screen current "Display".
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	587	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	588	^ self onDevice:device
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	589	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	590
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	591	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	592	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	593
140 0db355079dc4 . claus parents: 138 diff changeset	594	^ self origin:origin corner:corner borderWidth:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	595	font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	596	!
cf8e46015072 . claus parents: diff changeset	597
cf8e46015072 . claus parents: diff changeset	598	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	599	\|newView\|
cf8e46015072 . claus parents: diff changeset	600
cf8e46015072 . claus parents: diff changeset	601	aView notNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	602	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	603	newView device:(aView device).
376 2c81dc024e73 initialize views BEFORE sending addSubView to superview ah parents: 372 diff changeset	604	newView initialize.
135 cf8e46015072 . claus parents: diff changeset	605	aView addSubView:newView.
cf8e46015072 . claus parents: diff changeset	606	] ifFalse:[
151 8123ec03c52f . claus parents: 145 diff changeset	607	newView := self onDevice:Screen current "Display"
135 cf8e46015072 . claus parents: diff changeset	608	].
cf8e46015072 . claus parents: diff changeset	609	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	610	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	611	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	612	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	613	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	614	^ newView
cf8e46015072 . claus parents: diff changeset	615	!
cf8e46015072 . claus parents: diff changeset	616
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	617	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	618	"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	619
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	620	^ self origin:origin corner:corner borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	621	font:nil label:nil in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	622	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	623
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	624	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	625	"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	626
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	627	^ self origin:origin corner:corner borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	628	font:nil label:nil in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	629	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	630
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	631	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	632	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	633
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	634	^ self origin:origin extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	635	font:nil label:nil in:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	636	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	637
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	638	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	639	"create a new view with given origin, extent and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	640
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	641	^ self origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	642	font:nil label:nil in:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	643	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	644
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	645	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	646	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	647
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	648	aView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	649	newView := self basicNew.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	650	newView device:(aView device).
376 2c81dc024e73 initialize views BEFORE sending addSubView to superview ah parents: 372 diff changeset	651	newView initialize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	652	aView addSubView:newView.
140 0db355079dc4 . claus parents: 138 diff changeset	653	] ifFalse:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	654	newView := self onDevice:Screen current "Display"
140 0db355079dc4 . claus parents: 138 diff changeset	655	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	656	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	657	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	658	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	659	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	660	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	661	^ newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	662	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	663
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	664	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	665	"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	666	and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	667
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	668	^ self origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	669	font:nil label:nil in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	670	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	671
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	672	origin:origin extent:extent font:aFont label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	673	^ self origin:origin extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	674	font:nil label:label in:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	675	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	677	origin:origin extent:extent font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	678	^ self origin:origin extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	679	font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	680	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	681
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	682	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	683	"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	684
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	685	^ self origin:origin extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	686	font:nil label:nil in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	687	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	688
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	689	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	690	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	691
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	692	^ self origin:origin extent:extent borderWidth:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	693	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	694	!
cf8e46015072 . claus parents: diff changeset	695
cf8e46015072 . claus parents: diff changeset	696	origin:anOrigin extent:anExtent
cf8e46015072 . claus parents: diff changeset	697	label:aLabel icon:aForm
cf8e46015072 . claus parents: diff changeset	698	minExtent:minExtent maxExtent:maxExtent
cf8e46015072 . claus parents: diff changeset	699	\|newView\|
cf8e46015072 . claus parents: diff changeset	700
151 8123ec03c52f . claus parents: 145 diff changeset	701	newView := self onDevice:Screen current "Display".
135 cf8e46015072 . claus parents: diff changeset	702	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	703	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	704	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	705	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	706	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	707	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	708	^ newView
cf8e46015072 . claus parents: diff changeset	709	!
cf8e46015072 . claus parents: diff changeset	710
140 0db355079dc4 . claus parents: 138 diff changeset	711	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	712	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	713
0db355079dc4 . claus parents: 138 diff changeset	714	^ self origin:origin extent:nil borderWidth:nil
0db355079dc4 . claus parents: 138 diff changeset	715	font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	716	! !
cf8e46015072 . claus parents: diff changeset	717
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	718	!SimpleView class methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	719
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	720	update:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	721	something == #Language ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	722	"flush resources on language changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	723	self flushAllClassResources
135 cf8e46015072 . claus parents: diff changeset	724	]
cf8e46015072 . claus parents: diff changeset	725	! !
cf8e46015072 . claus parents: diff changeset	726
cf8e46015072 . claus parents: diff changeset	727	!SimpleView class methodsFor:'defaults'!
cf8e46015072 . claus parents: diff changeset	728
140 0db355079dc4 . claus parents: 138 diff changeset	729	defaultExtent
0db355079dc4 . claus parents: 138 diff changeset	730	"define the default extent"
0db355079dc4 . claus parents: 138 diff changeset	731
0db355079dc4 . claus parents: 138 diff changeset	732	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	733	^ CentPoint
0db355079dc4 . claus parents: 138 diff changeset	734	!
0db355079dc4 . claus parents: 138 diff changeset	735
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	736	defaultFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	737	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	738
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	739	DefaultFont isNil ifTrue:[
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	740	self == SimpleView ifFalse:[
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	741	DefaultFont := self superclass defaultFont.
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	742	] ifTrue:[
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	743	"/ DefaultFont := super defaultFont
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	744	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	745	].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	746	DefaultFont notNil ifTrue:[DefaultFont := DefaultFont on:Display].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	747	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	748
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	749	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	750	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	751
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	752	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	753	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	754
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	755	DefaultFont := aFont on:Display
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	756	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	757
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	758	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	759	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	760
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	761	^ DefaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	762
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	763	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	764	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	765	"
135 cf8e46015072 . claus parents: diff changeset	766	!
cf8e46015072 . claus parents: diff changeset	767
cf8e46015072 . claus parents: diff changeset	768	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	769	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	770
180 0b3a8658d55e . claus parents: 176 diff changeset	771	"/ aStyle ~~ DefaultStyle ifTrue:[
135 cf8e46015072 . claus parents: diff changeset	772	DefaultStyle := aStyle.
cf8e46015072 . claus parents: diff changeset	773	self updateAllStyleCaches.
180 0b3a8658d55e . claus parents: 176 diff changeset	774	"/ ]
135 cf8e46015072 . claus parents: diff changeset	775
cf8e46015072 . claus parents: diff changeset	776	"
cf8e46015072 . claus parents: diff changeset	777	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	778	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	779	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	780	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	781	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	782	"
cf8e46015072 . claus parents: diff changeset	783	!
cf8e46015072 . claus parents: diff changeset	784
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	785	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	786	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	787	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	788
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	789	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	790	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	791
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	792	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	793	"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	794	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	795	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	796	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	797	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	798	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	799	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	800	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	801	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	802	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	803
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	804	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	805
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	806	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	807	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	808	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	809	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	810	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	811
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	812	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	813	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	814
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	815	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	816	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	817	self updateAllStyleCaches.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	818	!
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	updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	821	"reload all style caches in all view classes.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	822	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	823
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	824	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	825	StyleSheet fileReadFailed ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	826	('***** WARNING: no styleSheet for ' , DefaultStyle , '-style.') errorPrintNL.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	827	DefaultStyle ~~ #normal ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	828	DefaultStyle := #normal.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	829	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
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	StyleSheet fileReadFailed ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	832	'***** WARNING: not even a styleSheet for normal-style (using defaults).' errorPrintNL.
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	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	835	].
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	tell all view classes to flush any
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	839	cached style-data
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 changed:#style.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	842	SimpleView updateStyleCache.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	843	SimpleView allSubclassesDo:[:aClass \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	844	(aClass class implements:#updateStyleCache) ifTrue:[aClass updateStyleCache].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	845	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	846
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	View updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	849	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	850	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	851
135 cf8e46015072 . claus parents: diff changeset	852	updateStyleCache
cf8e46015072 . claus parents: diff changeset	853	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	854	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	855	Subclasses should redefine this to load any cached style-values
cf8e46015072 . claus parents: diff changeset	856	into faster class variables as well. These should NOT do a
cf8e46015072 . claus parents: diff changeset	857	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	858	anyway."
cf8e46015072 . claus parents: diff changeset	859
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	860	<resource: #style (#viewSpacing #font #borderWidth
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	861	#viewBackground #shadowColor #lightColor
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	862	#focusColor #focusBorderWidth)>
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	863
135 cf8e46015072 . claus parents: diff changeset	864	\|bgGrey\|
cf8e46015072 . claus parents: diff changeset	865
cf8e46015072 . claus parents: diff changeset	866	"
cf8e46015072 . claus parents: diff changeset	867	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	868	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	869	"
cf8e46015072 . claus parents: diff changeset	870	StyleSheet isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	871	DefaultStyle := #normal.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	872	StyleSheet := ViewStyle fromFile:'normal.style'.
135 cf8e46015072 . claus parents: diff changeset	873	].
cf8e46015072 . claus parents: diff changeset	874
cf8e46015072 . claus parents: diff changeset	875	Grey := StyleSheet viewGrey.
cf8e46015072 . claus parents: diff changeset	876	Grey isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	877	Grey := Color grey
135 cf8e46015072 . claus parents: diff changeset	878	].
cf8e46015072 . claus parents: diff changeset	879	Grey := Grey on:Display.
cf8e46015072 . claus parents: diff changeset	880
151 8123ec03c52f . claus parents: 145 diff changeset	881	StyleSheet fileReadFailed ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	882	bgGrey := White
135 cf8e46015072 . claus parents: diff changeset	883	] ifFalse:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	884	Display hasGreyscales ifTrue:[
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	885	bgGrey := Grey
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	886	] ifFalse:[
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	887	bgGrey := White
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	888	]
135 cf8e46015072 . claus parents: diff changeset	889	].
151 8123ec03c52f . claus parents: 145 diff changeset	890	bgGrey := bgGrey on:Display.
135 cf8e46015072 . claus parents: diff changeset	891
cf8e46015072 . claus parents: diff changeset	892	ViewSpacing := StyleSheet at:'viewSpacing'.
cf8e46015072 . claus parents: diff changeset	893	ViewSpacing isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	894	ViewSpacing := Display verticalPixelPerMillimeter rounded.
135 cf8e46015072 . claus parents: diff changeset	895	].
cf8e46015072 . claus parents: diff changeset	896
cf8e46015072 . claus parents: diff changeset	897	DefaultBorderColor := StyleSheet colorAt:'borderColor' default:Black.
151 8123ec03c52f . claus parents: 145 diff changeset	898
8123ec03c52f . claus parents: 145 diff changeset	899	StyleSheet fileReadFailed ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	900	DefaultBorderWidth := 1.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	901	DefaultShadowColor := Black.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	902	DefaultLightColor := White.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	903	DefaultFocusColor := Black.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	904	DefaultFocusBorderWidth := 2.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	905	DefaultViewBackgroundColor := bgGrey.
151 8123ec03c52f . claus parents: 145 diff changeset	906	] ifFalse:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	907	DefaultBorderWidth := StyleSheet at:'borderWidth' default:0.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	908	DefaultViewBackgroundColor := StyleSheet colorAt:'viewBackground' default:bgGrey.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	909	DefaultShadowColor := StyleSheet colorAt:'shadowColor'.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	910	DefaultLightColor := StyleSheet colorAt:'lightColor'.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	911	DefaultFocusColor := StyleSheet colorAt:'focusColor' default:Color red.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	912	DefaultFocusBorderWidth := StyleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	913	].
135 cf8e46015072 . claus parents: diff changeset	914
cf8e46015072 . claus parents: diff changeset	915	DefaultFont := StyleSheet at:'font'.
cf8e46015072 . claus parents: diff changeset	916	DefaultFont isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	917	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
135 cf8e46015072 . claus parents: diff changeset	918	].
cf8e46015072 . claus parents: diff changeset	919
cf8e46015072 . claus parents: diff changeset	920	DefaultFont := DefaultFont on:Display.
cf8e46015072 . claus parents: diff changeset	921
cf8e46015072 . claus parents: diff changeset	922	DefaultViewBackgroundColor isNil ifTrue:[
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	923	'bad viewBackground in style - using white' errorPrintNL.
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	924	DefaultViewBackgroundColor := White
135 cf8e46015072 . claus parents: diff changeset	925	].
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	926
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	927	"Modified: 1.3.1996 / 13:33:30 / cg"
135 cf8e46015072 . claus parents: diff changeset	928	!
cf8e46015072 . claus parents: diff changeset	929
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	930	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	931	"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	932	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	933	get a common look"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	934
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	935	^ ViewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	936	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	937
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	938	!SimpleView class methodsFor:'resources'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	940	classResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	941	"if not already loaded, get the classes resourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	942	and return it"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	943
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	944	ClassResources isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	945	ClassResources := ResourcePack for:self.
140 0db355079dc4 . claus parents: 138 diff changeset	946	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	947	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	948	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	949
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	950	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	951	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	952
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	953	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	954	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	955
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	956	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	957	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	958	Needed after a resource file has changed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	959
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	960	ResourcePack flushCachedResourcePacks.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	961	SimpleView flushClassResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	962	SimpleView allSubclasses do:[:aClass \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	963	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	964	]
0db355079dc4 . claus parents: 138 diff changeset	965
0db355079dc4 . claus parents: 138 diff changeset	966	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	967	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	968	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	969	"to change the language:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	970	Language := #english.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	971	Smalltalk changed:#Language.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	972	View flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	973	or:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	974	Language := #german.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	975	Smalltalk changed:#Language.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	976	View flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	977	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	978	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	979
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	980	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	981	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	982	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	983
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	984	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	985	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	986
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	987	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	988	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	989	Needed whenever a resource file or language has changed"
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	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	992	self classResources
135 cf8e46015072 . claus parents: diff changeset	993	! !
cf8e46015072 . claus parents: diff changeset	994
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	995	!SimpleView methodsFor:'ST-80 compatibility'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	996
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	997	checkForEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	998	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	999	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1000
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1001	sensor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1002	"return the views sensor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1003
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1004	windowGroup notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1005	^ windowGroup sensor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1006	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1007	^ nil
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1008	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1009
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1010	viewport
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1011	"return my viewport.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1012	WARNING: this is for backward compatibility with ST-80 rel2.x.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1013	dont use viewports and windows (use a transformation instead)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1014
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1015	^ viewport
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1016	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1017
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1018	viewport:aRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1019	"define my extend in my superviews coordinate-system.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1020	WARNING: this is for backward compatibility with ST-80 rel2.x.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1021	dont use viewports and windows (use a transformation instead)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1022
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1023	viewport := aRectangle.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1024	self dimensionFromViewport
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1025	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1026
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1027	window
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1028	"return my window (i.e. logical coordinate space).
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1029	If there is no window, return the extent.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1030	WARNING: this is for backward compatibility with ST-80 rel2.x.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1031	dont use viewports and windows (use a transformation instead)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1032
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1033	window isNil ifTrue:[^ width @ height].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1034	^ window
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1035	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1036
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1037	window:aRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1038	"define my window (i.e. logical coordinate space).
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1039	WARNING: this is for backward compatibility with ST-80 rel2.x.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1040	dont use viewports and windows (use a transformation instead)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1041
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1042	window := aRectangle.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1043	subViews notNil ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1044	subViews do:[:s \|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1045	s superViewChangedSize
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1046	]
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1047	]
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1048
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1049	"/ viewport isNil ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1050	"/ viewport := aRectangle.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1051	"/ ].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1052	"/ superView notNil ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1053	"/ self superViewChangedSize
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1054	"/ ] ifFalse:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1055	"/ originChanged := true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1056	"/ extentChanged := true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1057	"/ ]
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1058	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1059
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1060	window:aRectangle viewport:vRect
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1061	"set the window and viewport.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1062	WARNING: this is for backward compatibility with ST-80 rel2.x.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1063	dont use viewports and windows (use a transformation instead)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1064
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1065	window := aRectangle.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1066	self viewport:vRect.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1067	subViews notNil ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1068	subViews do:[:s \|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1069	s superViewChangedSize
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1070	]
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1071	]
151 8123ec03c52f . claus parents: 145 diff changeset	1072	! !
8123ec03c52f . claus parents: 145 diff changeset	1073
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1074	!SimpleView methodsFor:'accessing-bg & border'!
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	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1077	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1078
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1079	^ borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1080	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1081
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1082	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1083	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1084
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1085	(aColor ~~ borderColor) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1086	borderColor := aColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1087	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1088	self setBorderColor
135 cf8e46015072 . claus parents: diff changeset	1089	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1090	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1091	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1092
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1093	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1094	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1095
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1096	borderShape := aForm.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1097	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1098	device setWindowBorderShape:(aForm id) in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1099	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1100	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1101
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1102	borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1103	"return my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1104
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1105	^ borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1106	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1107
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1108	borderWidth:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1109	"set my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1110
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1111	(aNumber ~~ borderWidth) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1112	borderWidth := aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1113	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1114	device setWindowBorderWidth:aNumber in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1115	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1116	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1117	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1118
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1119	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1120	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1121
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1122	^ level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1123	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1124
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1125	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1126	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1127
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1128	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1129
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1130	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
433 d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1131	self is3D ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1132	level := aNumber.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1133	oldMargin := margin.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1134	margin := level abs.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1135
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1136	realized ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1137	margin ~~ oldMargin ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1138	(margin > oldMargin) ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1139	how := #smaller
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1140	] ifFalse:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1141	how := #larger
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1142	].
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1143	self sizeChanged:how.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1144	self setInnerClip.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1145	].
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1146	shown ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1147	margin ~~ oldMargin ifTrue:[
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1148	self clear.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1149	self redrawX:margin y:margin
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1150	width:width-(margin*2)
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1151	height:height-(margin*2)
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1152	].
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1153	self redrawEdges.
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1154	]
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1155	]
d61b4ce6f578 correctly handle level changes if abs(lvl) changes ca parents: 426 diff changeset	1156	]
135 cf8e46015072 . claus parents: diff changeset	1157	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1158	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1159
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1160	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1161	"set the color to be used for lighted edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1162
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1163	lightColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1164	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1165
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1166	margin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1167	"return my margin - this is usually the level,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1168	but can be more for some views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1169
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1170	^ margin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1171	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1172
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1173	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1174	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1175
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1176	shadowColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1177	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1178
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1179	viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1180	"set the viewBackground to something, a color, image or form.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1181	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	1182	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	1183	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1184
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1185	something isColor ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1186	device hasGreyscales ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1187	shadowColor := something darkened.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1188	lightColor := something lightened
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1189	]
135 cf8e46015072 . claus parents: diff changeset	1190	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1191	super viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1192	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1193
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1194	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1195	"set the viewShape to aForm"
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	viewShape := aForm.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1198	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1199	device setWindowShape:(aForm id) in:drawableId
135 cf8e46015072 . claus parents: diff changeset	1200	]
269 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
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1203	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1204
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1205	heightOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1206	"return the height of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1207	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1208	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	1209	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	1210	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	1211	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	1212	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	1213	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	1214	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	1215	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	1216	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	1217	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1218
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1219	^ self innerHeight max:(self maxSubViewBottom)
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1220	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1221
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1222	widthOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1223	"return the width of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1224	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1225	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	1226	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	1227	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	1228	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	1229	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	1230	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	1231	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	1232	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	1233	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	1234	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1235
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1236	^ self innerWidth max:(self maxSubViewRight)
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1237
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1238	"Modified: 8.2.1996 / 20:01:50 / cg"
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	1239	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1240
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1241	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1242
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1243	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1244	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1245	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1246
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1247	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1248	insets := Array new:4.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1249	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1250	insets atAllPut:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1251
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1252	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1253	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1254	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1255	"/ ] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1256	self superViewChangedSize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1257	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1258	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1259
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1260	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1261	"return the y position of the actual bottom edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1262
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1263	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1264	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1265
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1266	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1267	"set the corners y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1268
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1269	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1270	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1271
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1272	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1273	"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	1274	negative to the bottom"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1275
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1276	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1277	^ insets at:4
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1278	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1279
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1280	bottomInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1281	"set the inset of the bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1282	positive is to the top (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1283	negative to the bottom (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1285	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1286	insets := Array with:0 with:0 with:0 with:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1287	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1288	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1289
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1290	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1291	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1292	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1293	"/ ] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1294	self superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1295	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1296	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1297
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1298	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1299	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1300
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1301	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1302	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1303
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1304	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1305	"move the receiver so that newCenter, aPoint becomes the center point"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1306
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1307	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1308	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1309
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1310	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1311	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1312	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1313	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	1314	Returns the corner point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1315
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1316	\|org newCorner newExt x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1317
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1318	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1319	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1320	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1321	layout notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1322	^ (layout rectangleRelativeTo:(superView viewRectangle)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1323	preferred:(self preferredBounds)) corner rounded
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1324	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1325
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1326	(cornerRule notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1327	newCorner := cornerRule value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1328	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1329	allow return of relative values ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1330	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1331	x := newCorner x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1332	y := newCorner y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1333	x isNil ifTrue:[x := self corner x].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1334	y isNil ifTrue:[y := self corner y].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1335	((x isInteger not) or:[y isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1336	newCorner := self cornerFromRelativeCorner:x@y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1337	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1338	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1339	(relativeCorner notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1340	newCorner := self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1341	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1342	org := self computeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1343	(extentRule notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1344	newExt := extentRule value
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1345	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1346	(relativeExtent notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1347	newExt := self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1348	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1349	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1350	newCorner := org + newExt
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1351	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1352	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1353	^ newCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1354	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1355
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1356	computeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1357	"compute my extent; if I have a layoutObject, a relative extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1358	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1359	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1360	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1361	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1362	Returns the extent in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1363
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1364	\|newOrg newExt newCorner x y\|
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	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1368	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1369	layout notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1370	^ (layout rectangleRelativeTo:(superView viewRectangle)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1371	preferred:(self preferredBounds)) extent rounded
135 cf8e46015072 . claus parents: diff changeset	1372	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1373
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1374	(cornerRule notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1375	newCorner := cornerRule value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1376	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1377	allow return of relative values ...
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	x := newCorner x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1380	y := newCorner y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1381	x isNil ifTrue:[x := self corner x].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1382	y isNil ifTrue:[y := self corner y].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1383	((x isInteger not) or:[y isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1384	newCorner := self cornerFromRelativeCorner:x@y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1385	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1386	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1387	(relativeCorner notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1388	newCorner := self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1389	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1390	(extentRule notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1391	newExt := extentRule value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1392	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1393	allow return of relative values ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1394	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1395	x := newExt x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1396	y := newExt y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1397	x isNil ifTrue:[x := width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1398	y isNil ifTrue:[y := height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1399	((x isInteger not) or:[y isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1400	newExt := self extentFromRelativeExtent:x@y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1401	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1402	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1403	(relativeExtent notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1404	newExt := self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1405	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1406	newExt := (width @ height).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1407	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1408	].
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1412	newCorner notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1413	newOrg := self computeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1414	^ newCorner - newOrg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1415	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1416	^ newExt.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1417	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1418
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1419	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1420	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1421	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1422	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	1423	Returns the origin point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1424
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1425	\|newOrg x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1426
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1427	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1428	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1429	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1430	layout notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1431	^ (layout rectangleRelativeTo:(superView viewRectangle)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1432	preferred:(self preferredBounds)) origin rounded
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1433	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1434
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1435	(originRule notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1436	newOrg := originRule value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1437	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1438	allow return of relative values ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1439	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1440	x := newOrg x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1441	y := newOrg y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1442	x isNil ifTrue:[x := self origin x].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1443	y isNil ifTrue:[y := self origin y].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1444	((x isInteger not) or:[y isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1445	newOrg := self originFromRelativeOrigin:x@y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1446	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1447	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1448	(relativeOrigin notNil) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1449	newOrg := self originFromRelativeOrigin:relativeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1450	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1451	^ (left @ top).
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	^ newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1455	!
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	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1458	"return the lower right corner-point (in pixels)"
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	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1461	^ (left + width - 1) @ (top + height - 1)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1462
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1463	"Modified: 31.8.1995 / 16:51:40 / claus"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1466	corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1467	"set the views corner;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1468	the corner argument may be:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1469	a point
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1470	where integer fields mean 'pixel-values'
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1471	and float values mean 'relative-to-superview'
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1472	and nil means 'take current value';
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1473	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1474	Please migrate to use layoutObjects, if possible."
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	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1477
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1478	corner isBlock ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1479	cornerRule := corner.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1480	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1481	pixelCorner := corner value
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1482	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1483	extentChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1484	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1485	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1486	x := corner x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1487	y := corner y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1488	x isNil ifTrue:[x := self corner x].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1489	y isNil ifTrue:[y := self corner y].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1490	c := x @ y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1491	((x isInteger not) or:[y isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1492	relativeCorner := c.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1493	pixelCorner := self cornerFromRelativeCorner.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1494	pixelCorner isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1495	extentChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1496	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1497	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1498	pixelCorner := c
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1499	]
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1502	pixelCorner notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1503	self pixelCorner:pixelCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1504	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1505	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1506
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1507	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1508	"set the views extent;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1509	extent may be:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1510	a point
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1511	where integer fields mean 'pixel-values'
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1512	and float values mean 'relative-to-superview'
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1513	and nil means 'leave current value';
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1514	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1515	Be careful when using relative extents: rounding errors may
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1516	accumulate. Better use origin/corner.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1517	Best: migrate to use layour objects."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1518
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1519	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1520
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1521	extent isBlock ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1522	extentRule := extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1523	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1524	pixelExtent := extent value
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1525	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1526	extentChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1527	]
135 cf8e46015072 . claus parents: diff changeset	1528	] ifFalse:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1529	w := extent x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1530	h := extent y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1531	w isNil ifTrue:[w := width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1532	h isNil ifTrue:[h := height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1533	e := w@h.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1534	((w isInteger not) or:[h isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1535	relativeExtent := e.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1536	pixelExtent := self extentFromRelativeExtent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1537	pixelExtent isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1538	extentChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1539	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1540	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1541	pixelExtent := e
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1542	]
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	pixelExtent notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1545	self pixelExtent:pixelExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1546	]
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1549	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1550	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1551	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1552	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1553	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	1554	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1555
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1556	^ here layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1557	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1558
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1559	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1560	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1561	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1562	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1563	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	1564	notice."
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	here layout:aLayoutObject
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	height:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1570	"set the views height in pixels"
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 extent:(width @ 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	heightIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1576	"return my height including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1577	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1578	while #height returns the height as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1579
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1580	^ height + (2*borderWidth)
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	horizontalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1584	"set the insets of the left/right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1585	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1586
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1587	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1588	insets := Array with:0 with:0 with:0 with:0
135 cf8e46015072 . claus parents: diff changeset	1589	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1590	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1591	insets at:3 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:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1597	self superViewChangedSize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1598	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1599	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1600
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1601	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1602	"return the height of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1603
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1604	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1605	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1606	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1607
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1608	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1609	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1610	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1611
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1612	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1613	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1614
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1615	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1616	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1617	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1618	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1619
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1620	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1621	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1622
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1623	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1624	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1625	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1626	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1627
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1628	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1629	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1630
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1631	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1632	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1633
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1634	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1635	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1636	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1637
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1638	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1639	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1640	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1641
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1642	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1643	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	1644
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1645	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1646	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1647	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1648
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1649	self allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1650	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1651
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1652	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1653	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1654	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1655	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1656	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1657	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1658	since the above listed instance variables will vanish."
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	^ layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1661	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1662
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1663	layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1664	"set the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1665	Currently, this is almost nowhere used but views will be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1666	incrementally changed to use this new geometry management."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1667
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1668	layout := aLayoutObject.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1669	superView isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1670	originChanged := cornerChanged := extentChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1671	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1672	self superViewChangedSize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1673	]
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	"Modified: 19.9.1995 / 16:17:25 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1676	!
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	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1679	"return the x position of the left border (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1680
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1681	^ left
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1684	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1685	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1686
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1687	self origin:(aNumber @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1688	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1689
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1690	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1691	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1692
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1693	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1694	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1695
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1696	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1697	"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	1698	negative to the left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1699
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1700	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1701	^ insets at:1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1702	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1703
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1704	leftInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1705	"set the inset of the left edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1706	positive is to the right (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1707	negative to the left (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1708
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1709	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1710	insets := Array with:0 with:0 with:0 with:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1711	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1712	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1713
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1714	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1715	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1716	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1717	"/ ] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1718	self superViewChangedSize.
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1722	makeFullyVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1723	"make sure, that the view is fully visible by shifting it
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1724	into the visible screen area if nescessary.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1725	This method will be moved to StandardSystemView ..."
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	\|devBot devRight newTop newLeft\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1728
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1729	newTop := top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1730	newLeft := left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1731
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1732	((top + height) > (devBot := device height)) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1733	newTop := devBot - height
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1734	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1735	((left + width) > (devRight := device width)) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1736	newLeft := devRight - width
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1737	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1738	(newTop < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1739	newTop := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1740	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1741	(newLeft < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1742	newLeft := 0
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	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1745	self origin:newLeft @ newTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1746	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1747	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1748
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1749	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1750	"return the origin (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1751
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1752	^ left@top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1753	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1754
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1755	origin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1756	"set the views origin;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1757	origin may be:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1758	a point
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1759	where integer fields mean 'pixel-values'
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1760	and float values mean 'relative-to-superview'
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1761	and nil means 'take current value';
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1762	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1763	Please migrate to use layout objects."
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	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1766
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1767	origin isBlock ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1768	originRule := origin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1769	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1770	pixelOrigin := origin value
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1771	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1772	originChanged := true
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	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1775	o := origin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1776	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1777	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1778	newLeft isNil ifTrue:[newLeft := left].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1779	newTop isNil ifTrue:[newTop := top].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1780	o := newLeft @ newTop.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1781	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1782	relativeOrigin := o.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1783	pixelOrigin := self originFromRelativeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1784	pixelOrigin isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1785	originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1786	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1787	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1788	pixelOrigin := o
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1789	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1790	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1791	pixelOrigin notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1792	self pixelOrigin:pixelOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1793	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1794	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1795
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1796	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1797	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1798
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1799	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1800
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1801	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1802
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1803	origin isBlock ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1804	corner isBlock ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1805	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1806	newLeft isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1807	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1808	newTop isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1809	newRight := corner x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1810	newRight isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1811	newBot := corner y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1812	newBot isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1813	self pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1814	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1815	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1816	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1817	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1818	]
135 cf8e46015072 . claus parents: diff changeset	1819	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1820	self origin:origin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1821	self corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1822	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1823
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1824	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1825	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1826
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1827	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1828
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1829	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1831	origin isBlock ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1832	extent isBlock ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1833	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1834	newLeft isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1835	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1836	newTop isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1837	newWidth := extent x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1838	newWidth isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1839	newHeight := extent y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1840	newHeight isInteger ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1841	self pixelOrigin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1842	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1843	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1844	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1845	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1846	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1847	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1848	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1849	self origin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1850	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1851
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1852	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1853	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1854	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1855	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	1856
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1857	\|currentView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1858	org "{ Class: Point }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1859	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1860	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1861
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1862	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1863	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1864	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1865	[currentView notNil] whileTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1866	(currentView == aView) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1867	^ (sumX @ sumY)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1868	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1869	org := currentView origin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1870	sumX := sumX + org x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1871	sumY := sumY + org y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1872	currentView := currentView superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1873	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1874	(aView isNil or:[aView == RootView]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1875	"return relative to screen ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1876	^ (sumX @ sumY)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1877	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1878	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1879
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1880	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1881	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1882
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1883	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1884	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1885	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	1886	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	1887	top openAndWait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1888	Transcript show:'button in top:'; showCr:(sub2 originRelativeTo:top).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1889	Transcript show:'button on screen:'; showCr:(sub2 originRelativeTo:nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1890	"
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	relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1894	"return the relative corner or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1895
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1896	^ relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1897	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1898
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1899	relativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1900	"set the relative corner"
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	relativeCorner := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1903	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1904
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1905	relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1906	"return the relative extent or nil"
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	^ relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1909	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1910
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1911	relativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1912	"set the relative extent"
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	relativeExtent := aPoint
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	relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1918	"return the relative origin or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1919
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1920	^ relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1921	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1923	relativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1924	"set the relative origin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1925
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1926	relativeOrigin := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1927	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1928
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1929	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1930	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1931
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1932	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1933
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1934	"Modified: 31.8.1995 / 19:31:10 / claus"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1937	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1938	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1940	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1941	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1942
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1943	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1944	"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	1945	negative to the right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1946
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1947	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1948	^ insets at:3
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1949	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1950
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1951	rightInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1952	"set the inset of the right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1953	positive is to the left (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1954	negative to the right (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1955
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1956	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1957	insets := Array with:0 with:0 with:0 with:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1958	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1959	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1960
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1961	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1962	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1963	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1964	"/ ] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1965	self superViewChangedSize.
135 cf8e46015072 . claus parents: diff changeset	1966	"/ ]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1967	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1968
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1969	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1970	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1971	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1972	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	1973	true. Currently, only supported by Labels.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1974	This does NOT prevent the window manager from resizing the view,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1975	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1976	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1977
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1978	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1979	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1980
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1981	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1982	"return the y position of the top border"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1983
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1984	^ top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1985	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1986
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1987	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1988	"set the y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1989
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1990	self origin:(left @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1991	!
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	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1994	"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	1995	negative to the top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1996
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1997	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1998	^ insets at:2
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1999	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2000
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2001	topInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2002	"set the inset of the top edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2003	positive is to the bottom (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2004	negative to the top (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2005
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2006	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2007	insets := Array with:0 with:0 with:0 with:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2008	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2009	insets at:2 put:aNumber.
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	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2012	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2013	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2014	"/ ] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2015	self superViewChangedSize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2016	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2017	!
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	verticalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2020	"set the insets of the top/bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2021	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2022
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2023	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2024	insets := Array with:0 with:0 with:0 with:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2025	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2026	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2027	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2028
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2029	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2030	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2031	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2032	"/ ] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2033	self superViewChangedSize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2034	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2035	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2036
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2037	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2038	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2039	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	2040	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2041	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	2042	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2043	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	2044	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	2045	(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	2046
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2047	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2048
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2049	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2050	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2051
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2052	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2053	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2054
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2055	width:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2056	"set the views width in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2057
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2058	self extent:(aNumber @ height)
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2061	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2062	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2063	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2064	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2065
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2066	^ width + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2067	! !
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	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2070
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2071	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2072	"bring to back"
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	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2075	device lowerWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2076
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2077	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2078	Transcript topView lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2079	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2080	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2081
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2082	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2083	"bring to front"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2084
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2085	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2086	device raiseWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2087
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	Transcript topView raise
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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2092
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2093	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2094	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2095
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2096	^ subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2097	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2098
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2099	subViews:aListOfViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2100	"set the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2101
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2102	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	2103	subViews notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2104	subViews do:[:view \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2105	view superView:self
135 cf8e46015072 . claus parents: diff changeset	2106	]
cf8e46015072 . claus parents: diff changeset	2107	]
cf8e46015072 . claus parents: diff changeset	2108	!
cf8e46015072 . claus parents: diff changeset	2109
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2110	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2111	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2112
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2113	^ superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2114	!
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	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2117	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2118
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2119	superView := aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2120	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2121
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2122	topView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2123	"return the topView - thats the one with no superview"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2124
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2125	\|v\|
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	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2128	[v notNil] whileTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2129	v superView isNil ifTrue:[^ v].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2130	v := v superView
135 cf8e46015072 . claus parents: diff changeset	2131	].
cf8e46015072 . claus parents: diff changeset	2132
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2133	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2134	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2135
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2136	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2137
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2138	menuHolder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2139	"who has the menu ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2140	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2141
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2142	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2143	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2144
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2145	menuMessage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2146	"Return the symbol sent to myself to aquire the menu"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2147
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2148	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2149	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2151	menuPerformer
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2152	"who should perform the menu actions ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2153	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2154
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2155	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2156	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2157
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2158	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2159	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2160	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2161	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2162	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2163	controller."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2164
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2165	\|sym menuHolder\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2166
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2167	"/ middleButtonMenu notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2168	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2169	"/ "/ has been assigned a static middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2170	"/ "/ (or a cached menu)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2171	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2172	"/ ^ middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2173	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2174
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2175	menuHolder := self menuHolder.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2176
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2177	menuHolder notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2178	sym := self menuMessage.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2179	sym notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2180	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2181	mhmh - for backward compatibility, try to ask
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2182	the model first, then use the views menu.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2183	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2184	(menuHolder respondsTo:sym) ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2185	(self respondsTo:sym) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2186	menuHolder := self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2187	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2188	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2189	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2190	ask the menuHolder for the menu
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	^ menuHolder perform:sym.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2193	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2194	].
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	^ nil
135 cf8e46015072 . claus parents: diff changeset	2197	! !
cf8e46015072 . claus parents: diff changeset	2198
cf8e46015072 . claus parents: diff changeset	2199	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	2200
cf8e46015072 . claus parents: diff changeset	2201	bitGravity
cf8e46015072 . claus parents: diff changeset	2202	"return the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2203	when the the view is resized."
cf8e46015072 . claus parents: diff changeset	2204
cf8e46015072 . claus parents: diff changeset	2205	^ bitGravity
cf8e46015072 . claus parents: diff changeset	2206	!
cf8e46015072 . claus parents: diff changeset	2207
cf8e46015072 . claus parents: diff changeset	2208	bitGravity:gravity
cf8e46015072 . claus parents: diff changeset	2209	"set the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2210	when the view is resized."
cf8e46015072 . claus parents: diff changeset	2211
cf8e46015072 . claus parents: diff changeset	2212	bitGravity ~~ gravity ifTrue:[
cf8e46015072 . claus parents: diff changeset	2213	bitGravity := gravity.
cf8e46015072 . claus parents: diff changeset	2214	drawableId notNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	2215	device setBitGravity:gravity in:drawableId
cf8e46015072 . claus parents: diff changeset	2216	]
cf8e46015072 . claus parents: diff changeset	2217	]
cf8e46015072 . claus parents: diff changeset	2218	!
cf8e46015072 . claus parents: diff changeset	2219
153 c56277fa4865 . claus parents: 151 diff changeset	2220	clipRect:aRectangle
c56277fa4865 . claus parents: 151 diff changeset	2221	"set the clipping rectangle for drawing (in logical coordinates);
c56277fa4865 . claus parents: 151 diff changeset	2222	a nil argument turn off clipping (i.e. whole view is drawable).
c56277fa4865 . claus parents: 151 diff changeset	2223	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	2224
c56277fa4865 . claus parents: 151 diff changeset	2225	\|x y w h\|
c56277fa4865 . claus parents: 151 diff changeset	2226
c56277fa4865 . claus parents: 151 diff changeset	2227	aRectangle isNil ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2228	clipRect isNil ifTrue:[^ self].
c56277fa4865 . claus parents: 151 diff changeset	2229	gcId notNil ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2230	device noClipIn:gcId
c56277fa4865 . claus parents: 151 diff changeset	2231	]
c56277fa4865 . claus parents: 151 diff changeset	2232	] ifFalse:[
c56277fa4865 . claus parents: 151 diff changeset	2233	clipRect notNil ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2234	(clipRect = aRectangle) ifTrue:[^ self]
c56277fa4865 . claus parents: 151 diff changeset	2235	].
c56277fa4865 . claus parents: 151 diff changeset	2236	gcId notNil ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2237	x := aRectangle left.
c56277fa4865 . claus parents: 151 diff changeset	2238	y := aRectangle top.
c56277fa4865 . claus parents: 151 diff changeset	2239	w := aRectangle width.
c56277fa4865 . claus parents: 151 diff changeset	2240	h := aRectangle height.
c56277fa4865 . claus parents: 151 diff changeset	2241	transformation notNil ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2242	x := transformation applyToX:x.
c56277fa4865 . claus parents: 151 diff changeset	2243	y := transformation applyToY:y.
c56277fa4865 . claus parents: 151 diff changeset	2244	w := transformation applyScaleX:w.
c56277fa4865 . claus parents: 151 diff changeset	2245	h := transformation applyScaleY:h.
c56277fa4865 . claus parents: 151 diff changeset	2246	].
c56277fa4865 . claus parents: 151 diff changeset	2247	(x isMemberOf:SmallInteger) ifFalse:[
c56277fa4865 . claus parents: 151 diff changeset	2248	w := w + (x - x truncated).
c56277fa4865 . claus parents: 151 diff changeset	2249	x := x truncated
c56277fa4865 . claus parents: 151 diff changeset	2250	].
c56277fa4865 . claus parents: 151 diff changeset	2251	(y isMemberOf:SmallInteger) ifFalse:[
c56277fa4865 . claus parents: 151 diff changeset	2252	h := h + (y - y truncated).
c56277fa4865 . claus parents: 151 diff changeset	2253	y := y truncated
c56277fa4865 . claus parents: 151 diff changeset	2254	].
c56277fa4865 . claus parents: 151 diff changeset	2255	(w isMemberOf:SmallInteger) ifFalse:[
c56277fa4865 . claus parents: 151 diff changeset	2256	w := w truncated + 1
c56277fa4865 . claus parents: 151 diff changeset	2257	].
c56277fa4865 . claus parents: 151 diff changeset	2258	(h isMemberOf:SmallInteger) ifFalse:[
c56277fa4865 . claus parents: 151 diff changeset	2259	h := h truncated + 1
c56277fa4865 . claus parents: 151 diff changeset	2260	].
c56277fa4865 . claus parents: 151 diff changeset	2261	x < margin ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2262	x := margin.
c56277fa4865 . claus parents: 151 diff changeset	2263	].
c56277fa4865 . claus parents: 151 diff changeset	2264	y < margin ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2265	y := margin.
c56277fa4865 . claus parents: 151 diff changeset	2266	].
c56277fa4865 . claus parents: 151 diff changeset	2267	x + w - 1 >= (width-margin) ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2268	w := width - margin - x
c56277fa4865 . claus parents: 151 diff changeset	2269	].
c56277fa4865 . claus parents: 151 diff changeset	2270	y + h - 1 >= (height-margin) ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2271	h := height - margin - y
c56277fa4865 . claus parents: 151 diff changeset	2272	].
c56277fa4865 . claus parents: 151 diff changeset	2273	device setClipX:x y:y width:w height:h in:gcId
c56277fa4865 . claus parents: 151 diff changeset	2274	]
c56277fa4865 . claus parents: 151 diff changeset	2275	].
c56277fa4865 . claus parents: 151 diff changeset	2276	clipRect := aRectangle
c56277fa4865 . claus parents: 151 diff changeset	2277	!
c56277fa4865 . claus parents: 151 diff changeset	2278
c56277fa4865 . claus parents: 151 diff changeset	2279	fullName
c56277fa4865 . claus parents: 151 diff changeset	2280	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	2281
c56277fa4865 . claus parents: 151 diff changeset	2282	superView notNil ifTrue:[
c56277fa4865 . claus parents: 151 diff changeset	2283	^ superView fullName , '.' , name
c56277fa4865 . claus parents: 151 diff changeset	2284	].
c56277fa4865 . claus parents: 151 diff changeset	2285	^ name
c56277fa4865 . claus parents: 151 diff changeset	2286	!
c56277fa4865 . claus parents: 151 diff changeset	2287
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2288	inputOnly
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2289	"return true, if this view is an input-only view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2290	input only views are transparent and can be layed on top of a view to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2291	catch its input"
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	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2294	!
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	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2297	"return my name component to be used for resource-access"
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	^ name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2300	!
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	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2303	"set my name component to be used for resource-access"
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	name := aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2306	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2307
153 c56277fa4865 . claus parents: 151 diff changeset	2308	processName
c56277fa4865 . claus parents: 151 diff changeset	2309	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	2310
c56277fa4865 . claus parents: 151 diff changeset	2311	^ self name
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2312	!
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	styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2315	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2316	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2317	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2318
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2319	^ styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2320
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2321	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2322	!
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	viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2325	"return the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2326	when the superView is resized."
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	^ viewGravity
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	viewGravity:gravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2332	"set the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2333	when the superView is resized."
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	viewGravity ~~ gravity ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2336	viewGravity := gravity.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2337	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2338	device setWindowGravity:gravity in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2339	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2340	]
140 0db355079dc4 . claus parents: 138 diff changeset	2341	! !
0db355079dc4 . claus parents: 138 diff changeset	2342
0db355079dc4 . claus parents: 138 diff changeset	2343	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	2344
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2345	aspect:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2346	"ST-80 style updating: If a views aspectSymbol is nonNil,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2347	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2348	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2349
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2350	self aspectMessage:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2351	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2352
140 0db355079dc4 . claus parents: 138 diff changeset	2353	controller
0db355079dc4 . claus parents: 138 diff changeset	2354	"return the controller. For non MVC views, return nil"
0db355079dc4 . claus parents: 138 diff changeset	2355
0db355079dc4 . claus parents: 138 diff changeset	2356	^ controller
0db355079dc4 . claus parents: 138 diff changeset	2357	!
0db355079dc4 . claus parents: 138 diff changeset	2358
0db355079dc4 . claus parents: 138 diff changeset	2359	controller:aController
0db355079dc4 . claus parents: 138 diff changeset	2360	"set the controller"
0db355079dc4 . claus parents: 138 diff changeset	2361
0db355079dc4 . claus parents: 138 diff changeset	2362	controller := aController.
0db355079dc4 . claus parents: 138 diff changeset	2363	controller notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	2364	controller view:self.
135 cf8e46015072 . claus parents: diff changeset	2365	]
cf8e46015072 . claus parents: diff changeset	2366	!
cf8e46015072 . claus parents: diff changeset	2367
140 0db355079dc4 . claus parents: 138 diff changeset	2368	model
135 cf8e46015072 . claus parents: diff changeset	2369	^ nil
cf8e46015072 . claus parents: diff changeset	2370	!
cf8e46015072 . claus parents: diff changeset	2371
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2372	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2373	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2374
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2375	^ windowGroup
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
140 0db355079dc4 . claus parents: 138 diff changeset	2378	windowGroup:aGroup
0db355079dc4 . claus parents: 138 diff changeset	2379	"set the window group."
0db355079dc4 . claus parents: 138 diff changeset	2380
0db355079dc4 . claus parents: 138 diff changeset	2381	windowGroup := aGroup
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2384	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2385
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2386	maxSubViewBottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2387	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2388	"/ ^ 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	2389	^ 0
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2392	maxSubViewRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2393	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2394	"/ ^ 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	2395	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2396	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2397
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2398	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2399	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2400
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2401	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2402	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2403	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2404
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2405	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2406	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2407
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2408	\|p\|
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	p := aPoint negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2411	transformation isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2412	transformation := WindowingTransformation scale:1 translation:p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2413	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2414	transformation translation:p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2415	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2416	clipRect notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2417	self setInnerClip.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2418	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2419	!
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	transformation
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2422	"return the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2423
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2424	\|vP org\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2425
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2426	transformation isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2427	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2428	fake a transformation, if I have a non-nil window
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	window notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2431	superView isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2432	org := 0 @ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2433	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2434	org := self origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2435	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2436	vP := org extent:(self extent).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2437	^ WindowingTransformation window:window viewport:vP
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2438	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2439	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2440	^ transformation
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2441	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2442
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2443	viewOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2444	"return the viewOrigin; thats the coordinate of the contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2445	which is shown topLeft in the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2446	(i.e. the origin of the visible part of the contents)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2447
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2448	transformation isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2449	^ 0@0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2450	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2451	^ transformation translation negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2452	!
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	xOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2455	"return the x coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2456	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2457
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2458	^ self viewOrigin x
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2461	yOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2462	"return the y coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2463	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2464
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2465	^ self viewOrigin y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2466	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2467
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2468	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2469
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2470	beInvisible
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2471	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2472	realized ifTrue:[
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	2473	self unrealize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2474	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2475
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2476	"Created: 22.9.1995 / 15:29:01 / claus"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2477	"Modified: 17.1.1996 / 11:41:25 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2478	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2479
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2480	beVisible
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2481	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2482	realized ifFalse:[
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	2483	self realize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2484	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2485
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2486	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2487	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2488
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2489	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2490	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2491	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	2492	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2493
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2494	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2495	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2496	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2497
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2498	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2499	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2500	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2501	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2502
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2503	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2504	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2505
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2506	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2507	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2508
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2509	"Created: 22.9.1995 / 15:50:33 / claus"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2510	"Modified: 17.1.1996 / 11:41:16 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2511	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2512
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2513	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2514	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2515	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2516
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2517	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2518	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2519
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2520	"Modified: 17.1.1996 / 11:44:47 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2521	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2522
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2523	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2524	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2525	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2526
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2527	self obsoleteMethodWarning:'use #beVisible / #beInvisible'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2528	hiddenOnRealize := aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2529
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2530	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2531	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2532
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2533	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2534	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2535	be mapped automatically when the superview is realized.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2536	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2537	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2538
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2539	hiddenOnRealize := aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2540	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2541
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2542	isHiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2543	"return true, if the receiver will NOT be mapped when
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2544	realized. False otherwise.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2545	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2546	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2547
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2548	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2549	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2550
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2551	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2552	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2553	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2554
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2555	^ shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2556	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	2557
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2558	!SimpleView methodsFor:'adding & removing components'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2559
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2560	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2561	"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	2562	subComponents."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2563
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2564	self addComponent:aComponent
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2567	add:aComponent in:aRectangleOrLayoutFrame
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2568	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2569	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	2570	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2571	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2572
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2573	"/ old code:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2574	"/ \|origin corner l\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2575	"/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2576	"/ origin := aRectangleOrLayoutFrame origin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2577	"/ origin := origin x asFloat @ origin y asFloat.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2578	"/ corner := aRectangleOrLayoutFrame corner.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2579	"/ corner := corner x asFloat @ corner y asFloat.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2580	"/ aComponent origin:origin corner:corner.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2581	"/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2582	"/ (aRectangleOrLayoutFrame isMemberOf:Rectangle) ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2583	"/ aComponent leftInset:aRectangleOrLayoutFrame leftOffset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2584	"/ aComponent rightInset:aRectangleOrLayoutFrame rightOffset negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2585	"/ aComponent topInset:aRectangleOrLayoutFrame topOffset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2586	"/ aComponent bottomInset:aRectangleOrLayoutFrame bottomOffset negated.
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2589	"/ new (being validated):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2590
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2591	\|l\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2592
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2593	(aRectangleOrLayoutFrame isMemberOf:Rectangle) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2594	l := aRectangleOrLayoutFrame asLayout.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2595	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2596	l := aRectangleOrLayoutFrame
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2599	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2600	"/ aComponent layout:l.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2601	aComponent geometryLayout:l.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2602
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2603	self addComponent:aComponent
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2606	addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2607	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2608	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2610	aComponent isView ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2611	self addSubView:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2612	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2613	components isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2614	components := OrderedCollection new
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2615	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2616	components add:aComponent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2617	aComponent setParentViewIn:self
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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2620
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2621	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2622	"add a view to the collection of subviews"
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	subViews isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2625	subViews := OrderedCollection with:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2626	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2627	subViews add:newView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2628	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2629	self setParentViewIn:newView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2630	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2631
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2632	addSubView:newView after:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2633	"add a view to the collection of subviews after another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2634	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	2635	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2636
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2637	subViews isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2638	subViews := OrderedCollection with:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2639	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2640	aView isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2641	subViews add:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2642	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2643	subViews add:newView after:aView.
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	self setParentViewIn:newView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2647	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2648
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2649	addSubView:newView before:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2650	"add a view to the collection of subviews before another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2651	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	2652	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2653
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2654	subViews isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2655	subViews := OrderedCollection with:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2656	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2657	aView isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2658	subViews addFirst:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2659	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2660	subViews add:newView before:aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2661	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2662	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2663	self setParentViewIn:newView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2664	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2665
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2666	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2667	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2668
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2669	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2670	self add:aView in:bounds.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2671	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2672
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2673	addSubView:aView viewport:aRectangle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2674	"ST-80 V2.x compatibility:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2675	Adds aView to the views list of subviews and uses the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2676	existing subviews window and the new viewport to position it.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2677	This method may be removed in future versions."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2678
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2679	self addSubView:aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2680	aView viewport:aRectangle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2681	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2683	addSubView:aView window:aWindowRectangle viewport:aViewportRectangle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2684	"ST-80 V2.x compatibility:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2685	Adds aView to the views list of subviews and uses
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2686	aWindowRectangle and aViewportRectangle to position it.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2687	This method may be removed in future versions."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2688
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2689	self addSubView:aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2690	aView window:aWindowRectangle viewport:aViewportRectangle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2691	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2692
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2693	component:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2694	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2695	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2696
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2697	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2698	aComponent isView ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2699	self addSubView:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2700	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2701	components := OrderedCollection with:aComponent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2702	aComponent setParentViewIn:self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2703	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2704	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2705
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2706	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2707	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2708
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2709	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2710	subViews copy do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2711	aSubView destroy.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2712	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2713	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2714
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2715	"Modified: 5.9.1995 / 22:35:36 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2716	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2717
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2718	removeComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2719	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2720	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2721
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2722	aComponent isView ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2723	self removeSubView:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2724	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2725	components isNil ifTrue:[^self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2726	components remove:aComponent ifAbsent:[].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2727	aComponent parent:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2728	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2729	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2730
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2731	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2732	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2733
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2734	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2735	subViews remove:aView ifAbsent:[nil].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2736	(subViews size == 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2737	subViews := nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2738	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2739	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2740	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2741
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2742	setParentViewIn:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2743	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2744
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2745	aView superView:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2746	(aView device ~~ device) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2747	'VIEW: warning subview (' errorPrint. aView class name errorPrint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2748	') has different device than me (' errorPrint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2749	self class name errorPrint. ').' errorPrintNL.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2750	aView device:device
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	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2753
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2754	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2755
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2756	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2757	"an update request"
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	aspect == #sizeOfView ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2760	"one of the views we depend on changed its size"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2761	^ self superViewChangedSize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2762	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2763	^super update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2764	! !
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	!SimpleView methodsFor:'copying'!
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	shallowCopyForFinalization
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2769	"redefined for faster creation of finalization copies
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2770	(only device, gcId and drawableId are needed)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2772	\|aCopy\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2773
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2774	aCopy := DeviceViewHandle basicNew.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2775	aCopy setDevice:device id:drawableId gcId:gcId.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2776	^ aCopy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2777	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2778
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2779	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2780
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2781	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2782	"evaluate some time consuming block, while doing this,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2783	show a spinning wheel cursor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2784
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2785	\|ok bitmaps cursors mask process oldCursor\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2786
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2787	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2788
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2789	ok := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2790	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2791	collect:[:name \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2792	\|f\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2793
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2794	f := Form fromFile:(name , '.xbm').
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2795	f isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2796	('no bitmap file: ' , name , '.xbm') errorPrintNL.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2797	ok := false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2798	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2799	f
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2800	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2801
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2802	mask := Form fromFile:'wheelm.xbm'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2803	mask isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2804	('no bitmap file: ' , mask , '.xbm') errorPrintNL.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2805	ok := false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2806	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2807
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2808	ok ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2809	self cursor:Cursor wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2810	aBlock valueNowOrOnUnwindDo:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2811	self cursor:oldCursor
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	] ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2814	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2815	maskForm:mask
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2816	hotX:8
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2817	hotY:8) on:device].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2819	process := [
371 cc32d8f8bc8d use new Delay-wait Claus Gittinger <cg@exept.de> parents: 370 diff changeset	2820	Delay waitForSeconds:0.25.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2821	[true] whileTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2822	cursors do:[:curs \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2823	self cursor:curs.
371 cc32d8f8bc8d use new Delay-wait Claus Gittinger <cg@exept.de> parents: 370 diff changeset	2824	Delay waitForSeconds:0.05
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2825	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2826	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2827	] fork.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2828
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2829	Processor activeProcess priority:7.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2830	aBlock valueNowOrOnUnwindDo:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2831	Processor activeProcess priority:8.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2832	process terminate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2833	self cursor:oldCursor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2834	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2835	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2836
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2837	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2838	View new realize showBusyWhile:[10 timesRepeat:[3000 factorial]]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2839	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2840	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2841
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2842	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2843
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2844	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2845	"draw bottom 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2846
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2847	self drawBottomEdgeLevel:level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2848	shadow:shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2849	light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2850	halfShadow:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2851	halfLight:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2852	style:nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2853	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2855	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	2856	\|botFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2857	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2858	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2859
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2860	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2861	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2862
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2863	(count < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2864	botFg := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2865	count := count negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2866	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2867	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2868	botFg := halfShadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2869	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2870	botFg := shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2871	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2872	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2873	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2874	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2875
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2876	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2877	0 to:(count - 1) do:[:i \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2878	b := height - 1 - i.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2879	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2880	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2882	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2883	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2884	super paint:shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2885	super displayDeviceLineFromX:1 y:b toX:r y:b.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2886	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2887	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2888
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2889	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2890	"draw all of my 3D edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2891
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2892	self drawEdgesForX:0 y:0 width:width height:height level:level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2893	shadow:shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2894	light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2895	halfShadow:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2896	halfLight:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2897	style:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2898	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2899
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2900	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2901	"draw 3D edges into a rectangle"
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	self drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2904	shadow:shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2905	light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2906	halfShadow:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2907	halfLight:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2908	style:nil
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	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2912	shadow:shadowColor light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2913	halfShadow:halfShadowColor halfLight:halfLightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2914	style:edgeStyle
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	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2917
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2918	\|topLeftFg botRightFg topLeftHalfFg botRightHalfFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2919	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2920	r "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2921	b "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2922	xi "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2923	yi "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2924	run paint\|
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	count := l.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2927	(count < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2928	topLeftFg := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2929	botRightFg := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2930	topLeftHalfFg := halfShadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2931	botRightHalfFg := halfLightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2932	count := count negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2933	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2934	topLeftFg := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2935	botRightFg := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2936	topLeftHalfFg := halfLightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2937	botRightHalfFg := halfShadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2938	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2939	topLeftHalfFg isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2940	topLeftHalfFg := topLeftFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2941	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2942	botRightHalfFg isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2943	botRightHalfFg := botRightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2944	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2945
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2946	r := x + w - 1. "right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2947	b := y + h - 1. "bottom"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2948
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2949	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2950
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2951	"top and left edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2952	((edgeStyle == #soft) and:["l" count > 0]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2953	paint := topLeftHalfFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2954	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2955	paint := topLeftFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2956	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2957	super paint:paint.
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	0 to:(count - 1) do:[:i \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2960	run := y + i.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2961	super displayDeviceLineFromX:x y:run toX:r y:run. "top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2962	run := x + i.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2963	super displayDeviceLineFromX:run y:y toX:run y:b "left"
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	(edgeStyle == #soft) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2966	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2967	super paint:topLeftFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2968	super displayDeviceLineFromX:x y:y toX:r y:y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2969	super displayDeviceLineFromX:x y:y toX:x y:b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2970	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2971	(l > 2) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2972	super paint:Black.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2973	super displayDeviceLineFromX:x y:y toX:r y:y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2974	super displayDeviceLineFromX:x y:y toX:x y:b.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2975	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2976	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2977
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2978	xi := x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2979	yi := y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2980
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2981	"/ does not look good
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2982	"/ style == #st80 iftrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2983	"/ yi := yi + 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2984	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2985
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2986	"bottom and right edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2987	(edgeStyle == #soft "new:" and:[count > 1]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2988	paint := botRightHalfFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2989	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2990	paint := botRightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2991	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2992
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2993	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2994	0 to:(count - 1) do:[:i \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2995	run := b - i.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2996	super displayDeviceLineFromX:xi-1 y:run toX:r y:run. "bottom"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2997	run := r - i.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2998	super displayDeviceLineFromX:run y:yi-1 toX:run y:b. "right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2999	xi := xi + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3000	yi := yi + 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3001	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3002	((edgeStyle == #soft) and:[l > 1]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3003	super paint:Black "shadowColor".
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3004	super displayDeviceLineFromX:(x + (1 - 1)) y:b toX:r y:b.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3005	super displayDeviceLineFromX:r y:(y + (1 - 1)) toX:r y:b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3006	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3007	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3008
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3009	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3010	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3011
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3012	self drawLeftEdgeLevel:level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3013	shadow:shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3014	light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3015	halfShadow:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3016	halfLight:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3017	style:nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3018	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3019
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3020	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	3021	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3022	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3023
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3024	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3025	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3026
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3027	(count < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3028	leftFg := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3029	leftHalfFg := halfShadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3030	count := count negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3031	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3032	leftFg := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3033	leftHalfFg := halfLightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3034	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3035	leftHalfFg isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3036	leftHalfFg := leftFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3037	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3038
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3039	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3040	paint := leftHalfFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3041	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3042	paint := leftFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3043	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3044	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3045	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3046
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3047	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3048	0 to:(count - 1) do:[:i \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3049	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3050	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3051
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3052	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3053	super paint:Black.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3054	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3055	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3056	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3057
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3058	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3059	"draw right 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3060
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3061	self drawRightEdgeLevel:level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3062	shadow:shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3063	light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3064	halfShadow:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3065	halfLight:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3066	style:nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3067	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3068
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3069	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	3070	\|rightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3071	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3072	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3073
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3074	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3075	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3076
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3077	(count < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3078	rightFg := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3079	count := count negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3080	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3081	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3082	rightFg := halfShadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3083	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3084	rightFg := shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3085	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3086	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3087	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3088	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3089
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3090	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3091	0 to:(count - 1) do:[:i \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3092	r := width - 1 - i.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3093	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3094	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3095	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3096	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3097	super paint:shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3098	super displayDeviceLineFromX:r y:1 toX:r y:b.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3099	]
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3102	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3103	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3104
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3105	self drawTopEdgeLevel:level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3106	shadow:shadowColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3107	light:lightColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3108	halfShadow:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3109	halfLight:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3110	style:nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3111	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3112
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3113	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	3114	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3115	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3116
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3117	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3118	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3119
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3120	(count < 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3121	topFg := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3122	topHalfFg := halfShadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3123	count := count negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3124	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3125	topFg := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3126	topHalfFg := halfLightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3127	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3128	topHalfFg isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3129	topHalfFg := topFg
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3132	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3133	paint := topHalfFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3134	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3135	paint := topFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3136	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3137	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3138	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3139
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3140	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3141	0 to:(count - 1) do:[:i \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3142	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
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	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3145	super paint:Black.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3146	super displayDeviceLineFromX:0 y:0 toX:r y:0.
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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3149
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3150	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3151	"redraw my edges (if any)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3152
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3153	(level ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3154	shown ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3155	self clipRect:nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3156	self drawEdges.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3157	self clipRect:innerClipRect
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3158	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3159	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3160	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3161
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3162	!SimpleView methodsFor:'enumerating subviews'!
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	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3165	"evaluate aBlock for all subviews (recursively)"
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 or:[subViews isEmpty]) ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3168	subViews do:[:aSubview \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3169	aSubview withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3170	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3171	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3172	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3173
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3174	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3175	"evaluate aBlock for the receiver and all subviews (recursively)"
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	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3178	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	3179	! !
cf8e46015072 . claus parents: diff changeset	3180
cf8e46015072 . claus parents: diff changeset	3181	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	3182
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3183	activateMenu
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3184
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3185	\|menu menuPerformer actionSelector actionArg haveArg\|
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3186
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3187	middleButtonMenu isNil ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3188
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3189	haveArg := false.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3190
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3191	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3192	try ST-80 style menus first:
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3193	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	3194	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	3195	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3196	menu := self yellowButtonMenu.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3197	menu notNil ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3198	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3199	got one, launch the menu. It is supposed
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3200	to return an actionSelector.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3201	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3202	menuPerformer := self menuPerformer.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3203	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3204	a temporary kludge: subMenus dont know about
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3205	actionSelectors yet ...
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3206	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3207	menu receiver isNil ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3208	menu receiver:menuPerformer
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3209	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3210	actionSelector := menu startUp.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3211
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3212	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3213	mhmh - kludge for selectors with argument
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3214	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3215	(actionSelector isMemberOf:Array) ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3216	actionArg := actionSelector at:2.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3217	actionSelector := actionSelector at:1.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3218	haveArg := true.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3219	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3220
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3221	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3222	mhmh - ST-80 seems to send some to the model and
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3223	others (copy/cut/paste) to the controller/view
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3224	Simulate this behavior, by looking what the model responds to.
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3225	"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3226	(actionSelector notNil
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3227	and:[actionSelector isSymbol]) ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3228	(menuPerformer respondsTo:actionSelector) ifFalse:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3229	(self respondsTo:actionSelector) ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3230	menuPerformer := self
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3231	]
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3232	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3233	actionSelector numArgs ~~ 0 ifTrue:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3234	haveArg ifFalse:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3235	"/ for checkToggle entries, pass its value
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3236	actionArg := menu checkToggleAt:actionSelector
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3237	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3238	menuPerformer perform:actionSelector with:actionArg
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3239	] ifFalse:[
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3240	menuPerformer perform:actionSelector
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3241	]
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3242	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3243	^ self
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3244	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3245	].
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3246	super activateMenu
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3247
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3248	"Modified: 28.2.1996 / 17:31:49 / cg"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3249	"Created: 1.3.1996 / 13:24:18 / cg"
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3250	!
97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3251
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3252	buttonPress:button x:x y:y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3253	"button was pressed - if its the middle button
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3254	and there is a middleButtonMenu, show it.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3255	If both a model and a menuSelector is is defined, ask the model for
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3256	the menu and launch it. The menu is supposed to return an actionSelector
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3257	which in turn is sent to the model."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3258
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3259	components notNil ifTrue:[
472 621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3260	components do:[:aComponent \|
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3261	\|thisFrame\|
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3262
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3263	thisFrame := aComponent frame.
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3264	(thisFrame containsPointX:x y:y) ifTrue:[
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3265	aComponent buttonPress:button x:x - thisFrame left
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3266	y:y - thisFrame top.
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3267	^ self
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3268	]
621c17076f00 static menus override dynamic ones (is this good ?) Claus Gittinger <cg@exept.de> parents: 468 diff changeset	3269	]
140 0db355079dc4 . claus parents: 138 diff changeset	3270	].
0db355079dc4 . claus parents: 138 diff changeset	3271
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3272	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	3273
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	3274	"Modified: 1.3.1996 / 13:25:34 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	3275	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	3276
140 0db355079dc4 . claus parents: 138 diff changeset	3277	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	3278	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	3279
180 0b3a8658d55e . claus parents: 176 diff changeset	3280	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge p\|
0b3a8658d55e . claus parents: 176 diff changeset	3281
0b3a8658d55e . claus parents: 176 diff changeset	3282	(superView isNil
0b3a8658d55e . claus parents: 176 diff changeset	3283	and:[drawableId notNil]) ifTrue:[
0b3a8658d55e . claus parents: 176 diff changeset	3284	"/ have to be careful - some window managers (motif) wrap another
0b3a8658d55e . claus parents: 176 diff changeset	3285	"/ view around and the reported origin is relative to that.
0b3a8658d55e . claus parents: 176 diff changeset	3286	"/ not relative to the screen.
0b3a8658d55e . claus parents: 176 diff changeset	3287	p := device translatePoint:0@0 from:drawableId to:device rootWindowId.
0b3a8658d55e . claus parents: 176 diff changeset	3288	left := p x.
0b3a8658d55e . claus parents: 176 diff changeset	3289	top := p y.
0b3a8658d55e . claus parents: 176 diff changeset	3290	] ifFalse:[
0b3a8658d55e . claus parents: 176 diff changeset	3291	left := x.
0b3a8658d55e . claus parents: 176 diff changeset	3292	top := y.
0b3a8658d55e . claus parents: 176 diff changeset	3293	].
140 0db355079dc4 . claus parents: 138 diff changeset	3294	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3295	realized ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	3296	width := newWidth.
0db355079dc4 . claus parents: 138 diff changeset	3297	height := newHeight.
0db355079dc4 . claus parents: 138 diff changeset	3298	extentChanged := true.
0db355079dc4 . claus parents: 138 diff changeset	3299	^ self
0db355079dc4 . claus parents: 138 diff changeset	3300	].
0db355079dc4 . claus parents: 138 diff changeset	3301
0db355079dc4 . claus parents: 138 diff changeset	3302	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3303	how := #smaller
0db355079dc4 . claus parents: 138 diff changeset	3304	].
0db355079dc4 . claus parents: 138 diff changeset	3305
0db355079dc4 . claus parents: 138 diff changeset	3306	level ~~ 0 ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3307	mustRedrawBottomEdge := newHeight < height.
0db355079dc4 . claus parents: 138 diff changeset	3308	mustRedrawRightEdge := newWidth < width.
0db355079dc4 . claus parents: 138 diff changeset	3309	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge]
0db355079dc4 . claus parents: 138 diff changeset	3310	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	3311	anyEdge := false
0db355079dc4 . claus parents: 138 diff changeset	3312	].
0db355079dc4 . claus parents: 138 diff changeset	3313
0db355079dc4 . claus parents: 138 diff changeset	3314	width := newWidth.
0db355079dc4 . claus parents: 138 diff changeset	3315	height := newHeight.
0db355079dc4 . claus parents: 138 diff changeset	3316
0db355079dc4 . claus parents: 138 diff changeset	3317	"recompute inner-clip if needed"
0db355079dc4 . claus parents: 138 diff changeset	3318	self setInnerClip.
0db355079dc4 . claus parents: 138 diff changeset	3319
0db355079dc4 . claus parents: 138 diff changeset	3320	"
0db355079dc4 . claus parents: 138 diff changeset	3321	must first process pending exposes;
0db355079dc4 . claus parents: 138 diff changeset	3322	otherwise, those may be drawn at a wrong position
0db355079dc4 . claus parents: 138 diff changeset	3323	"
0db355079dc4 . claus parents: 138 diff changeset	3324	windowGroup notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3325	windowGroup processExposeEvents
0db355079dc4 . claus parents: 138 diff changeset	3326	].
0db355079dc4 . claus parents: 138 diff changeset	3327	self sizeChanged:how.
0db355079dc4 . claus parents: 138 diff changeset	3328
0db355079dc4 . claus parents: 138 diff changeset	3329	(anyEdge and:[shown]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3330	self clipRect:nil.
0db355079dc4 . claus parents: 138 diff changeset	3331	mustRedrawBottomEdge ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3332	self drawBottomEdge
0db355079dc4 . claus parents: 138 diff changeset	3333	].
0db355079dc4 . claus parents: 138 diff changeset	3334	mustRedrawRightEdge ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3335	self drawRightEdge
0db355079dc4 . claus parents: 138 diff changeset	3336	].
0db355079dc4 . claus parents: 138 diff changeset	3337	self clipRect:innerClipRect
0db355079dc4 . claus parents: 138 diff changeset	3338	]
0db355079dc4 . claus parents: 138 diff changeset	3339	]
138 3167663e38e7 . claus parents: 137 diff changeset	3340	!
3167663e38e7 . claus parents: 137 diff changeset	3341
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3342	coveredBy:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3343	"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	3344	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	3345	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3346
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3347	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3348	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3349
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3350	shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3351	super destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3352	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3353
135 cf8e46015072 . claus parents: diff changeset	3354	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	3355	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	3356	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	3357
cf8e46015072 . claus parents: diff changeset	3358	\|leftEdge topEdge rightEdge botEdge anyEdge nx ny nw nh old\|
cf8e46015072 . claus parents: diff changeset	3359
cf8e46015072 . claus parents: diff changeset	3360	nw := w.
cf8e46015072 . claus parents: diff changeset	3361	nh := h.
cf8e46015072 . claus parents: diff changeset	3362	nx := x.
cf8e46015072 . claus parents: diff changeset	3363	ny := y.
cf8e46015072 . claus parents: diff changeset	3364
cf8e46015072 . claus parents: diff changeset	3365	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	3366
cf8e46015072 . claus parents: diff changeset	3367	"
cf8e46015072 . claus parents: diff changeset	3368	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	3369	"
cf8e46015072 . claus parents: diff changeset	3370	(margin ~~ 0) ifTrue:[
cf8e46015072 . claus parents: diff changeset	3371	leftEdge := false.
cf8e46015072 . claus parents: diff changeset	3372	topEdge := false.
cf8e46015072 . claus parents: diff changeset	3373	rightEdge := false.
cf8e46015072 . claus parents: diff changeset	3374	botEdge := false.
cf8e46015072 . claus parents: diff changeset	3375	transformation notNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	3376	"
cf8e46015072 . claus parents: diff changeset	3377	need device coordinates for this test
cf8e46015072 . claus parents: diff changeset	3378	"
cf8e46015072 . claus parents: diff changeset	3379	nx := transformation applyToX:nx.
cf8e46015072 . claus parents: diff changeset	3380	ny := transformation applyToY:ny.
cf8e46015072 . claus parents: diff changeset	3381	nw := transformation applyScaleX:nw.
cf8e46015072 . claus parents: diff changeset	3382	nh := transformation applyScaleY:nh.
cf8e46015072 . claus parents: diff changeset	3383	].
cf8e46015072 . claus parents: diff changeset	3384	"
cf8e46015072 . claus parents: diff changeset	3385	adjust expose rectangle, to exclude the margin.
cf8e46015072 . claus parents: diff changeset	3386	Care for rounding errors ...
cf8e46015072 . claus parents: diff changeset	3387	"
cf8e46015072 . claus parents: diff changeset	3388	(nx isMemberOf:SmallInteger) ifFalse:[
cf8e46015072 . claus parents: diff changeset	3389	old := nx.
cf8e46015072 . claus parents: diff changeset	3390	nx := nx truncated.
cf8e46015072 . claus parents: diff changeset	3391	nw := nw + (nx - old).
cf8e46015072 . claus parents: diff changeset	3392	].
cf8e46015072 . claus parents: diff changeset	3393	(ny isMemberOf:SmallInteger) ifFalse:[
cf8e46015072 . claus parents: diff changeset	3394	old := ny.
cf8e46015072 . claus parents: diff changeset	3395	ny := ny truncated.
cf8e46015072 . claus parents: diff changeset	3396	nh := nh + (ny - old).
cf8e46015072 . claus parents: diff changeset	3397	].
cf8e46015072 . claus parents: diff changeset	3398	(nw isMemberOf:SmallInteger) ifFalse:[
cf8e46015072 . claus parents: diff changeset	3399	nw := nw truncated + 1
cf8e46015072 . claus parents: diff changeset	3400	].
cf8e46015072 . claus parents: diff changeset	3401	(nh isMemberOf:SmallInteger) ifFalse:[
cf8e46015072 . claus parents: diff changeset	3402	nh := nh truncated + 1
cf8e46015072 . claus parents: diff changeset	3403	].
cf8e46015072 . claus parents: diff changeset	3404	(nx < margin) ifTrue:[
cf8e46015072 . claus parents: diff changeset	3405	old := nx.
cf8e46015072 . claus parents: diff changeset	3406	nx := margin.
cf8e46015072 . claus parents: diff changeset	3407	nw := nw - (nx - old).
cf8e46015072 . claus parents: diff changeset	3408	leftEdge := anyEdge := true.
cf8e46015072 . claus parents: diff changeset	3409	].
cf8e46015072 . claus parents: diff changeset	3410	((nx + nw - 1) >= (width - margin)) ifTrue:[
cf8e46015072 . claus parents: diff changeset	3411	nw := (width - margin - nx).
cf8e46015072 . claus parents: diff changeset	3412	rightEdge := anyEdge := true.
cf8e46015072 . claus parents: diff changeset	3413	].
cf8e46015072 . claus parents: diff changeset	3414	(ny < margin) ifTrue:[
cf8e46015072 . claus parents: diff changeset	3415	old := ny.
cf8e46015072 . claus parents: diff changeset	3416	ny := margin.
cf8e46015072 . claus parents: diff changeset	3417	nh := nh - (ny - old).
cf8e46015072 . claus parents: diff changeset	3418	topEdge := anyEdge := true.
cf8e46015072 . claus parents: diff changeset	3419	].
cf8e46015072 . claus parents: diff changeset	3420	((ny + nh - 1) >= (height - margin)) ifTrue:[
cf8e46015072 . claus parents: diff changeset	3421	nh := (height - margin - ny).
cf8e46015072 . claus parents: diff changeset	3422	botEdge := anyEdge := true.
cf8e46015072 . claus parents: diff changeset	3423	].
cf8e46015072 . claus parents: diff changeset	3424	transformation notNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	3425	"
cf8e46015072 . claus parents: diff changeset	3426	need logical coordinates for redraw
cf8e46015072 . claus parents: diff changeset	3427	"
cf8e46015072 . claus parents: diff changeset	3428	nx := transformation applyInverseToX:nx.
cf8e46015072 . claus parents: diff changeset	3429	ny := transformation applyInverseToY:ny.
cf8e46015072 . claus parents: diff changeset	3430	nw := transformation applyInverseScaleX:nw.
cf8e46015072 . claus parents: diff changeset	3431	nh := transformation applyInverseScaleY:nh.
cf8e46015072 . claus parents: diff changeset	3432	].
cf8e46015072 . claus parents: diff changeset	3433	].
cf8e46015072 . claus parents: diff changeset	3434
cf8e46015072 . claus parents: diff changeset	3435	"
cf8e46015072 . claus parents: diff changeset	3436	redraw inside area
cf8e46015072 . claus parents: diff changeset	3437	"
cf8e46015072 . claus parents: diff changeset	3438	self redrawX:nx y:ny width:nw height:nh.
cf8e46015072 . claus parents: diff changeset	3439
cf8e46015072 . claus parents: diff changeset	3440	"
cf8e46015072 . claus parents: diff changeset	3441	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	3442	"
cf8e46015072 . claus parents: diff changeset	3443	anyEdge ifTrue:[
cf8e46015072 . claus parents: diff changeset	3444	self clipRect:nil.
cf8e46015072 . claus parents: diff changeset	3445	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
cf8e46015072 . claus parents: diff changeset	3446	self drawEdges
cf8e46015072 . claus parents: diff changeset	3447	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	3448	topEdge ifTrue:[
cf8e46015072 . claus parents: diff changeset	3449	self drawTopEdge
cf8e46015072 . claus parents: diff changeset	3450	].
cf8e46015072 . claus parents: diff changeset	3451	leftEdge ifTrue:[
cf8e46015072 . claus parents: diff changeset	3452	self drawLeftEdge
cf8e46015072 . claus parents: diff changeset	3453	].
cf8e46015072 . claus parents: diff changeset	3454	botEdge ifTrue:[
cf8e46015072 . claus parents: diff changeset	3455	self drawBottomEdge
cf8e46015072 . claus parents: diff changeset	3456	].
cf8e46015072 . claus parents: diff changeset	3457	rightEdge ifTrue:[
cf8e46015072 . claus parents: diff changeset	3458	self drawRightEdge
cf8e46015072 . claus parents: diff changeset	3459	]
cf8e46015072 . claus parents: diff changeset	3460	].
cf8e46015072 . claus parents: diff changeset	3461	self clipRect:innerClipRect
cf8e46015072 . claus parents: diff changeset	3462	]
cf8e46015072 . claus parents: diff changeset	3463	!
cf8e46015072 . claus parents: diff changeset	3464
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3465	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	3466	"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	3467
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	3468	self showFocus:false
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3469	!
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	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	3472	"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	3473
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	3474	self showNoFocus:false
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3475	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3476
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3477	hasKeyboardFocus:aBoolean
140 0db355079dc4 . claus parents: 138 diff changeset	3478	^ self
0db355079dc4 . claus parents: 138 diff changeset	3479	!
0db355079dc4 . claus parents: 138 diff changeset	3480
0db355079dc4 . claus parents: 138 diff changeset	3481	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	3482	"a key has been pressed. If there are components,
0db355079dc4 . claus parents: 138 diff changeset	3483	pass it to the corresponding one.
0db355079dc4 . claus parents: 138 diff changeset	3484	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	3485
0db355079dc4 . claus parents: 138 diff changeset	3486	components notNil ifTrue:[
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3487	components do:[:aComponent \|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3488	\|thisFrame\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3489
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3490	thisFrame := aComponent frame.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3491	(thisFrame containsPointX:x y:y) ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3492	aComponent keyPress:key x:x - thisFrame left
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3493	y:y - thisFrame top.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3494	^ self
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3495	]
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3496	]
135 cf8e46015072 . claus parents: diff changeset	3497	].
cf8e46015072 . claus parents: diff changeset	3498
140 0db355079dc4 . claus parents: 138 diff changeset	3499	x >= 0 ifTrue:[
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3500	superView notNil ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3501	WindowEvent
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3502	sendEvent:#keyPress:x:y:
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3503	arguments:(Array with:key with:0 with:0)
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3504	view:superView
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3505	] ifFalse:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3506	super keyPress:key x:x y:y
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3507	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	3508	] ifFalse:[
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3509	"/ already redelegated, but nowhere handled
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3510	superView notNil ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3511	superView keyPress:key x:-1 y:-1
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3512	]
135 cf8e46015072 . claus parents: diff changeset	3513	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	3514
2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	3515	"Modified: 1.2.1996 / 22:40:16 / cg"
135 cf8e46015072 . claus parents: diff changeset	3516	!
cf8e46015072 . claus parents: diff changeset	3517
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3518	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3519	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3520	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3521
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	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3524
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3525	realized := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3526	shown := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3527	...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3528
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3529	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3530	realized and shortly after unrealized - before the mapped event
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3531	arrived. This lead to shown being set to true even thought the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3532	view was not. Boy - that was a bad one (hard to reproduce and hard to find).
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	realized ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3536	shown := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3537	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3538	backed views will not get expose events - have
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3539	to force a redraw here to get things drawn into
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3540	backing store.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3541	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3542	backed ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3543	self redraw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3544	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3545	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3546	subViews do:[:v \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3547	v superViewMapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3548	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3549	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3550	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3551	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3552
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3553	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3554	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3555	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3556	nothing done here"
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	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3559	!
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	saveAndTerminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3562	"window manager wants me to save and go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3563	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3564	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3565	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3566	to prepare for restart."
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	^ self destroy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3569	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3570
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3571	sizeChanged:how
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3572	"tell subviews if I change size.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3573	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	3574	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3575
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3576	window notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3577	"compute new transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3578	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3579	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3580	(how isNil "false"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3581	or:[how == #smaller]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3582	subViews do:[:view \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3583	view superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3584	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3585	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3586	"doing it reverse speeds up resizing - usually subviews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3587	are created from top-left to bottom-right; therefore
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3588	bottom-right views will be moved/resized first, then top-left ones;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3589	this avoids multiple redraws of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3590
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3591	subViews reverseDo:[:view \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3592	view superViewChangedSize
135 cf8e46015072 . claus parents: diff changeset	3593	]
cf8e46015072 . claus parents: diff changeset	3594	]
cf8e46015072 . claus parents: diff changeset	3595	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3596	self changed:#sizeOfView with:how.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3597	superView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3598	superView subViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3599	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3600	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3601
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3602	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	3603	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3604	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3605	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3606
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3607	^ self
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	"Created: 22.9.1995 / 14:44:59 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3610	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3611
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3612	superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3613	"my superView has changed size; if I have relative
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3614	origin/extent or blocks to evaluate, do it now .."
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	\|oldWidth oldHeight oldTop oldLeft newExt newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3617	winSuper newWidth newHeight newLeft newTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3618	superWidth superHeight superWinWidth superWinHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3619	r\|
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	oldWidth := width.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3622	oldHeight := height.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3623	oldTop := top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3624	oldLeft := left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3625
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3626	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3627	if this view has a viewPort, resize a la ST-80 V2.x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3628	this will vanish - dont use it.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3629	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3630	viewport notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3631	superView isNil ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3632	winSuper := superView window.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3633	winSuper isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3634	"take pixel size as window"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3635	winSuper := 0@0 extent:(superView width@superView height)
135 cf8e46015072 . claus parents: diff changeset	3636	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3637
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3638	superWidth := superView width.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3639	superHeight := superView height.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3640	superWinWidth := winSuper width.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3641	superWinHeight := winSuper height.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3642	newLeft := (viewport left - winSuper left) * superWidth // superWinWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3643	newTop := (viewport top - winSuper top) * superHeight // superWinHeight.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3644	newWidth := superWidth * viewport width // superWinWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3645	newHeight := superHeight * viewport height // superWinHeight.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3646	self pixelOrigin:(newLeft @ newTop).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3647	self pixelExtent:(newWidth @ newHeight).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3648	^ self
135 cf8e46015072 . claus parents: diff changeset	3649	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3650
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3651	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3652	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3653	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3654	layout isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3655	newOrg := self computeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3656	newExt := self computeExtent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3657	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3658	r := (layout rectangleRelativeTo:(superView viewRectangle)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3659	preferred:(self preferredBounds)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3660	newOrg := r origin rounded.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3661	newExt := r extent rounded.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3662	"/ newOrg printNL.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3663	"/ newExt printNL.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3664	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3665
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3666	newOrg notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3667	((newOrg x == oldLeft) and:[newOrg y == oldTop]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3668	newOrg := nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3669	]
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	newExt notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3672	((newExt x == width) and:[newExt y == height]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3673	newExt := nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3674	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3675	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3677	newExt isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3678	newOrg notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3679	self pixelOrigin:newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3680	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3681	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3682	newOrg isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3683	self pixelExtent:newExt
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3684	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3685	self pixelOrigin:newOrg extent:newExt
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3686	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3687	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3688	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3689
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3690	superViewMapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3691	"my superview was mapped (became visible)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3692
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3693	realized ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3694	shown := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3695	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3696	subViews do:[:v \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3697	v superViewMapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3698	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3699	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3700	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3701	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3702
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3703	superViewUnmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3704	"my superView was unmapped"
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	self unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3707	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3708
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3709	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3710	"window manager wants me to go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3711	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3712	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3713	Can be redefined in subclasses to do whatever cleanup is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3714	required."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3715
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3716	^ self destroy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3717	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3718
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3719	unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3720	"the view has been unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3721	(either by some outside action - i.e. window manager iconified me,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3722	or due to unmapping of my parentView)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3723
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3724	shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3725	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3726	subViews do:[:v \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3727	v superViewUnmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3728	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3729	]
135 cf8e46015072 . claus parents: diff changeset	3730	!
cf8e46015072 . claus parents: diff changeset	3731
cf8e46015072 . claus parents: diff changeset	3732	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	3733	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	3734	action - i.e. window manager rearranged things).
cf8e46015072 . claus parents: diff changeset	3735	Using this knowledge avoids useless redraw in obsucred views."
cf8e46015072 . claus parents: diff changeset	3736
cf8e46015072 . claus parents: diff changeset	3737	how == #fullyObscured ifTrue:[
cf8e46015072 . claus parents: diff changeset	3738	shown := false
cf8e46015072 . claus parents: diff changeset	3739	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	3740	shown := true.
cf8e46015072 . claus parents: diff changeset	3741	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3742	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3743
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3744	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3745
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3746	contentsChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3747	"this one is sent, whenever contents changes size -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3748	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3750	self changed:#sizeOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3751	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3752
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3753	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3754	"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	3755	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3756
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3757	self changed:#originOfContents with:delta.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3758	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3759	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3760	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3761	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3762	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3763	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3764
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3765	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3766	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3767	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3768	(for example to hide cursor before scroll)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3769
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3770	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3771	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3772
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3773	!SimpleView methodsFor:'initialization'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3774
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3775	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3776	^ nil "/ Controller
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3777	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3778
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3779	defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3780	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3781
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3782	"Created: 1.3.1996 / 19:20:46 / cg"
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3783	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3784
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3785	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3786	"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	3787	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3788
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3789	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3790	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3791
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3792	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3793	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3794
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3795	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3796
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3797	borderWidth := DefaultBorderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3798	borderWidth isNil ifTrue:[borderWidth := 1].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3799
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3800	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3801
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3802	DefaultLightColor notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3803	lightColor := DefaultLightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3804	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3805	device hasGreyscales ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3806	DefaultLightColor := lightColor := viewBackground lightened.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3807	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3808	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3809	this seems strange: on B&W screens, we create the light color
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3810	darker than normal viewBackground (White) -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3811	to make the boundary of the view visible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3812	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3813	lightColor := Color grey:50
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	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3816	DefaultShadowColor notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3817	shadowColor := DefaultShadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3818	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3819	shadowColor := Black
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3820	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3821
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3822	lightColor := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3823	shadowColor := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3824	borderColor := DefaultBorderColor.
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	3825	font := self class defaultFont.
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	3826	font := font on:device.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3827	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3828
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3829	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3830	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3831
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3832	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3833	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3834	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3835	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3836	StyleSheet isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3837	self class updateStyleCache
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3838	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3839
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3840	styleSheet := StyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3841	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3842
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3843	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3844	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3845	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3846	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3847	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	3848	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	3849	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	3850	(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	3851	leave the state and contents as-is)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3852
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3853	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3855	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3856
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	3857	font := self class defaultFont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3858
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3859	shown := hiddenOnRealize := realized := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3860
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3861	"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	3862	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3863
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3864	myClass := self class.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3865	name := myClass name "asString" asLowercaseFirst.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3866	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3867
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3868	level := margin := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3869	margin := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3870
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3871	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3872
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3873	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3874	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3875	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3876	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3877
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3878	originChanged := extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3879	bitGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3880	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3882	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3883	controllerClass notNil ifTrue:[
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3884	controller := controllerClass new.
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3885	controller view:self.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3886	].
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3887
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	3888	"Modified: 1.3.1996 / 19:21:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3889	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3890
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3891	initializeMiddleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3892	"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	3893	first created; usually redefined in subclasses; default here is no menu.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3894	Notice, that static middleButtonmenus are a historic thing in ST/X;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3895	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	3896
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3897	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3898	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3899
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3900	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3901	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3902	windowGroup notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3903	windowGroup reinitialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3904	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3905	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3906
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3907	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3908	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3909
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3910	\|t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3911
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3912	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3913	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3914	"force a change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3915	t := borderWidth. borderWidth := nil. self borderWidth:t.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3916	t := viewBackground. viewBackground := nil. self viewBackground:t.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3917	self clear.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3918	self redraw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3919	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3920	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3921
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3922	reinitialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3923	"this is called right snapIn"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3924
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3925	\|myController\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3926
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3927	"if I have already been reinited - return"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3928	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3929	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3930	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3931
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3932	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3933	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3934	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3935	superView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3936	superView id isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3937	superView reinitialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3938	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3939	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3940
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3941	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3942	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3943	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3944
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3945	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3946	realized ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3947	"only remap if I have a superview - otherwise, I might be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3948	a hidden iconView or menu ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3949	superView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3950	"/ shown ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3951	device mapView:self id:drawableId iconified:false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3952	atX:left y:top width:width height:height
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3953	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3954	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3955	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3956
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3957	"restore controller"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3958	controller := myController
135 cf8e46015072 . claus parents: diff changeset	3959	! !
cf8e46015072 . claus parents: diff changeset	3960
140 0db355079dc4 . claus parents: 138 diff changeset	3961	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	3962
0db355079dc4 . claus parents: 138 diff changeset	3963	computeInnerClip
0db355079dc4 . claus parents: 138 diff changeset	3964	"compute, but do not set the inside clip-area"
0db355079dc4 . claus parents: 138 diff changeset	3965
0db355079dc4 . claus parents: 138 diff changeset	3966	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	3967
0db355079dc4 . claus parents: 138 diff changeset	3968	(margin ~~ 0) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3969	m2 := margin + margin.
0db355079dc4 . claus parents: 138 diff changeset	3970	nX := nY := margin.
0db355079dc4 . claus parents: 138 diff changeset	3971	nW := width - m2.
0db355079dc4 . claus parents: 138 diff changeset	3972	nH := height - m2.
0db355079dc4 . claus parents: 138 diff changeset	3973	transformation notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	3974	nX := transformation applyInverseToX:nX.
0db355079dc4 . claus parents: 138 diff changeset	3975	nY := transformation applyInverseToY:nY.
0db355079dc4 . claus parents: 138 diff changeset	3976	nW := transformation applyInverseScaleX:nW.
0db355079dc4 . claus parents: 138 diff changeset	3977	nH := transformation applyInverseScaleY:nH.
0db355079dc4 . claus parents: 138 diff changeset	3978	].
0db355079dc4 . claus parents: 138 diff changeset	3979	innerClipRect := Rectangle
0db355079dc4 . claus parents: 138 diff changeset	3980	left:nX
0db355079dc4 . claus parents: 138 diff changeset	3981	top:nY
0db355079dc4 . claus parents: 138 diff changeset	3982	width:nW
0db355079dc4 . claus parents: 138 diff changeset	3983	height:nH
0db355079dc4 . claus parents: 138 diff changeset	3984	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	3985	"no clipping"
0db355079dc4 . claus parents: 138 diff changeset	3986	innerClipRect := nil
0db355079dc4 . claus parents: 138 diff changeset	3987	]
0db355079dc4 . claus parents: 138 diff changeset	3988	!
0db355079dc4 . claus parents: 138 diff changeset	3989
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3990	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3991	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3992
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3993	^ self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3994	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3995
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3996	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3997	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3998
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3999	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4000
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4001	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4002
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4003	bw := borderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4004	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4005	bw == 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4006	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4007	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4008	^ (p x - bw) @ (p y - bw)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4009	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4010	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4011	b := (insets at:4) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4012
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4013	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4014	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4015	"/ r := rightInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4016	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4017	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4018	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4019	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4020	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4021	^ (p x - r) @ (p y - b)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4022	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4023	^ p
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4026	dimensionFromViewport
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4027	"define my origin/extend from viewport"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4028
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4029	\|relW relH relX relY winW winH org ext\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4030
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4031	superView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4032	superView window isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4033	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4034	v := superView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4035	(v notNil and:[v window isNil]) whileTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4036	v := v superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4037	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4038	v notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4039	w := v window
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4040	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4041	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4042	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4043	winW := 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4044	winH := 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4045	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4046	winW := superView width.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4047	winH := superView height.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4048
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4049	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4050	winW := superView window width.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4051	winH := superView window height
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4052	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4053	relW := (viewport width / winW) asFloat.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4054	relH := (viewport height / winH) asFloat.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4055	relX := (viewport left / winW) asFloat.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4056	relY := (viewport top / winH) asFloat.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4057	"bad coding style ... misuse other method"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4058	relativeOrigin := (relX @ relY).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4059	org := self originFromRelativeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4060	relativeOrigin := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4061
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4062	"bad coding style ...misuse other method"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4063	relativeExtent := (relW @ relH).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4064	ext := self extentFromRelativeExtent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4065	relativeExtent := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4066
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4067	self pixelOrigin:org extent:ext.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4068	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4069	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4070
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4071	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4072	"compute & return pixel extent from relativeExtent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4073
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4074	^ self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4075	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4076
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4077	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4078	"compute & return pixel extent from relativeExtent, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4079
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4080	\|rel newX newY inRect bw2 i\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4081
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4082	superView isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4083	inRect := 0@0 extent:device extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4084	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4085	inRect := superView viewRectangle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4086	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4087
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4088	bw2 := borderWidth * 2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4089
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4090	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4091	rel isInteger ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4092	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4093	(borderWidth ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4094	newX := newX - borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4095	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4096	] ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4097	newX := rel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4098	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4099
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4100	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4101	rel isInteger ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4102	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4103	(borderWidth ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4104	newY := newY - borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4105	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4106	] ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4107	newY := rel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4108	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4109
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4110	insets notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4111	i := insets at:1. "top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4112	(i ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4113	newX := newX - i
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4114	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4115	i := insets at:3. "left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4116	(i ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4117	newX := newX - i
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4118	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4119	i := insets at:2. "right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4120	(i ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4121	newY := newY - i
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4122	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4123	i := insets at:4. "bottom"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4124	(i ~~ 0) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4125	newY := newY - i
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4126	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4127	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4128	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4129	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4130
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4131	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4132	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4133
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4134	^ self originFromRelativeOrigin:relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4135	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4136
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4137	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4138	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4139
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4140	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4141
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4142	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4143
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4144	insets isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4145	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4146	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4147	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4148	t := insets at:2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4149
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4150	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4151	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4152	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4153	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4154	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4155	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4156	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4157	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4158	^ (p x + l) @ (p y + t)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4159	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4160	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4161	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4162
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4163	pixelCorner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4164	"set the views corner in pixels"
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	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4167
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4168	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4169	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4170	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4171
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4172	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4173	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4174
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4175	pixelExtent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4176	"set the views extent in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4177
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4178	self pixelOrigin:(left @ top) extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4179	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4180
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4181	pixelOrigin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4182	"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	4183	to the superviews top-left. For topViews, its the screen origin."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4184
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4185	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4186
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4187	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4188	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4189	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4190	top := newTop.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4191	left := newLeft.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4192
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4193	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4194	if the receiver is visible, or is a topView, perform the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4195	operation right away - otherwise, simply remember that the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4196	origin has changed - will tell the display once we get realized
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4197	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4198	"/ (shown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4199	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4200
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4201	"/ no, have to do it if drawableId is there
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4202	"/ (otherwise, we could not move unmapped views around ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4203	"/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4204	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4205	device moveWindow:drawableId x:left y:top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4206	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4207	originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4208	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4209	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4210	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4211
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4212	pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4213	"set the views origin and corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4214
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4215	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4216
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4217	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4218	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4219	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4220
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4221	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4222	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4223
140 0db355079dc4 . claus parents: 138 diff changeset	4224	pixelOrigin:origin extent:extent
0db355079dc4 . claus parents: 138 diff changeset	4225	"set the views origin and extent in pixels"
0db355079dc4 . claus parents: 138 diff changeset	4226
0db355079dc4 . claus parents: 138 diff changeset	4227	\|newLeft newTop newWidth newHeight how
0db355079dc4 . claus parents: 138 diff changeset	4228	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
0db355079dc4 . claus parents: 138 diff changeset	4229	mustRepaintRight sameOrigin oldWidth oldHeight\|
0db355079dc4 . claus parents: 138 diff changeset	4230
0db355079dc4 . claus parents: 138 diff changeset	4231	newLeft := origin x.
0db355079dc4 . claus parents: 138 diff changeset	4232	newTop := origin y.
0db355079dc4 . claus parents: 138 diff changeset	4233	sameOrigin := ((newTop == top) and:[newLeft == left]).
0db355079dc4 . claus parents: 138 diff changeset	4234
0db355079dc4 . claus parents: 138 diff changeset	4235	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	4236	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	4237
0db355079dc4 . claus parents: 138 diff changeset	4238	"
0db355079dc4 . claus parents: 138 diff changeset	4239	X complains badly if you try to create/resize a view with
0db355079dc4 . claus parents: 138 diff changeset	4240	a dimension <= 0 ... (although I think that 0 maks sense ...)
0db355079dc4 . claus parents: 138 diff changeset	4241	"
0db355079dc4 . claus parents: 138 diff changeset	4242	newWidth < 1 ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4243	newWidth := 1.
0db355079dc4 . claus parents: 138 diff changeset	4244	].
0db355079dc4 . claus parents: 138 diff changeset	4245	newHeight < 1 ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4246	newHeight := 1
0db355079dc4 . claus parents: 138 diff changeset	4247	].
0db355079dc4 . claus parents: 138 diff changeset	4248
0db355079dc4 . claus parents: 138 diff changeset	4249	((newWidth == width) and:[newHeight == height]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4250	sameOrigin ifTrue:[^ self].
0db355079dc4 . claus parents: 138 diff changeset	4251	^ self pixelOrigin:origin
0db355079dc4 . claus parents: 138 diff changeset	4252	].
0db355079dc4 . claus parents: 138 diff changeset	4253	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	4254	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	4255
0db355079dc4 . claus parents: 138 diff changeset	4256	"/ shown ifTrue:[ "4-nov-94 actually correct,"
0db355079dc4 . claus parents: 138 diff changeset	4257	drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
151 8123ec03c52f . claus parents: 145 diff changeset	4258	mustRedrawBottomEdge := (level ~~ 0) and:[newHeight < height].
8123ec03c52f . claus parents: 145 diff changeset	4259	mustRedrawRightEdge := (level ~~ 0) and:[newWidth < width].
8123ec03c52f . claus parents: 145 diff changeset	4260
8123ec03c52f . claus parents: 145 diff changeset	4261	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	4262	how := #smaller
8123ec03c52f . claus parents: 145 diff changeset	4263	].
8123ec03c52f . claus parents: 145 diff changeset	4264
140 0db355079dc4 . claus parents: 138 diff changeset	4265	mustRepaintRight := false.
0db355079dc4 . claus parents: 138 diff changeset	4266	mustRepaintBottom := false.
0db355079dc4 . claus parents: 138 diff changeset	4267	(level ~~ 0) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4268	"clear the old edges"
0db355079dc4 . claus parents: 138 diff changeset	4269
0db355079dc4 . claus parents: 138 diff changeset	4270	newWidth > width ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4271	self clipRect:nil.
0db355079dc4 . claus parents: 138 diff changeset	4272	self paint:viewBackground.
0db355079dc4 . claus parents: 138 diff changeset	4273	self fillDeviceRectangleX:(width - margin)
0db355079dc4 . claus parents: 138 diff changeset	4274	y:0
0db355079dc4 . claus parents: 138 diff changeset	4275	width:margin
0db355079dc4 . claus parents: 138 diff changeset	4276	height:height.
0db355079dc4 . claus parents: 138 diff changeset	4277	mustRepaintRight := true.
0db355079dc4 . claus parents: 138 diff changeset	4278	oldWidth := width
0db355079dc4 . claus parents: 138 diff changeset	4279	].
0db355079dc4 . claus parents: 138 diff changeset	4280	newHeight > height ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4281	self clipRect:nil.
0db355079dc4 . claus parents: 138 diff changeset	4282	self paint:viewBackground.
0db355079dc4 . claus parents: 138 diff changeset	4283	self fillDeviceRectangleX:0
0db355079dc4 . claus parents: 138 diff changeset	4284	y:(height - margin)
0db355079dc4 . claus parents: 138 diff changeset	4285	width:width
0db355079dc4 . claus parents: 138 diff changeset	4286	height:margin.
0db355079dc4 . claus parents: 138 diff changeset	4287	mustRepaintBottom := true.
0db355079dc4 . claus parents: 138 diff changeset	4288	oldHeight := height
0db355079dc4 . claus parents: 138 diff changeset	4289	]
0db355079dc4 . claus parents: 138 diff changeset	4290	].
0db355079dc4 . claus parents: 138 diff changeset	4291
0db355079dc4 . claus parents: 138 diff changeset	4292	width := newWidth.
0db355079dc4 . claus parents: 138 diff changeset	4293	height := newHeight.
0db355079dc4 . claus parents: 138 diff changeset	4294
0db355079dc4 . claus parents: 138 diff changeset	4295	self setInnerClip.
0db355079dc4 . claus parents: 138 diff changeset	4296
0db355079dc4 . claus parents: 138 diff changeset	4297	"if view becomes smaller, send sizeChanged first"
0db355079dc4 . claus parents: 138 diff changeset	4298	(how == #smaller) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4299	self sizeChanged:how
0db355079dc4 . claus parents: 138 diff changeset	4300	].
0db355079dc4 . claus parents: 138 diff changeset	4301
0db355079dc4 . claus parents: 138 diff changeset	4302	"have to tell X, when extent of view is changed"
0db355079dc4 . claus parents: 138 diff changeset	4303	sameOrigin ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4304	device resizeWindow:drawableId width:width height:height.
0db355079dc4 . claus parents: 138 diff changeset	4305	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4306	"claus: some xservers seem to do better when resizing
0db355079dc4 . claus parents: 138 diff changeset	4307	first ...."
0db355079dc4 . claus parents: 138 diff changeset	4308	"
0db355079dc4 . claus parents: 138 diff changeset	4309	(how == #smaller) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4310	device resizeWindow:drawableId width:width height:height.
0db355079dc4 . claus parents: 138 diff changeset	4311	device moveWindow:drawableId x:left y:top
0db355079dc4 . claus parents: 138 diff changeset	4312	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4313	device moveResizeWindow:drawableId x:left y:top width:width height:height
0db355079dc4 . claus parents: 138 diff changeset	4314	].
0db355079dc4 . claus parents: 138 diff changeset	4315	"
0db355079dc4 . claus parents: 138 diff changeset	4316	device moveResizeWindow:drawableId x:left y:top
0db355079dc4 . claus parents: 138 diff changeset	4317	width:width height:height.
0db355079dc4 . claus parents: 138 diff changeset	4318	" "
0db355079dc4 . claus parents: 138 diff changeset	4319	].
0db355079dc4 . claus parents: 138 diff changeset	4320
0db355079dc4 . claus parents: 138 diff changeset	4321	"if view becomes bigger, send sizeChanged after"
0db355079dc4 . claus parents: 138 diff changeset	4322	(how ~~ #smaller) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4323	self sizeChanged:how
0db355079dc4 . claus parents: 138 diff changeset	4324	].
0db355079dc4 . claus parents: 138 diff changeset	4325
0db355079dc4 . claus parents: 138 diff changeset	4326	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4327	self clipRect:nil.
0db355079dc4 . claus parents: 138 diff changeset	4328	mustRedrawBottomEdge ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4329	self drawBottomEdge
0db355079dc4 . claus parents: 138 diff changeset	4330	].
0db355079dc4 . claus parents: 138 diff changeset	4331	mustRedrawRightEdge ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4332	self drawRightEdge
0db355079dc4 . claus parents: 138 diff changeset	4333	].
0db355079dc4 . claus parents: 138 diff changeset	4334	self clipRect:innerClipRect
0db355079dc4 . claus parents: 138 diff changeset	4335	].
0db355079dc4 . claus parents: 138 diff changeset	4336
0db355079dc4 . claus parents: 138 diff changeset	4337	mustRepaintRight ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4338	self redrawDeviceX:(oldWidth - margin)
0db355079dc4 . claus parents: 138 diff changeset	4339	y:0
0db355079dc4 . claus parents: 138 diff changeset	4340	width:margin
0db355079dc4 . claus parents: 138 diff changeset	4341	height:height.
0db355079dc4 . claus parents: 138 diff changeset	4342	].
0db355079dc4 . claus parents: 138 diff changeset	4343	mustRepaintBottom ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4344	self redrawDeviceX:0
0db355079dc4 . claus parents: 138 diff changeset	4345	y:(oldHeight - margin)
0db355079dc4 . claus parents: 138 diff changeset	4346	width:width
0db355079dc4 . claus parents: 138 diff changeset	4347	height:margin.
0db355079dc4 . claus parents: 138 diff changeset	4348	].
0db355079dc4 . claus parents: 138 diff changeset	4349	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4350	"otherwise memorize the need for a sizeChanged message"
0db355079dc4 . claus parents: 138 diff changeset	4351
0db355079dc4 . claus parents: 138 diff changeset	4352	width := newWidth.
0db355079dc4 . claus parents: 138 diff changeset	4353	height := newHeight.
0db355079dc4 . claus parents: 138 diff changeset	4354	sameOrigin ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4355	originChanged := true.
0db355079dc4 . claus parents: 138 diff changeset	4356	].
0db355079dc4 . claus parents: 138 diff changeset	4357	extentChanged := true
0db355079dc4 . claus parents: 138 diff changeset	4358	]
0db355079dc4 . claus parents: 138 diff changeset	4359	!
0db355079dc4 . claus parents: 138 diff changeset	4360
0db355079dc4 . claus parents: 138 diff changeset	4361	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	4362	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	4363
0db355079dc4 . claus parents: 138 diff changeset	4364	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	4365
0db355079dc4 . claus parents: 138 diff changeset	4366	bw := borderWidth.
0db355079dc4 . claus parents: 138 diff changeset	4367
0db355079dc4 . claus parents: 138 diff changeset	4368	superView isNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4369	superWidth := device width + bw.
0db355079dc4 . claus parents: 138 diff changeset	4370	superHeight := device height + bw.
0db355079dc4 . claus parents: 138 diff changeset	4371	superLeft := superTop := 0.
0db355079dc4 . claus parents: 138 diff changeset	4372	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4373	inRect := superView viewRectangle.
0db355079dc4 . claus parents: 138 diff changeset	4374	superWidth := inRect width.
0db355079dc4 . claus parents: 138 diff changeset	4375	superHeight := inRect height.
0db355079dc4 . claus parents: 138 diff changeset	4376	superLeft := inRect left.
0db355079dc4 . claus parents: 138 diff changeset	4377	superTop := inRect top.
0db355079dc4 . claus parents: 138 diff changeset	4378	].
0db355079dc4 . claus parents: 138 diff changeset	4379
0db355079dc4 . claus parents: 138 diff changeset	4380	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	4381	rel isInteger ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4382	newX := rel
0db355079dc4 . claus parents: 138 diff changeset	4383	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4384	newX := (rel * superWidth) asInteger + superLeft.
0db355079dc4 . claus parents: 138 diff changeset	4385	(bw ~~ 0) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4386	rel ~= 1.0 ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4387	newX := newX - bw
0db355079dc4 . claus parents: 138 diff changeset	4388	]
0db355079dc4 . claus parents: 138 diff changeset	4389	]
0db355079dc4 . claus parents: 138 diff changeset	4390	].
0db355079dc4 . claus parents: 138 diff changeset	4391
0db355079dc4 . claus parents: 138 diff changeset	4392	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	4393	rel isInteger ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4394	newY := rel
0db355079dc4 . claus parents: 138 diff changeset	4395	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4396	newY := (rel * superHeight) asInteger + superTop.
0db355079dc4 . claus parents: 138 diff changeset	4397	(bw ~~ 0) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4398	rel ~= 1.0 ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4399	newY := newY - bw
0db355079dc4 . claus parents: 138 diff changeset	4400	]
0db355079dc4 . claus parents: 138 diff changeset	4401	]
0db355079dc4 . claus parents: 138 diff changeset	4402	].
0db355079dc4 . claus parents: 138 diff changeset	4403	^ newX @ newY
0db355079dc4 . claus parents: 138 diff changeset	4404	!
0db355079dc4 . claus parents: 138 diff changeset	4405
0db355079dc4 . claus parents: 138 diff changeset	4406	setBorderColor
0db355079dc4 . claus parents: 138 diff changeset	4407	"set my borderColor"
0db355079dc4 . claus parents: 138 diff changeset	4408
0db355079dc4 . claus parents: 138 diff changeset	4409	\|id dither\|
0db355079dc4 . claus parents: 138 diff changeset	4410
0db355079dc4 . claus parents: 138 diff changeset	4411	drawableId notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4412	borderColor := borderColor on:device.
0db355079dc4 . claus parents: 138 diff changeset	4413	id := borderColor colorId.
0db355079dc4 . claus parents: 138 diff changeset	4414	id notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4415	device setWindowBorderColor:id in:drawableId
0db355079dc4 . claus parents: 138 diff changeset	4416	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4417	dither := borderColor ditherForm.
0db355079dc4 . claus parents: 138 diff changeset	4418	dither notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4419	device setWindowBorderPixmap:(dither id) in:drawableId
0db355079dc4 . claus parents: 138 diff changeset	4420	] ifFalse:[
145 ac7088b0aee5 . claus parents: 144 diff changeset	4421	'VIEW: bad borderColor' errorPrintNL
135 cf8e46015072 . claus parents: diff changeset	4422	]
cf8e46015072 . claus parents: diff changeset	4423	]
cf8e46015072 . claus parents: diff changeset	4424	]
cf8e46015072 . claus parents: diff changeset	4425	!
cf8e46015072 . claus parents: diff changeset	4426
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4427	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4428	"compute, and set the inside clip-area"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4429
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4430	self computeInnerClip.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4431	self clipRect:innerClipRect
140 0db355079dc4 . claus parents: 138 diff changeset	4432	! !
0db355079dc4 . claus parents: 138 diff changeset	4433
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4434	!SimpleView methodsFor:'queries'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4435
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4436	buttonMotionEventPending
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4437	"return true, if a button motion event is pending.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4438	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	4439	(not even for mouse-tracking).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4440	Dont use it, since it does not honor the windowGroup, but
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4441	goes directly to the device instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4442	Actually, its a historical leftover"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4443
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4444	windowGroup notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4445	^ windowGroup sensor hasButtonMotionEventsFor:self
140 0db355079dc4 . claus parents: 138 diff changeset	4446	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4447	^ super buttonMotionEventPending
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4448	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4449
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4450	canDrop:anObjectOrCollection
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4451	"return true, if anObjectOrCollection can be
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4452	dropped in the receiver. This method should be
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4453	redefined in views which can take objects"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4454
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4455	^ false
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4456	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4457
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4458	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4459	"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	4460	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	4461	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4462
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4463	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4464	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4465
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4466	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4467	"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	4468	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4469	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	4470	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4471
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4472	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4473	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4474
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4475	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4476	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4477
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4478	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4479	^ delegate delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4480	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4481
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4482	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4483	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4484	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4485	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4486
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4487	\|focusView delegate\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4488
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4489	windowGroup isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4490
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4491	(focusView := windowGroup focusView) == self ifTrue:[^ true].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4492	focusView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4493	"mhmh - is there a delegation to me ?"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4494	(delegate := focusView delegate) notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4495	delegate == self ifTrue:[^ true].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4496	^ delegate delegatesTo:self
135 cf8e46015072 . claus parents: diff changeset	4497	]
cf8e46015072 . claus parents: diff changeset	4498	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4499	^ false
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
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4502	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4503	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4504	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4505
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4506	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4507	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4508
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4509	isPopUpView
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4510	"return true, if this view should be put on top (raised) automatically.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4511	usually this is true for alertBoxes etc."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4512
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4513	^ false
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4514	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4515
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4516	isSubViewOf:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4517	"return true, if I am a subview of aView"
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	aView == self isNil ifTrue:[^ true].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4520	superView isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4521	superView == aView ifTrue:[^ true].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4522	^ superView isSubViewOf:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4523	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4524
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4525	isView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4526	"return true, if the receiver is some kind of view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4527	true is returned here."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4528
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4529	^ true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4530	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4531
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4532	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4533	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4534
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4535	^ 0@0 corner:self preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4536	!
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	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4539	"return my preferred extent - this is the minimum size I would like to have.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4540	The default here is the actual extent, the receiver currently has."
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	"mhmh - if I have components, collect their
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4543	preferred bounds ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4544
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4545	\|maxX maxY\|
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	subViews isNil ifTrue:[^ self extent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4548	"/ ^ self extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4549
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4550	maxX := maxY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4551	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4552	subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4553	\|org corn\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4554
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4555	org := aSubView computeOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4556	corn := org + aSubView preferredExtent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4557	maxX := maxX max:corn x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4558	maxY := maxY max:corn y.
140 0db355079dc4 . claus parents: 138 diff changeset	4559	]
0db355079dc4 . claus parents: 138 diff changeset	4560	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4561	^ maxX @ maxY.
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4564	sizeFixed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4565	"return true, if this vew wants its size to remain unchanged.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4566	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	4567
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4568	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4569
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4570	"Created: 17.9.1995 / 20:29:20 / claus"
140 0db355079dc4 . claus parents: 138 diff changeset	4571	! !
0db355079dc4 . claus parents: 138 diff changeset	4572
0db355079dc4 . claus parents: 138 diff changeset	4573	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	4574
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4575	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4576	"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	4577	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	4578
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4579	drawableId isNil ifTrue:[
151 8123ec03c52f . claus parents: 145 diff changeset	4580	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4581	make certain that superview is created also
151 8123ec03c52f . claus parents: 145 diff changeset	4582	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4583	superView notNil ifTrue:[
355 3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4584	superView create.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4585
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4586	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4587	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4588	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4589	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4590	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4591	"/ ]
355 3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4592	] ifFalse:[
3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4593	"/
3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4594	"/ if the display is not already dispatching events,
3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4595	"/ this starts the event process.
3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4596	"/
3bff8697c536 automatically start an event dispatch process when a topView is Claus Gittinger <cg@exept.de> parents: 343 diff changeset	4597	device startDispatch
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4598	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4599
343 f5d86df5c66b dont care for nil cursors Claus Gittinger <cg@exept.de> parents: 320 diff changeset	4600	cursor notNil ifTrue:[
f5d86df5c66b dont care for nil cursors Claus Gittinger <cg@exept.de> parents: 320 diff changeset	4601	cursor := cursor on:device.
f5d86df5c66b dont care for nil cursors Claus Gittinger <cg@exept.de> parents: 320 diff changeset	4602	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4603
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4604	self physicalCreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4605
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4606	viewBackground notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4607	self setViewBackground
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4608	].
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	self initializeMiddleButtonMenu.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4611	self initEvents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4612
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	this is the first create,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4615	force sizechange messages to be sent to the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4616	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4617	extentChanged := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4618	originChanged := true
151 8123ec03c52f . claus parents: 145 diff changeset	4619	]
8123ec03c52f . claus parents: 145 diff changeset	4620	!
8123ec03c52f . claus parents: 145 diff changeset	4621
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4622	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4623	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4624
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4625	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4626	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4627	subViews do:[:subView \| subView createWithAllSubViews]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4628	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4629	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4630
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4631	destroy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4632	"unrealize & destroy - make me invisible, destroy subviews then
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4633	make me unknown to the device"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4634
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4635	\|subs\|
140 0db355079dc4 . claus parents: 138 diff changeset	4636
0db355079dc4 . claus parents: 138 diff changeset	4637	realized ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4638	self unrealize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4639	"make it go away immediately
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4640	- also, this hides the subview killing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4641	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4642	device synchronizeOutput.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4643	"
151 8123ec03c52f . claus parents: 145 diff changeset	4644	].
8123ec03c52f . claus parents: 145 diff changeset	4645
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4646	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4647	"/ controller release.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4648	"/ controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4649	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4650
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4651	subs := subViews.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4652	subs notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4653	"stupid: destroy removes itself from the subview list
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4654	- therefore we have to loop over a copy here"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4655
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4656	subViews := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4657	subs do:[:aView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4658	aView notNil ifTrue:[aView destroy]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4659	]
140 0db355079dc4 . claus parents: 138 diff changeset	4660	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4661	superView notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4662	superView removeSubView:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4663	superView := nil
140 0db355079dc4 . claus parents: 138 diff changeset	4664	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4665	super destroy.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4666
312 a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	4667	superView isNil ifTrue:[
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	4668	device flush
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	4669	].
a3500ca1f37b stefans changes Claus Gittinger <cg@exept.de> parents: 299 diff changeset	4670
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4671	controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4672	controller release.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4673	controller := nil.
140 0db355079dc4 . claus parents: 138 diff changeset	4674	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4675
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4676	windowGroup notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4677	windowGroup removeView:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4678	windowGroup := nil
140 0db355079dc4 . claus parents: 138 diff changeset	4679	].
0db355079dc4 . claus parents: 138 diff changeset	4680	!
0db355079dc4 . claus parents: 138 diff changeset	4681
0db355079dc4 . claus parents: 138 diff changeset	4682	fixSize
0db355079dc4 . claus parents: 138 diff changeset	4683	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	4684	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	4685	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	4686	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	4687	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	4688
151 8123ec03c52f . claus parents: 145 diff changeset	4689	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	4690
8123ec03c52f . claus parents: 145 diff changeset	4691	"please: no longer use window/viewport - they will vanish"
140 0db355079dc4 . claus parents: 138 diff changeset	4692	window notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4693	^ self superViewChangedSize
0db355079dc4 . claus parents: 138 diff changeset	4694	].
0db355079dc4 . claus parents: 138 diff changeset	4695
151 8123ec03c52f . claus parents: 145 diff changeset	4696	"
8123ec03c52f . claus parents: 145 diff changeset	4697	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	4698	"
8123ec03c52f . claus parents: 145 diff changeset	4699	layout notNil ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	4700	(originChanged or:[extentChanged or:[cornerChanged]]) ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	4701	r := (layout rectangleRelativeTo:(superView viewRectangle)
8123ec03c52f . claus parents: 145 diff changeset	4702	preferred:(self preferredBounds)).
8123ec03c52f . claus parents: 145 diff changeset	4703	org := r origin rounded.
8123ec03c52f . claus parents: 145 diff changeset	4704	ext := r extent rounded.
8123ec03c52f . claus parents: 145 diff changeset	4705	self pixelOrigin:org extent:ext.
8123ec03c52f . claus parents: 145 diff changeset	4706	].
8123ec03c52f . claus parents: 145 diff changeset	4707	^ self.
8123ec03c52f . claus parents: 145 diff changeset	4708	].
8123ec03c52f . claus parents: 145 diff changeset	4709
140 0db355079dc4 . claus parents: 138 diff changeset	4710	"if the extent is not the one we created the window with ..."
0db355079dc4 . claus parents: 138 diff changeset	4711	extentChanged ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4712	self sizeChanged:nil.
0db355079dc4 . claus parents: 138 diff changeset	4713	extentChanged := false
0db355079dc4 . claus parents: 138 diff changeset	4714	].
0db355079dc4 . claus parents: 138 diff changeset	4715
0db355079dc4 . claus parents: 138 diff changeset	4716	originChanged ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4717	"/ org := self computeOrigin.
0db355079dc4 . claus parents: 138 diff changeset	4718	"/ self pixelOrigin:org.
0db355079dc4 . claus parents: 138 diff changeset	4719	originRule notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4720	self pixelOrigin:self computeOrigin
0db355079dc4 . claus parents: 138 diff changeset	4721	] ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4722	relativeOrigin notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4723	self originFromRelativeOrigin:relativeOrigin
0db355079dc4 . claus parents: 138 diff changeset	4724	] ifFalse:[
151 8123ec03c52f . claus parents: 145 diff changeset	4725	shown ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	4726	device moveWindow:drawableId x:left y:top.
8123ec03c52f . claus parents: 145 diff changeset	4727	] ifFalse:[
8123ec03c52f . claus parents: 145 diff changeset	4728	self pixelOrigin:left@top
8123ec03c52f . claus parents: 145 diff changeset	4729	].
140 0db355079dc4 . claus parents: 138 diff changeset	4730	].
0db355079dc4 . claus parents: 138 diff changeset	4731	].
0db355079dc4 . claus parents: 138 diff changeset	4732	originChanged := false
0db355079dc4 . claus parents: 138 diff changeset	4733	]
0db355079dc4 . claus parents: 138 diff changeset	4734	!
0db355079dc4 . claus parents: 138 diff changeset	4735
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4736	hide
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4737	"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	4738	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4739
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4740	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4741	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4742
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4743	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4744	"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	4745	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4746
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4747	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4748	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	4749
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4750	map
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4751	"make the view visible on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4752
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4753	realized ifFalse:[
140 0db355079dc4 . claus parents: 138 diff changeset	4754	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4755	now, make the view visible
140 0db355079dc4 . claus parents: 138 diff changeset	4756	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4757	device mapWindow:drawableId.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4758	realized := true.
140 0db355079dc4 . claus parents: 138 diff changeset	4759	]
0db355079dc4 . claus parents: 138 diff changeset	4760	!
0db355079dc4 . claus parents: 138 diff changeset	4761
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4762	physicalCreate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4763	"common code for create & recreate:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4764	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4765
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4766	"associate colors to device"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4767
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4768	drawableId := device
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4769	createWindowFor:self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4770	origin:(left @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4771	extent:(width @ height)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4772	minExtent:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4773	maxExtent:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4774	borderWidth:borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4775	subViewOf:superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4776	onTop:(self isPopUpView)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4777	inputOnly:(self inputOnly)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4778	label:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4779	cursor:cursor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4780	icon:nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4781	iconView:nil.
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	Lobby registerChange:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4784	extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4785	originChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4786
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4787	(borderColor notNil and:[borderColor ~~ Black]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4788	"/ borderColor := borderColor on:device.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4789	self setBorderColor
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	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4792	device setWindowGravity:viewGravity in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4793	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4794	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4795	device setBitGravity:bitGravity in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4796	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4797	borderShape notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4798	device setWindowBorderShape:(borderShape id) in:drawableId
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	viewShape notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4801	device setWindowShape:(viewShape id) in:drawableId
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	(backed notNil and:[backed ~~ false]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4804	device setBackingStore:backed in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4805	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4806	saveUnder ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4807	device setSaveUnder:true in:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4808	].
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4811	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4812	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4813	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4814	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4815
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4816	self realizeKeepingGroup:false
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4817	!
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	realizeAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4820	"realize all my subviews"
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	subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4823	subViews do:[:subView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4824	subView realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4825	]
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4828	"Modified: 5.9.1995 / 23:30:47 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4829	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4831	realizeInGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4832	"special realize - leave windowgroup as is;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4833	This allows a view to be realized in any windowgroup;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4834	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	4835	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	4836
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4837	windowGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4838	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4839
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4840	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4841	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4842
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4843	realizeKeepingGroup:keepGroupAsIs
151 8123ec03c52f . claus parents: 145 diff changeset	4844	"common helper for realize and realizeInGroup.
8123ec03c52f . claus parents: 145 diff changeset	4845	Create the view, if the argument is not true, assign my windowGroup,
8123ec03c52f . claus parents: 145 diff changeset	4846	if hiddenOnRealize is not true, map it."
140 0db355079dc4 . claus parents: 138 diff changeset	4847
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4848	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	4849
0db355079dc4 . claus parents: 138 diff changeset	4850	drawableId isNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4851	self create.
0db355079dc4 . claus parents: 138 diff changeset	4852	].
0db355079dc4 . claus parents: 138 diff changeset	4853
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	4854	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4855
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4856	(windowGroup notNil and:[windowGroup isForModalSubview]) ifTrue:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4857	keep := true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4858	] ifFalse:[
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4859	keep := keepGroupAsIs
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4860	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4861
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4862	keep ifFalse:[
140 0db355079dc4 . claus parents: 138 diff changeset	4863	"
0db355079dc4 . claus parents: 138 diff changeset	4864	put myself into superviews windowgroup if there is a superview
0db355079dc4 . claus parents: 138 diff changeset	4865	"
0db355079dc4 . claus parents: 138 diff changeset	4866	superView notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4867	superGroup := superView windowGroup.
0db355079dc4 . claus parents: 138 diff changeset	4868	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4869	"
0db355079dc4 . claus parents: 138 diff changeset	4870	mhmh - seems that the windowgroup has changed ....
0db355079dc4 . claus parents: 138 diff changeset	4871	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	4872	"/ 'oops - wgroup change on realize' printNL.
140 0db355079dc4 . claus parents: 138 diff changeset	4873	windowGroup removeView:self.
0db355079dc4 . claus parents: 138 diff changeset	4874	windowGroup := nil
0db355079dc4 . claus parents: 138 diff changeset	4875	].
0db355079dc4 . claus parents: 138 diff changeset	4876	superGroup ~~ windowGroup ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4877	groupChange := true.
0db355079dc4 . claus parents: 138 diff changeset	4878	windowGroup := superGroup.
0db355079dc4 . claus parents: 138 diff changeset	4879	windowGroup notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4880	windowGroup addView:self.
0db355079dc4 . claus parents: 138 diff changeset	4881	]
0db355079dc4 . claus parents: 138 diff changeset	4882	]
0db355079dc4 . claus parents: 138 diff changeset	4883	].
0db355079dc4 . claus parents: 138 diff changeset	4884	].
0db355079dc4 . claus parents: 138 diff changeset	4885
151 8123ec03c52f . claus parents: 145 diff changeset	4886	hiddenOnRealize ifFalse:[
175 327b4f340cdb . claus parents: 173 diff changeset	4887	(originChanged or:[extentChanged]) ifTrue:[
327b4f340cdb . claus parents: 173 diff changeset	4888	self fixSize.
327b4f340cdb . claus parents: 173 diff changeset	4889	self sizeChanged:nil. "/ new 29-aug-1995
327b4f340cdb . claus parents: 173 diff changeset	4890	].
140 0db355079dc4 . claus parents: 138 diff changeset	4891
0db355079dc4 . claus parents: 138 diff changeset	4892	(realized not or:[groupChange]) ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4893	subViews notNil ifTrue:[
180 0b3a8658d55e . claus parents: 176 diff changeset	4894	self realizeAllSubViews.
140 0db355079dc4 . claus parents: 138 diff changeset	4895	].
0db355079dc4 . claus parents: 138 diff changeset	4896	].
0db355079dc4 . claus parents: 138 diff changeset	4897	self setInnerClip.
0db355079dc4 . claus parents: 138 diff changeset	4898
0db355079dc4 . claus parents: 138 diff changeset	4899	realized ifFalse:[
0db355079dc4 . claus parents: 138 diff changeset	4900	"
0db355079dc4 . claus parents: 138 diff changeset	4901	now, make the view visible
0db355079dc4 . claus parents: 138 diff changeset	4902	"
151 8123ec03c52f . claus parents: 145 diff changeset	4903	self map
140 0db355079dc4 . claus parents: 138 diff changeset	4904	]
0db355079dc4 . claus parents: 138 diff changeset	4905	].
0db355079dc4 . claus parents: 138 diff changeset	4906
0db355079dc4 . claus parents: 138 diff changeset	4907	controller notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4908	controller startUp
0db355079dc4 . claus parents: 138 diff changeset	4909	]
0db355079dc4 . claus parents: 138 diff changeset	4910	!
0db355079dc4 . claus parents: 138 diff changeset	4911
0db355079dc4 . claus parents: 138 diff changeset	4912	recreate
0db355079dc4 . claus parents: 138 diff changeset	4913	"recreate (i.e. tell X about me) after a snapin"
0db355079dc4 . claus parents: 138 diff changeset	4914
0db355079dc4 . claus parents: 138 diff changeset	4915	drawableId isNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4916	super recreate.
0db355079dc4 . claus parents: 138 diff changeset	4917	self physicalCreate.
0db355079dc4 . claus parents: 138 diff changeset	4918
0db355079dc4 . claus parents: 138 diff changeset	4919	viewBackground notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4920	self setViewBackground
0db355079dc4 . claus parents: 138 diff changeset	4921	].
0db355079dc4 . claus parents: 138 diff changeset	4922
0db355079dc4 . claus parents: 138 diff changeset	4923	"
0db355079dc4 . claus parents: 138 diff changeset	4924	XXX has to be changed: eventmasks are device specific -
0db355079dc4 . claus parents: 138 diff changeset	4925	XXX will not allow restart on another Workstation-type.
0db355079dc4 . claus parents: 138 diff changeset	4926	XXX event masks must become symbolic
0db355079dc4 . claus parents: 138 diff changeset	4927	"
0db355079dc4 . claus parents: 138 diff changeset	4928	device setEventMask:eventMask in:drawableId
0db355079dc4 . claus parents: 138 diff changeset	4929	]
0db355079dc4 . claus parents: 138 diff changeset	4930	!
0db355079dc4 . claus parents: 138 diff changeset	4931
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4932	rerealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4933	"rerealize at old position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4934
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4935	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4936	realized := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4937	device mapView:self id:drawableId iconified:false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4938	atX:left y:top width:width height:height
140 0db355079dc4 . claus parents: 138 diff changeset	4939	]
0db355079dc4 . claus parents: 138 diff changeset	4940	!
0db355079dc4 . claus parents: 138 diff changeset	4941
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4942	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4943	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4944
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4945	drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4946	self create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4947	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4948	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4949	aWindowGroup ~~ windowGroup ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4950	windowGroup notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4951	windowGroup removeView:self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4952	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4953	windowGroup := aWindowGroup.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4954	aWindowGroup addTopView:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4955	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4956	self rerealize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4957	]
140 0db355079dc4 . claus parents: 138 diff changeset	4958	!
0db355079dc4 . claus parents: 138 diff changeset	4959
0db355079dc4 . claus parents: 138 diff changeset	4960	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	4961	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	4962
0db355079dc4 . claus parents: 138 diff changeset	4963	drawableId notNil ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	4964	realized := true.
0db355079dc4 . claus parents: 138 diff changeset	4965	subViews notNil ifTrue:[
180 0b3a8658d55e . claus parents: 176 diff changeset	4966	self realizeAllSubViews.
140 0db355079dc4 . claus parents: 138 diff changeset	4967	].
0db355079dc4 . claus parents: 138 diff changeset	4968	device mapView:self id:drawableId iconified:false
0db355079dc4 . claus parents: 138 diff changeset	4969	atX:left y:top width:width height:height
0db355079dc4 . claus parents: 138 diff changeset	4970	]
180 0b3a8658d55e . claus parents: 176 diff changeset	4971	!
0b3a8658d55e . claus parents: 176 diff changeset	4972
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4973	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4974	"resize myself to make everything fit into me.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4975	Nothing special done here, but redefined in some subclasses"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4976
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4977	self extent:(self preferredExtent)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4978	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4979
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4980	unmap
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4981	"hide me - the view stays created, and can be mapped again later."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4982
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4983	realized ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4984	drawableId notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4985	device unmapWindow:drawableId
151 8123ec03c52f . claus parents: 145 diff changeset	4986	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4987	realized := shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4988	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	4989
4c49bdd5b80f . claus parents: 189 diff changeset	4990	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4991	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4992
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4993	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4994	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4995
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4996	sub := View
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4997	origin:0.2@0.2
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4998	corner:0.8@0.8
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4999	in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5000
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5001	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5002	sub hiddenOnRealize:true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5003
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5004	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5005	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5006	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5007	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5008	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5009	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5010	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5011	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	5012	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5013	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5014
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5015	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5016	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5017
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5018	self unmap.
151 8123ec03c52f . claus parents: 145 diff changeset	5019	! !
8123ec03c52f . claus parents: 145 diff changeset	5020
8123ec03c52f . claus parents: 145 diff changeset	5021	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	5022
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5023	redraw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5024	"redraw myself
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5025	cannot do much here - has to be redefined in subclasses"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5026
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5027	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5028
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5029	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5030	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5031	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5032	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5033	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5034
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5035	\|lx ly lw lh\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5036
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5037	lx := x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5038	ly := y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5039	lw := w.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5040	lh := h.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5041
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5042	transformation notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5043	lx := transformation applyInverseToX:lx.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5044	ly := transformation applyInverseToY:ly.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5045	lw := transformation applyInverseScaleX:lw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5046	lh := transformation applyInverseScaleY:lh.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5047	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5048	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5049	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5050
151 8123ec03c52f . claus parents: 145 diff changeset	5051	redrawX:x y:y width:w height:h
8123ec03c52f . claus parents: 145 diff changeset	5052	"have to redraw part of myself, given logical coordinates (if trans is nonNil)
8123ec03c52f . claus parents: 145 diff changeset	5053	default is to redraw everything - subclasses should add intelligence"
8123ec03c52f . claus parents: 145 diff changeset	5054
8123ec03c52f . claus parents: 145 diff changeset	5055	\|area\|
8123ec03c52f . claus parents: 145 diff changeset	5056
8123ec03c52f . claus parents: 145 diff changeset	5057	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	5058
8123ec03c52f . claus parents: 145 diff changeset	5059	area := Rectangle left:x top:y width:w height:h.
8123ec03c52f . claus parents: 145 diff changeset	5060	self clippedTo:area do:[
8123ec03c52f . claus parents: 145 diff changeset	5061	"/ controller notNil ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	5062	"/ "ST-80 updating"
8123ec03c52f . claus parents: 145 diff changeset	5063	"/ self update:#rectangle with:area
8123ec03c52f . claus parents: 145 diff changeset	5064	"/ ] ifFalse:[
8123ec03c52f . claus parents: 145 diff changeset	5065	components notNil ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	5066	components do:[:aComponent \|
8123ec03c52f . claus parents: 145 diff changeset	5067	\|thisFrame is\|
8123ec03c52f . claus parents: 145 diff changeset	5068
8123ec03c52f . claus parents: 145 diff changeset	5069	thisFrame := aComponent frame.
8123ec03c52f . claus parents: 145 diff changeset	5070	(thisFrame intersects:area) ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	5071	is := thisFrame intersect:(x@y extent:w@h).
8123ec03c52f . claus parents: 145 diff changeset	5072	is = thisFrame ifTrue:[
8123ec03c52f . claus parents: 145 diff changeset	5073	aComponent redraw
8123ec03c52f . claus parents: 145 diff changeset	5074	] ifFalse:[
8123ec03c52f . claus parents: 145 diff changeset	5075	aComponent redrawX:is left
8123ec03c52f . claus parents: 145 diff changeset	5076	y:is top
8123ec03c52f . claus parents: 145 diff changeset	5077	width:is width
8123ec03c52f . claus parents: 145 diff changeset	5078	height:is height.
8123ec03c52f . claus parents: 145 diff changeset	5079	].
8123ec03c52f . claus parents: 145 diff changeset	5080	"/ aComponent drawIn:self offset:0@0
8123ec03c52f . claus parents: 145 diff changeset	5081	]
8123ec03c52f . claus parents: 145 diff changeset	5082	]
8123ec03c52f . claus parents: 145 diff changeset	5083	] ifFalse:[
8123ec03c52f . claus parents: 145 diff changeset	5084	self redraw
8123ec03c52f . claus parents: 145 diff changeset	5085	]
8123ec03c52f . claus parents: 145 diff changeset	5086	"/ ]
8123ec03c52f . claus parents: 145 diff changeset	5087	]
8123ec03c52f . claus parents: 145 diff changeset	5088	!
8123ec03c52f . claus parents: 145 diff changeset	5089
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5090	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5091	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5092	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5093
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5094	^ self
135 cf8e46015072 . claus parents: diff changeset	5095	!
cf8e46015072 . claus parents: diff changeset	5096
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	5097	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	5098	"highlight myself somehow to tell user that I have the focus.
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	5099	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	5100	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	5101	Only change my border, if this is an explicit focusChange."
135 cf8e46015072 . claus parents: diff changeset	5102
cf8e46015072 . claus parents: diff changeset	5103	\|delta\|
cf8e46015072 . claus parents: diff changeset	5104
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	5105	explicit ifTrue:[
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	5106	drawableId notNil ifTrue:[
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	5107	delta := DefaultFocusBorderWidth - borderWidth.
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	5108	delta ~~ 0 ifTrue:[
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	5109	device moveWindow:drawableId x:left-delta y:top-delta
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	5110	].
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	5111	device setWindowBorderWidth:DefaultFocusBorderWidth in:drawableId.
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	5112	device setWindowBorderColor:(DefaultFocusColor on:device) colorId in:drawableId.
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	5113	]
135 cf8e46015072 . claus parents: diff changeset	5114	]
cf8e46015072 . claus parents: diff changeset	5115	!
cf8e46015072 . claus parents: diff changeset	5116
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	5117	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	5118	"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	5119	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	5120	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	5121	Only change my border, if this is an explicit focusChange."
135 cf8e46015072 . claus parents: diff changeset	5122
cf8e46015072 . claus parents: diff changeset	5123	\|delta\|
cf8e46015072 . claus parents: diff changeset	5124
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	5125	explicit ifTrue:[
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	5126	drawableId notNil ifTrue:[
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	5127	(windowGroup notNil
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	5128	and:[windowGroup focusView == self]) ifTrue:[
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	5129	delta := DefaultFocusBorderWidth - borderWidth.
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	5130	delta ~~ 0 ifTrue:[
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	5131	device moveWindow:drawableId x:left+delta y:top+delta
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	5132	].
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	5133	device setWindowBorderWidth:borderWidth in:drawableId.
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	5134	self setBorderColor.
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	5135	]
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	5136	]
135 cf8e46015072 . claus parents: diff changeset	5137	]
358 27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	5138
27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	5139	"Modified: 9.1.1996 / 16:02:32 / cg"
135 cf8e46015072 . claus parents: diff changeset	5140	!
cf8e46015072 . claus parents: diff changeset	5141
cf8e46015072 . claus parents: diff changeset	5142	showPassive
cf8e46015072 . claus parents: diff changeset	5143	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	5144	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	5145
cf8e46015072 . claus parents: diff changeset	5146	^ self
cf8e46015072 . claus parents: diff changeset	5147	! !
cf8e46015072 . claus parents: diff changeset	5148
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5149	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5151	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5152	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5153	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5154
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5155	^ (device horizontalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5156	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5157
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5158	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5159	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5160	scroll-step down button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5161
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5162	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5163	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5164
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5165	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5166	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5167
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5168	\|orgX\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5169
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5170	orgX := self viewOrigin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5171
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5172	(aPixelOffset < orgX) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5173	self scrollLeft:(orgX - aPixelOffset)
140 0db355079dc4 . claus parents: 138 diff changeset	5174	] ifFalse:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5175	(aPixelOffset > orgX) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5176	self scrollRight:(aPixelOffset - orgX)
140 0db355079dc4 . claus parents: 138 diff changeset	5177	]
0db355079dc4 . claus parents: 138 diff changeset	5178	]
0db355079dc4 . claus parents: 138 diff changeset	5179	!
0db355079dc4 . claus parents: 138 diff changeset	5180
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5181	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5182	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5183
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5184	\|wCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5185
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5186	wCont := self widthOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5187	transformation notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5188	wCont := transformation applyScaleX:wCont.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5189	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5190	self scrollHorizontalTo:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5191	((((wCont * percent) / 100.0) + 0.5) asInteger)
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5194	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5195	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5196	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5197
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5198	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5199	!
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	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5202	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5203	scroll-step right button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5204
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5205	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5206	!
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	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5209	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5210
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5211	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5212	!
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	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5215	"move viewOrigin to top/left"
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	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5218	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5219
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5220	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5221	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5222	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5223
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5224	self scrollUp:(self verticalScrollStep)
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5227	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5228	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5229
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5230	\|orgY\|
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	orgY := self viewOrigin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5233
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5234	(aPixelOffset < orgY) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5235	self scrollUp:(orgY - aPixelOffset)
140 0db355079dc4 . claus parents: 138 diff changeset	5236	] ifFalse:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5237	(aPixelOffset > orgY) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5238	self scrollDown:(aPixelOffset - orgY)
135 cf8e46015072 . claus parents: diff changeset	5239	]
cf8e46015072 . claus parents: diff changeset	5240	]
cf8e46015072 . claus parents: diff changeset	5241	!
cf8e46015072 . claus parents: diff changeset	5242
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5243	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5244	"scroll to a position given in percent of total"
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	\|hCont\|
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	hCont := self heightOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5249	transformation notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5250	hCont := transformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	5251	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5252	self scrollVerticalTo:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5253	((((hCont * percent) / 100.0) + 0.5) asInteger)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5254	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5255
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5256	verticalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5257	"return the amount to scroll when stepping up/down.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5258	Subclasses may want to redefine this."
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	^ (device verticalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5261	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5262
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5263	widthForScrollBetween:yStart and:yEnd
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5264	"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	5265	- 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	5266	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	5267	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	5268	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	5269	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5270
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5271	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	5272	! !
cf8e46015072 . claus parents: diff changeset	5273
cf8e46015072 . claus parents: diff changeset	5274	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	5275
cf8e46015072 . claus parents: diff changeset	5276	scrollDown:nPixels
cf8e46015072 . claus parents: diff changeset	5277	"change origin to scroll down some pixels"
cf8e46015072 . claus parents: diff changeset	5278
cf8e46015072 . claus parents: diff changeset	5279	\|count "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5280	m2 "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5281	w "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5282	h "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5283	hCont
cf8e46015072 . claus parents: diff changeset	5284	ih "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5285	orgX
cf8e46015072 . claus parents: diff changeset	5286	orgY "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5287	newOrigin\|
cf8e46015072 . claus parents: diff changeset	5288
cf8e46015072 . claus parents: diff changeset	5289	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	5290	transformation isNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	5291	orgY := orgX := 0
cf8e46015072 . claus parents: diff changeset	5292	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	5293	hCont := (transformation applyScaleY:hCont) rounded.
cf8e46015072 . claus parents: diff changeset	5294	orgY := transformation translation y negated.
cf8e46015072 . claus parents: diff changeset	5295	orgX := transformation translation x negated.
cf8e46015072 . claus parents: diff changeset	5296	].
cf8e46015072 . claus parents: diff changeset	5297
cf8e46015072 . claus parents: diff changeset	5298	count := nPixels.
cf8e46015072 . claus parents: diff changeset	5299	ih := self innerHeight.
cf8e46015072 . claus parents: diff changeset	5300
cf8e46015072 . claus parents: diff changeset	5301	((orgY + nPixels + ih) > hCont) ifTrue:[
cf8e46015072 . claus parents: diff changeset	5302	count := hCont - orgY - ih
cf8e46015072 . claus parents: diff changeset	5303	].
cf8e46015072 . claus parents: diff changeset	5304	(count <= 0) ifTrue:[^ self].
cf8e46015072 . claus parents: diff changeset	5305
cf8e46015072 . claus parents: diff changeset	5306	self originWillChange.
cf8e46015072 . claus parents: diff changeset	5307	newOrigin := orgX @ (orgY + count).
cf8e46015072 . claus parents: diff changeset	5308	shown ifFalse:[
cf8e46015072 . claus parents: diff changeset	5309	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5310	] ifTrue:[
cf8e46015072 . claus parents: diff changeset	5311	m2 := margin * 2.
cf8e46015072 . claus parents: diff changeset	5312	(count >= ih) ifTrue:[
cf8e46015072 . claus parents: diff changeset	5313	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5314	self redrawDeviceX:margin y:margin
cf8e46015072 . claus parents: diff changeset	5315	width:(width - m2)
cf8e46015072 . claus parents: diff changeset	5316	height:(height - m2).
cf8e46015072 . claus parents: diff changeset	5317	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	5318	h := height - m2 - count.
cf8e46015072 . claus parents: diff changeset	5319	w := self width.
cf8e46015072 . claus parents: diff changeset	5320	self catchExpose.
cf8e46015072 . claus parents: diff changeset	5321	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5322	self copyFrom:self x:margin y:(count + margin)
cf8e46015072 . claus parents: diff changeset	5323	toX:margin y:margin
cf8e46015072 . claus parents: diff changeset	5324	width:w
cf8e46015072 . claus parents: diff changeset	5325	height:h.
cf8e46015072 . claus parents: diff changeset	5326
cf8e46015072 . claus parents: diff changeset	5327	self setInnerClip.
cf8e46015072 . claus parents: diff changeset	5328	self redrawDeviceX:margin y:(h + margin)
cf8e46015072 . claus parents: diff changeset	5329	width:(width - m2) height:count.
cf8e46015072 . claus parents: diff changeset	5330
cf8e46015072 . claus parents: diff changeset	5331	self waitForExpose.
cf8e46015072 . claus parents: diff changeset	5332	]
cf8e46015072 . claus parents: diff changeset	5333	].
cf8e46015072 . claus parents: diff changeset	5334	self originChanged:(0 @ count).
cf8e46015072 . claus parents: diff changeset	5335	!
cf8e46015072 . claus parents: diff changeset	5336
cf8e46015072 . claus parents: diff changeset	5337	scrollLeft:nPixels
cf8e46015072 . claus parents: diff changeset	5338	"change origin to scroll left some pixels"
cf8e46015072 . claus parents: diff changeset	5339
cf8e46015072 . claus parents: diff changeset	5340	\|count "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5341	m2 "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5342	h "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5343	orgX orgY newOrigin\|
cf8e46015072 . claus parents: diff changeset	5344
cf8e46015072 . claus parents: diff changeset	5345	transformation isNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	5346	orgY := orgX := 0
cf8e46015072 . claus parents: diff changeset	5347	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	5348	orgY := transformation translation y negated.
cf8e46015072 . claus parents: diff changeset	5349	orgX := transformation translation x negated.
cf8e46015072 . claus parents: diff changeset	5350	].
cf8e46015072 . claus parents: diff changeset	5351
cf8e46015072 . claus parents: diff changeset	5352	count := nPixels.
cf8e46015072 . claus parents: diff changeset	5353	(count > orgX) ifTrue:[
cf8e46015072 . claus parents: diff changeset	5354	count := orgX
cf8e46015072 . claus parents: diff changeset	5355	].
cf8e46015072 . claus parents: diff changeset	5356	(count <= 0) ifTrue:[^ self].
cf8e46015072 . claus parents: diff changeset	5357
cf8e46015072 . claus parents: diff changeset	5358	self originWillChange.
cf8e46015072 . claus parents: diff changeset	5359	newOrigin := (orgX - count) @ orgY.
cf8e46015072 . claus parents: diff changeset	5360
cf8e46015072 . claus parents: diff changeset	5361	shown ifFalse:[
cf8e46015072 . claus parents: diff changeset	5362	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5363	] ifTrue:[
cf8e46015072 . claus parents: diff changeset	5364	m2 := margin * 2.
cf8e46015072 . claus parents: diff changeset	5365	(count >= self innerWidth) ifTrue:[
cf8e46015072 . claus parents: diff changeset	5366	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5367	self redrawDeviceX:margin y:margin
cf8e46015072 . claus parents: diff changeset	5368	width:(width - m2)
cf8e46015072 . claus parents: diff changeset	5369	height:(height - m2).
cf8e46015072 . claus parents: diff changeset	5370	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	5371	h := (height - m2).
cf8e46015072 . claus parents: diff changeset	5372
cf8e46015072 . claus parents: diff changeset	5373	self catchExpose.
cf8e46015072 . claus parents: diff changeset	5374	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5375	self copyFrom:self x:margin y:margin
cf8e46015072 . claus parents: diff changeset	5376	toX:(count + margin) y:margin
cf8e46015072 . claus parents: diff changeset	5377	width:(width - m2 - count)
cf8e46015072 . claus parents: diff changeset	5378	height:h.
cf8e46015072 . claus parents: diff changeset	5379
cf8e46015072 . claus parents: diff changeset	5380	self setInnerClip.
cf8e46015072 . claus parents: diff changeset	5381	self redrawDeviceX:margin y:margin
cf8e46015072 . claus parents: diff changeset	5382	width:count height:(height - m2).
cf8e46015072 . claus parents: diff changeset	5383
cf8e46015072 . claus parents: diff changeset	5384	self waitForExpose.
cf8e46015072 . claus parents: diff changeset	5385	]
cf8e46015072 . claus parents: diff changeset	5386	].
cf8e46015072 . claus parents: diff changeset	5387	self originChanged:(count negated @ 0).
cf8e46015072 . claus parents: diff changeset	5388	!
cf8e46015072 . claus parents: diff changeset	5389
cf8e46015072 . claus parents: diff changeset	5390	scrollRight:nPixels
cf8e46015072 . claus parents: diff changeset	5391	"change origin to scroll right some pixels"
cf8e46015072 . claus parents: diff changeset	5392
cf8e46015072 . claus parents: diff changeset	5393	\|count "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5394	m2 "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5395	h "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5396	wCont
cf8e46015072 . claus parents: diff changeset	5397	iw "{ Class:SmallInteger }"
cf8e46015072 . claus parents: diff changeset	5398	orgX orgY newOrigin\|
cf8e46015072 . claus parents: diff changeset	5399
cf8e46015072 . claus parents: diff changeset	5400	wCont := self widthOfContents.
cf8e46015072 . claus parents: diff changeset	5401	transformation isNil ifTrue:[
cf8e46015072 . claus parents: diff changeset	5402	orgY := orgX := 0
cf8e46015072 . claus parents: diff changeset	5403	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	5404	wCont := (transformation applyScaleX:wCont) rounded.
cf8e46015072 . claus parents: diff changeset	5405	orgY := transformation translation y negated.
cf8e46015072 . claus parents: diff changeset	5406	orgX := transformation translation x negated.
cf8e46015072 . claus parents: diff changeset	5407	].
cf8e46015072 . claus parents: diff changeset	5408
cf8e46015072 . claus parents: diff changeset	5409	count := nPixels.
cf8e46015072 . claus parents: diff changeset	5410	iw := self innerWidth.
cf8e46015072 . claus parents: diff changeset	5411
cf8e46015072 . claus parents: diff changeset	5412	((orgX + nPixels + iw) > wCont) ifTrue:[
cf8e46015072 . claus parents: diff changeset	5413	count := wCont - orgX - iw
cf8e46015072 . claus parents: diff changeset	5414	].
cf8e46015072 . claus parents: diff changeset	5415	(count <= 0) ifTrue:[^ self].
cf8e46015072 . claus parents: diff changeset	5416
cf8e46015072 . claus parents: diff changeset	5417	self originWillChange.
cf8e46015072 . claus parents: diff changeset	5418	newOrigin := (orgX + count) @ orgY.
cf8e46015072 . claus parents: diff changeset	5419
cf8e46015072 . claus parents: diff changeset	5420	shown ifFalse:[
cf8e46015072 . claus parents: diff changeset	5421	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5422	] ifTrue:[
cf8e46015072 . claus parents: diff changeset	5423	m2 := margin * 2.
cf8e46015072 . claus parents: diff changeset	5424	(count >= iw) ifTrue:[
cf8e46015072 . claus parents: diff changeset	5425	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5426	self redrawDeviceX:margin y:margin
cf8e46015072 . claus parents: diff changeset	5427	width:(width - m2)
cf8e46015072 . claus parents: diff changeset	5428	height:(height - m2).
cf8e46015072 . claus parents: diff changeset	5429	] ifFalse:[
cf8e46015072 . claus parents: diff changeset	5430	m2 := margin * 2.
cf8e46015072 . claus parents: diff changeset	5431	h := (height - m2).
cf8e46015072 . claus parents: diff changeset	5432
cf8e46015072 . claus parents: diff changeset	5433	self catchExpose.
cf8e46015072 . claus parents: diff changeset	5434	self setViewOrigin:newOrigin.
cf8e46015072 . claus parents: diff changeset	5435	self copyFrom:self x:(count + margin) y:margin
cf8e46015072 . claus parents: diff changeset	5436	toX:margin y:margin
cf8e46015072 . claus parents: diff changeset	5437	width:(width - m2 - count)
cf8e46015072 . claus parents: diff changeset	5438	height:h.
cf8e46015072 . claus parents: diff changeset	5439
cf8e46015072 . claus parents: diff changeset	5440	self setInnerClip.
cf8e46015072 . claus parents: diff changeset	5441	self redrawDeviceX:(width - margin - count) y:margin
cf8e46015072 . claus parents: diff changeset	5442	width:count height:(height - m2).
cf8e46015072 . claus parents: diff changeset	5443
cf8e46015072 . claus parents: diff changeset	5444	self waitForExpose.
cf8e46015072 . claus parents: diff changeset	5445	].
cf8e46015072 . claus parents: diff changeset	5446	].
cf8e46015072 . claus parents: diff changeset	5447	self originChanged:(count @ 0).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5448	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5449
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5450	scrollTo:newOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5451	"change origin to have newOrigin be visible at the top-left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5452	The argument defines the integer device coordinates of the new top-left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5453	point."
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	"due to historic reasons, the work is actually done by scrollUp/Down
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5456	scrollLeft/Right (those where implemented first).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5457	This will be changed to do all work here, and call it from
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5458	the other scrolling methods."
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	\|dX "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5461	dY "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5462	m2 "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5463	orgX "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5464	orgY "{ Class:SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5465
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5466	transformation isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5467	orgY := orgX := 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5468	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5469	orgY := transformation translation y negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5470	orgX := transformation translation x negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5471	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5472	dX := newOrigin x - orgX.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5473	dY := newOrigin y - orgY.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5474	dX = 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5475	dY < 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5476	^ self scrollUp:(dY negated).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5477	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5478	dY > 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5479	^ self scrollDown:dY.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5480	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5481	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5482	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5483	dY = 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5484	dX < 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5485	^ self scrollLeft:dX negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5486	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5487	dX > 0 ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5488	^ self scrollRight:dX
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5489	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5490	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5491
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5492	self originWillChange.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5493	self setViewOrigin:newOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5494	shown ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5495	m2 := margin * 2. "top & bottom margins"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5496	self redrawDeviceX:margin y:margin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5497	width:(width - m2)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5498	height:(height - m2).
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	self originChanged:(dX @ dY).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5501	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5502
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5503	scrollUp:nPixels
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5504	"change origin to scroll up (towards the origin) by some pixels"
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	\|count "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5507	m2 "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5508	w "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5509	h "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5510	orgX
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5511	orgY "{ Class:SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5512	newOrigin\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5513
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5514	transformation isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5515	orgY := orgX := 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5516	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5517	orgY := transformation translation y negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5518	orgX := transformation translation x negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5519	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5520
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5521	count := nPixels.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5522	(count > orgY) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5523	count := orgY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5524	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5525	(count <= 0) ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5526
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5527	self originWillChange.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5528	newOrigin := orgX @ (orgY - count).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5529
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5530	shown ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5531	self setViewOrigin:newOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5532	] ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5533	m2 := margin * 2. "top & bottom margins"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5534	(count >= self innerHeight) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5535	self setViewOrigin:newOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5536	self redrawDeviceX:margin y:margin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5537	width:(width - m2)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5538	height:(height - m2).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5539	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5540	h := height - m2 - count.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5541	w := width.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5542	self catchExpose.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5543	self setViewOrigin:newOrigin.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5544	self copyFrom:self x:margin y:margin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5545	toX:margin y:(count + margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5546	width:w height:h.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5547
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5548	self setInnerClip.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5549	self redrawDeviceX:margin y:margin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5550	width:(width - m2)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5551	height:count.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5552
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5553	self waitForExpose.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5554	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5555	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5556	self originChanged:(0 @ count negated).
135 cf8e46015072 . claus parents: diff changeset	5557	! !
cf8e46015072 . claus parents: diff changeset	5558
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5559	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5560
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5561	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5562	"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	5563	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5564	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	5565	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5566	can be opened as a topView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5567	This is redefined in ModalBox, which comes up modal (i.e.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5568	control is under the current process, so that interaction with the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5569	current group is blocked while the modalBox is active)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5570
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5571	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5572
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5573	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5574	View new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5575
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5576	(Button label:'hello') open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5577
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5578	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5579	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5580	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5581	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5582	top open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5583
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5584	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5585	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5586	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5587
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5588	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5589	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5590	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	5591	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	5592	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5593	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	5594	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	5595	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5596
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5597	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5598	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5599
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5600	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5601
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5602	\|v\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5603
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5604	v := View new open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5605	v displayLineFrom:0@0 to:50@50
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5606
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5607	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5608
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5609	\|v\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5610
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5611	v := View new openAndWait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5612	v displayLineFrom:0@0 to:50@50
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5613	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5614	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5615
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5616	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5617	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5618
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5619	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5620
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5621	"Created: 18.9.1995 / 23:30:43 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5622	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5623
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5624	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5625	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5626
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5627	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5628
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5629	"Created: 18.9.1995 / 23:30:56 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5630	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5631
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5632	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5633	"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	5634	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	5635	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	5636	autonomous from the topview. (see the fileBrowsers kill-button
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5637	when executing unix commands as an example)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5638
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5639	\|wg\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5640
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5641	ProcessorScheduler isPureEventDriven ifFalse:[
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5642	wg := WindowGroup new.
bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5643	self windowGroup:wg.
bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5644	wg addView:self.
bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5645	wg startup:false.
bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5646	wg isForModalSubview:true.
bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5647	self realizeInGroup.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5648	] ifTrue:[
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5649	self realize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5650	]
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5651
bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	5652	"Modified: 9.2.1996 / 00:17:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5653	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5654
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5655	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5656	"special open within another windowGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5657	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	5658	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5659	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5660
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5661	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5662	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5663
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5664	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5665	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5666	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5667	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	5668
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5669	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5670	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5671	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	5672	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5673	(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	5674
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5675	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5677	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5678	the same:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5679	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5680
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5681	YesNoBox new openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5683	different:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5684	(Button label:'hello') open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5685
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5686	(Button label:'hello') openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5687	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5688	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5689
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5690	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5691	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5692	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5693	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	5694	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5695	(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	5696	This makes any interaction with the current window impossible -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5697	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5698
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5699	^ self openModal:aBlock inGroup:WindowGroup activeGroup.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5700
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5701	"Created: 10.12.1995 / 14:06:45 / cg"
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5702	"Modified: 10.12.1995 / 14:08:48 / cg"
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5703	!
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5704
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5705	openModal:aBlock inGroup:mainGroup
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5706	"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	5707	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	5708	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	5709	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5710	(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	5711	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	5712	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	5713
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5714	\|tops\|
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5715
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5716	Processor activeProcessIsSystemProcess ifTrue:[
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5717	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5718	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	5719	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	5720	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	5721	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	5722	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	5723	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5724	windowGroup := mainGroup.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5725	mainGroup notNil ifTrue:[mainGroup addTopView:self].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5726	self realize
135 cf8e46015072 . claus parents: diff changeset	5727	] ifFalse:[
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5728	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5729	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	5730	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5731	mainGroup notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5732	self isPopUpView ifFalse:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5733	mainGroup showCursor:(Cursor stop).
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5734	]
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5735	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5736
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5737	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5738	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	5739	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5740	windowGroup := WindowGroup new.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5741	windowGroup addTopView:self.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5742
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5743	superView notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5744	"/
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5745	"/ special: this is a modal subview,
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5746	"/ 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	5747	"/ (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	5748	"/
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5749	windowGroup isForModalSubview:true.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5750	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5751
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5752	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5753	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	5754	(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	5755	"
426 7f0f723980e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 424 diff changeset	5756	AbortSignal handle:[:ex \|
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5757	self hide.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5758	ex return.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5759	] do:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5760	[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5761	windowGroup startupModal:[realized and:aBlock] forGroup:mainGroup
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5762	] valueOnUnwindDo:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5763	mainGroup notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5764	self isPopUpView ifFalse:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5765	mainGroup restoreCursors.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5766	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5767	mainGroup sensor flushUserEvents.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5768	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5769	self hide.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5770	]
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5771	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5772
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5773	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5774	restore cursors in the main group & flush its buffered events
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5775	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5776	mainGroup notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5777	mainGroup restoreCursors.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5778	mainGroup sensor flushUserEvents.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5779	].
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5780
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5781	ReturnFocusWhenClosingModalBoxes ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5782	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5783	return input focus to previously active groups top.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5784	This helps with windowmanagers which need an explicit click
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5785	on the view for the focus.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5786	"
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5787	mainGroup notNil ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5788	tops := mainGroup topViews.
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5789	(tops notNil and:[tops notEmpty]) ifTrue:[
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5790	tops first getKeyboardFocus
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5791	]
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5792	]
d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5793	]
135 cf8e46015072 . claus parents: diff changeset	5794	]
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5795
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	5796	"Created: 10.12.1995 / 14:06:14 / cg"
424 d3d266695780 dont show a waitCursor when opening a popUpView Claus Gittinger <cg@exept.de> parents: 422 diff changeset	5797	"Modified: 11.2.1996 / 14:38:24 / cg"
135 cf8e46015072 . claus parents: diff changeset	5798	!
cf8e46015072 . claus parents: diff changeset	5799
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5800	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5801	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5802	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5803
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5804	self origin:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5805	self create.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5806	device setTransient:drawableId for:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5807	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5808
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5809	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5810	View new openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5811
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5812	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5813	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5814
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5815	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5816	"Modified: 18.9.1995 / 23:32:26 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5817	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5819	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5820	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5821	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5822
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5823	^ self openModalAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5824
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5825	"Created: 18.9.1995 / 23:31:47 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5826	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5827
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5828	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5829	"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	5830	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	5831	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5832
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5833	ProcessorScheduler isPureEventDriven ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5834	windowGroup isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5835	windowGroup := WindowGroup new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5836	windowGroup addTopView:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5837	windowGroup startup:false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5838	] ifFalse:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5839	windowGroup startup:false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5840	self realizeInGroup.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5841	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5842	] ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5843	self realize
135 cf8e46015072 . claus parents: diff changeset	5844	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5845
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5846	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5847	the same:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5848	(Button label:'hello') open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5849
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5850	(Button label:'hello') openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5851
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5852	different:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5853	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5855	YesNoBox new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5856	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5857	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5858	(almost) the same:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5859	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5860
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5861	YesNoBox new openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5862
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5863	different:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5864	(Button label:'hello') open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5865
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5866	(Button label:'hello') openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5867	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5868	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5869
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5870	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5871	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5872	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5873
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5874	self origin:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5875	self create.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5876	device setTransient:drawableId for:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5877	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5879	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5880	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5882	View new openModelessAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5883	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5884
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5885	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5886	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5887
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5888	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5889	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5890	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5891
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5892	^ self openModelessAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5893
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5894	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5895	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5896
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5897	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5898	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5899
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5900	"Created: 18.9.1995 / 23:21:42 / claus"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5903	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5904	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5905	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	5906	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	5907	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5908	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	5909	in doIt expressions), or subsequent views depend on some state of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5910	another view (which is only available once visible),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5911	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	5912	Caveat:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5913	we poll here for the view to be shown - we need a semaphore
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5914	which is raised by the view in order to do it right."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5915
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5916	[self shown] whileFalse:[
371 cc32d8f8bc8d use new Delay-wait Claus Gittinger <cg@exept.de> parents: 370 diff changeset	5917	Delay waitForSeconds:0.05.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5918	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5919
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5920	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5921	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	5922	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5923
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5924	\|v\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5925
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5926	v := View new open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5927	v displayLineFrom:0@0 to:50@50
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5928
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5929	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5930	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5931
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5932	\|v\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5933
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5934	v := View new open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5935	v waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5936	v displayLineFrom:0@0 to:50@50
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5937	"
135 cf8e46015072 . claus parents: diff changeset	5938	! !
cf8e46015072 . claus parents: diff changeset	5939
cf8e46015072 . claus parents: diff changeset	5940	!SimpleView methodsFor:'user notification'!
cf8e46015072 . claus parents: diff changeset	5941
cf8e46015072 . claus parents: diff changeset	5942	warn:aString
cf8e46015072 . claus parents: diff changeset	5943	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	5944	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	5945
151 8123ec03c52f . claus parents: 145 diff changeset	5946	super warn:(resources string:aString) withCRs
135 cf8e46015072 . claus parents: diff changeset	5947	!
cf8e46015072 . claus parents: diff changeset	5948
cf8e46015072 . claus parents: diff changeset	5949	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	5950	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	5951	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	5952
151 8123ec03c52f . claus parents: 145 diff changeset	5953	super warn:(resources string:aString with:argument) withCRs
8123ec03c52f . claus parents: 145 diff changeset	5954	!
8123ec03c52f . claus parents: 145 diff changeset	5955
8123ec03c52f . claus parents: 145 diff changeset	5956	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	5957	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	5958	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	5959
8123ec03c52f . claus parents: 145 diff changeset	5960	super warn:(resources string:aString with:arg1 with:arg2) withCRs
135 cf8e46015072 . claus parents: diff changeset	5961	! !
cf8e46015072 . claus parents: diff changeset	5962
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5963	!SimpleView class methodsFor:'documentation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5964
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5965	version
489 97c51a9ec661 moved menu activation into separate method Claus Gittinger <cg@exept.de> parents: 484 diff changeset	5966	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.63 1996-03-04 20:34:55 cg Exp $'
135 cf8e46015072 . claus parents: diff changeset	5967	! !
cf8e46015072 . claus parents: diff changeset	5968	SimpleView initialize!

author	Claus Gittinger <cg@exept.de>
	Mon, 04 Mar 1996 21:35:29 +0100
changeset 489	97c51a9ec661
parent 484	7c8dd17a160e
child 490	1d2ed059a063
permissions	-rw-r--r--