hg/stx-libview: SimpleView.st@27aa9e5b15dd (annotated)

135 cf8e46015072 . claus parents: diff changeset	1	"
cf8e46015072 . claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	4
cf8e46015072 . claus parents: diff changeset	5	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	6	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	9	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	10	hereby transferred.
cf8e46015072 . claus parents: diff changeset	11	"
cf8e46015072 . claus parents: diff changeset	12
1931 27aa9e5b15dd * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	13	'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:12:35 pm' !
1890 126f70e5fe6a * empty log message * Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	14
727 bf23a306b6f2 renamed PseudoView to DisplaySurface Claus Gittinger <cg@exept.de> parents: 724 diff changeset	15	DisplaySurface subclass:#SimpleView
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	16	instanceVariableNames:'superView subViews components styleSheet resources borderColor
1931 27aa9e5b15dd * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	17	borderWidth viewShape top left extentChanged originChanged
27aa9e5b15dd * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	18	cornerChanged relativeOrigin relativeExtent relativeCorner
27aa9e5b15dd * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	19	originRule extentRule cornerRule insets layout shown
27aa9e5b15dd * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	20	hiddenOnRealize name level margin innerClipRect shadowColor
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	21	lightColor bitGravity viewGravity controller windowGroup
1743 ad42ac21bc96 * empty log message * Claus Gittinger <cg@exept.de> parents: 1736 diff changeset	22	preferredExtent explicitExtent dependents'
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	23	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	24	DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	25	DefaultShadowColor DefaultBorderWidth DefaultFocusColor
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	26	DefaultFocusBorderWidth ReturnFocusWhenClosingModalBoxes'
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	27	poolDictionaries:''
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	28	category:'Views-Basic'
135 cf8e46015072 . claus parents: diff changeset	29	!
cf8e46015072 . claus parents: diff changeset	30
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	31	SimpleView class instanceVariableNames:'ClassResources DefaultFont'
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	32
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	33	"
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	34	The following class instance variables are inherited by this class:
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	35
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	36	DisplaySurface -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	37	GraphicsMedium -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	38	DeviceGraphicsContext -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	39	GraphicsContext -
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	40	Object -
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	41	"
140 0db355079dc4 . claus parents: 138 diff changeset	42	!
135 cf8e46015072 . claus parents: diff changeset	43
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	44	Object subclass:#ViewShape
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	45	instanceVariableNames:'viewShapeForm borderShapeForm'
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	46	classVariableNames:''
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	47	poolDictionaries:''
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	48	privateIn:SimpleView
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	49	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	50
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	51	!SimpleView class methodsFor:'documentation'!
135 cf8e46015072 . claus parents: diff changeset	52
cf8e46015072 . claus parents: diff changeset	53	copyright
cf8e46015072 . claus parents: diff changeset	54	"
cf8e46015072 . claus parents: diff changeset	55	COPYRIGHT (c) 1989 by Claus Gittinger
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	56	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	57
cf8e46015072 . claus parents: diff changeset	58	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	59	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	60	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	61	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	62	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	63	hereby transferred.
cf8e46015072 . claus parents: diff changeset	64	"
cf8e46015072 . claus parents: diff changeset	65	!
cf8e46015072 . claus parents: diff changeset	66
cf8e46015072 . claus parents: diff changeset	67	documentation
cf8e46015072 . claus parents: diff changeset	68	"
cf8e46015072 . claus parents: diff changeset	69	this class implements functions common to all Views which do not work on / show a model.
cf8e46015072 . claus parents: diff changeset	70	Previously, all of this functionality used to be in the old View class, but has been
cf8e46015072 . claus parents: diff changeset	71	separated into this new SimpleView (which does not know about models) and the new View, which
cf8e46015072 . claus parents: diff changeset	72	does so.
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	73	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	74	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	75	(there are simply too many subclasses of View around ...).
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	76
135 cf8e46015072 . claus parents: diff changeset	77	Instances of SimpleView are seldom used, most views in the system inherit
cf8e46015072 . claus parents: diff changeset	78	from this class.
cf8e46015072 . claus parents: diff changeset	79	However, sometimes a view is used to create a dummy view for framing
cf8e46015072 . claus parents: diff changeset	80	or layout purposes.
cf8e46015072 . claus parents: diff changeset	81
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	82	[Instance variables:]
135 cf8e46015072 . claus parents: diff changeset	83
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	84	superView <View> my superview i.e. the view I am in
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	85
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	86	subViews <Collection> the collection of subviews
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	87
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	88	components <Collection> collection of gadgets (will be merged with subViews, soon)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	89
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	90	borderColor <Color> color of border
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	91
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	92	borderWidth <Number> borderWidth in pixels (device dep.)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	93
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	94	viewShape <Form> shape of view & border (if device supports it)
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	95
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	96	top <Number> actual top coordinate (pixels) in superview
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	97
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	98	left <Number> actual left coordinate (pixels) in superview
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	99
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	100	extendChanged <Boolean> true if extend changed during setup
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	101
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	102	originChanged <Boolean> true if origin changed during setup
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	103
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	104	relativeOrigin <Number> relative origin in percent within superview
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	105
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	106	relativeExtent <Number> relative extent in percent within superview
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	107
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	108	relativeCorner <Number> relative corner in percent within superview
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	109
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	110	originRule <Block> rule to compute origin if superview changes size
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	111
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	112	extentRule <Block> rule to compute extent if superview changes size
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	113
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	114	cornerRule <Block> rule to compute corner if superview changes size
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	115
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	116	insets <Array> array with top, left, bottom & right insets (or nil)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	117
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	118	layout <LayoutObject> not yet implemented - will replace the above layout
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	119	variables.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	120
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	121	shown <Boolean> true if visible (false if iconified, unmapped or covered)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	122
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	123	hiddenOnRealize <Boolean> dont show automatically when superview is realized
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	124
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	125	name <String> my name (future use for resources)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	126
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	127	level <Number> 3D level relative to superview
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	128
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	129	margin <Number> convenient margin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	130
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	131	innerClipRect <Rectangle> convenient inner clip (minus margin)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	132
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	133	shadowColor <Color> color used to draw 3D shadowed edges
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	134
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	135	lightColor <Color> color used to draw 3D lighted edges
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	136
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	137	bitGravity <nil \| Symbol> gravity of contents (if device supports it)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	138
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	139	viewGravity <nil \| Symbol> gravity of view (if device supports it)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	140
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	141	controller <nil \| Controller> the controller (if any)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	142
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	143	windowGroup <WindowGroup> the windowGroup
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	144
135 cf8e46015072 . claus parents: diff changeset	145
cf8e46015072 . claus parents: diff changeset	146
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	147	[Class variables:]
135 cf8e46015072 . claus parents: diff changeset	148
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	149	Grey <Color> the color grey - its used so often
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	150
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	151	ViewSpacing <Number> preferred spacing between views; 1mm
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	152
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	153	CentPoint <Point> 100 @ 100 - its used so often
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	154
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	155	StyleSheet <ResourcePack> contains all view-style specifics
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	156
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	157	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	158	<Boolean> the keyboard focus to the view which was
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	159	active when the box was opened.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	160	If false (the default), it is left to
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	161	window manager to assign a new focus.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	162	If running on olwm/olvwm (which requires an
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	163	explicit click to reassign a focus), it is
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	164	better to turn this on in a private.rc file.
135 cf8e46015072 . claus parents: diff changeset	165
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	166	[styleSheet parameters:]
135 cf8e46015072 . claus parents: diff changeset	167
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	168	popupShadow <Boolean> if true, popupViews show a shadow below
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	169
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	170	popupLevel <nil \| Integer> 3D level
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	171
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	172	borderWidth <nil \| Integer> borderWidth (ignored in 3D styles)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	173
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	174	borderColor <nil \| Color> borderColor (ignored in 3D styles)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	175
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	176	viewBackground <nil \| Color> views background
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	177
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	178	shadowColor <nil \| Color> color for shadow edges (ignored in 2D styles)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	179
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	180	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	181
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	182	font <nil \| Font> font to use
135 cf8e46015072 . claus parents: diff changeset	183
cf8e46015072 . claus parents: diff changeset	184
cf8e46015072 . claus parents: diff changeset	185	TODO:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	186	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	187	and insets; replace by a single object which defines the size
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	188	(mhmh - ST-80 seems to call this LayoutFrame ?)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	189	-> be prepared for a change here in the near future and ONLY use
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	190	access methods to get those instance variables' values
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	191
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	192	get rid of 3D level & margin, move it to extra wrappers
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	193	(although this will make view setup more complicated, it will remove
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	194	complexity from the internals of view. Also, it will allow for more
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	195	varieties of borders.)
151 8123ec03c52f . claus parents: 145 diff changeset	196
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	197	add components (could also call them gadgets or lightweight views)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	198	- views are expensive in terms of X resources. This would make all
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	199	framing/edge and panel helper views become cheap ST objects, instead
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	200	of views.
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	201
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	202
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	203	[see also:]
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	204	StandardSystemView DialogBox
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	205	WindowGroup WindowEvent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	206	Layout
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	207	( introduction to view programming :html: programming/viewintro.html )
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	208
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	209	[author:]
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	210	Claus Gittinger
135 cf8e46015072 . claus parents: diff changeset	211	"
151 8123ec03c52f . claus parents: 145 diff changeset	212	!
8123ec03c52f . claus parents: 145 diff changeset	213
8123ec03c52f . claus parents: 145 diff changeset	214	examples
8123ec03c52f . claus parents: 145 diff changeset	215	"
8123ec03c52f . claus parents: 145 diff changeset	216	(all examples below use different viewBackgrounds,
8123ec03c52f . claus parents: 145 diff changeset	217	to make the individual subviews visible)
8123ec03c52f . claus parents: 145 diff changeset	218
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	219	a subView in a topView:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	220	[exBegin]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	221	\|top v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	222
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	223	topView := StandardSystemView new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	224	v := View new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	225	v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	226	top addSubView:v.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	227	top open
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	228	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	229
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	230
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	231	the same, a bit more compact:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	232	[exBegin]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	233	\|top v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	234
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	235	topView := StandardSystemView new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	236	v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:topView.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	237	top open
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	238	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	239
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	240
151 8123ec03c52f . claus parents: 145 diff changeset	241	fixed position/size:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	242	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	243	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	244
8123ec03c52f . claus parents: 145 diff changeset	245	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	246	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	247
8123ec03c52f . claus parents: 145 diff changeset	248	v1 := View origin:10@10
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	249	corner:50@50
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	250	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	251	v2 := View origin:60@10
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	252	corner:150@100
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	253	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	254
8123ec03c52f . claus parents: 145 diff changeset	255	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	256	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	257
8123ec03c52f . claus parents: 145 diff changeset	258	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	259	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	260
8123ec03c52f . claus parents: 145 diff changeset	261	same, using ST-80 way of bulding up view hierarchies
8123ec03c52f . claus parents: 145 diff changeset	262	(recommended, if you plan to port applications later)
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	263	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	264	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	265
8123ec03c52f . claus parents: 145 diff changeset	266	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	267	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	268
8123ec03c52f . claus parents: 145 diff changeset	269	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	270	v1 origin:10@10 corner:50@50.
8123ec03c52f . claus parents: 145 diff changeset	271
8123ec03c52f . claus parents: 145 diff changeset	272	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	273	v2 origin:60@10 corner:150@100.
8123ec03c52f . claus parents: 145 diff changeset	274
8123ec03c52f . claus parents: 145 diff changeset	275	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	276	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	277
8123ec03c52f . claus parents: 145 diff changeset	278	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	279	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	280
8123ec03c52f . claus parents: 145 diff changeset	281	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	282	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	283
8123ec03c52f . claus parents: 145 diff changeset	284	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	285	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	286
8123ec03c52f . claus parents: 145 diff changeset	287	fixed origin, variable size:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	288	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	289	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	290
8123ec03c52f . claus parents: 145 diff changeset	291	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	292	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	293
8123ec03c52f . claus parents: 145 diff changeset	294	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	295	v1 origin:10@10 corner:50@0.5.
8123ec03c52f . claus parents: 145 diff changeset	296
8123ec03c52f . claus parents: 145 diff changeset	297	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	298	v2 origin:60@10 corner:150@0.5.
8123ec03c52f . claus parents: 145 diff changeset	299
8123ec03c52f . claus parents: 145 diff changeset	300	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	301	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	302
8123ec03c52f . claus parents: 145 diff changeset	303	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	304	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	305
8123ec03c52f . claus parents: 145 diff changeset	306	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	307	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	308
8123ec03c52f . claus parents: 145 diff changeset	309	fixed origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	310	bottomInset for constant distance from bottom:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	311	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	312	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	313
8123ec03c52f . claus parents: 145 diff changeset	314	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	315	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	316
8123ec03c52f . claus parents: 145 diff changeset	317	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	318	v1 origin:10@10 corner:50@1.0.
8123ec03c52f . claus parents: 145 diff changeset	319	v1 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	320
8123ec03c52f . claus parents: 145 diff changeset	321	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	322	v2 origin:60@10 corner:150@1.0.
8123ec03c52f . claus parents: 145 diff changeset	323	v2 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	324
8123ec03c52f . claus parents: 145 diff changeset	325	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	326	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	327
8123ec03c52f . claus parents: 145 diff changeset	328	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	329	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	330
8123ec03c52f . claus parents: 145 diff changeset	331	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	332	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	333
8123ec03c52f . claus parents: 145 diff changeset	334	variable origin, variable size,
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	335	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	336	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	337
8123ec03c52f . claus parents: 145 diff changeset	338	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	339	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	340
8123ec03c52f . claus parents: 145 diff changeset	341	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	342	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	343
8123ec03c52f . claus parents: 145 diff changeset	344	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	345	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	346
8123ec03c52f . claus parents: 145 diff changeset	347	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	348	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	349
8123ec03c52f . claus parents: 145 diff changeset	350	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	351	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	352
8123ec03c52f . claus parents: 145 diff changeset	353	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	354	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	355
8123ec03c52f . claus parents: 145 diff changeset	356	variable origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	357	insets for some constant distance
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	358	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	359	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	360
8123ec03c52f . claus parents: 145 diff changeset	361	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	362	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	363
8123ec03c52f . claus parents: 145 diff changeset	364	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	365	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	366	v1 rightInset:5.
8123ec03c52f . claus parents: 145 diff changeset	367
8123ec03c52f . claus parents: 145 diff changeset	368	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	369	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	370	v2 leftInset:5.
8123ec03c52f . claus parents: 145 diff changeset	371
8123ec03c52f . claus parents: 145 diff changeset	372	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	373	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	374
8123ec03c52f . claus parents: 145 diff changeset	375	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	376	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	377
8123ec03c52f . claus parents: 145 diff changeset	378	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	379	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	380
8123ec03c52f . claus parents: 145 diff changeset	381	using layout objects (ST-80 style):
8123ec03c52f . claus parents: 145 diff changeset	382	fully specifying the frame
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	383	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	384	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	385
8123ec03c52f . claus parents: 145 diff changeset	386	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	387	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	388
8123ec03c52f . claus parents: 145 diff changeset	389	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	390	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	391
8123ec03c52f . claus parents: 145 diff changeset	392	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	393	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	394
8123ec03c52f . claus parents: 145 diff changeset	395	top add:v1 in:(LayoutFrame new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	396	leftFraction:0.25;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	397	rightFraction:0.75;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	398	topFraction:0.0;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	399	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	400	top add:v2 in:(LayoutFrame new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	401	leftFraction:0.5;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	402	rightFraction:1.0;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	403	topFraction:0.5;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	404	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	405
8123ec03c52f . claus parents: 145 diff changeset	406	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	407	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	408
8123ec03c52f . claus parents: 145 diff changeset	409	another one, with offsets:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	410	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	411	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	412
8123ec03c52f . claus parents: 145 diff changeset	413	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	414	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	415
8123ec03c52f . claus parents: 145 diff changeset	416	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	417	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	418
8123ec03c52f . claus parents: 145 diff changeset	419	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	420	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	421
8123ec03c52f . claus parents: 145 diff changeset	422	top add:v1 in:(LayoutFrame new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	423	leftFraction:0.0 offset:10;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	424	rightFraction:1.0 offset:-10;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	425	topFraction:0.0 offset:10;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	426	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	427	top add:v2 in:(LayoutFrame new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	428	leftFraction:0.0 offset:30;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	429	rightFraction:1.0 offset:-30;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	430	topFraction:0.5 offset:10;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	431	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	432
8123ec03c52f . claus parents: 145 diff changeset	433	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	434	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	435
8123ec03c52f . claus parents: 145 diff changeset	436	specifying origin only. Extent is views preferred
8123ec03c52f . claus parents: 145 diff changeset	437	(notice, that plain views have some defaultExtent of 100@100)
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	438	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	439	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	440
8123ec03c52f . claus parents: 145 diff changeset	441	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	442	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	443
8123ec03c52f . claus parents: 145 diff changeset	444	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	445	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	446
8123ec03c52f . claus parents: 145 diff changeset	447	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	448	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	449
8123ec03c52f . claus parents: 145 diff changeset	450	top add:v1 in:(LayoutOrigin new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	451	leftFraction:0.25;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	452	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	453	top add:v2 in:(LayoutOrigin new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	454	leftFraction:0.5;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	455	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	456
8123ec03c52f . claus parents: 145 diff changeset	457	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	458	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	459
8123ec03c52f . claus parents: 145 diff changeset	460	same example, using buttons which compute their preferredBounds:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	461	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	462	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	463
8123ec03c52f . claus parents: 145 diff changeset	464	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	465	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	466
8123ec03c52f . claus parents: 145 diff changeset	467	v1 := Button label:'foo'.
8123ec03c52f . claus parents: 145 diff changeset	468	v2 := Button label:'a very long buttonLabel'.
8123ec03c52f . claus parents: 145 diff changeset	469
8123ec03c52f . claus parents: 145 diff changeset	470	v1 backgroundColor:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	471	v2 backgroundColor:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	472
8123ec03c52f . claus parents: 145 diff changeset	473	top add:v1 in:(LayoutOrigin new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	474	leftFraction:0.25;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	475	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	476	top add:v2 in:(LayoutOrigin new
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	477	leftFraction:0.5;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	478	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	479
8123ec03c52f . claus parents: 145 diff changeset	480	top open
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	481	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	482	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	483	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	484
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	485	layoutComputation
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	486	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	487	Due to historic reasons, there are 2 mechanisms to resize a view:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	488	- (old, to be eliminated mechanism)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	489	based upon info found in
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	490	relativeOrigin / relativeCorner / relativeExtent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	491	originRule / cornerRule / extentRule
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	492
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	493	- (new, will migrate to that one)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	494	letting a layoutObject compute things
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	495
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	496	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	497	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	498	geometry is desired.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	499	However, having 6 instance variables in every view creates some overhead,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	500	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	501	relative-sized).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	502	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	503	to use layoutObjects.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	504	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	505	existing interfaces will (silently) create layoutObjects as appropriate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	506	However, you should remove all direct accesses to the above mentioned
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	507	instance variables, to be prepared for that change.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	508
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	509	Notice, that a view recomputes its size whenever its superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	510	changes size. This is done via:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	511	sizeChanged
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	512	-> allSubviews: superViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	513
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	514	If the geometry computation as performed in superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	515	is not powerful enough for your application, you can either:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	516	- redefine superViewChangedSize
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	517	- create a special layoutObject which computes a new layout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	518	"
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	519	!
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	520
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	521	popupMenus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	522	"
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	523	Due to historic reasons, there are multiple mechanisms for popupMenu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	524	definition:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	525
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	526	- static menus
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	527
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	528	- dynamic menus from the view
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	529
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	530	- dynamic menus from the model / menuHolder
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	531
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	532
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	533	static menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	534	------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	535
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	536	The easiest to use is a static menu; this is useful, if some view
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	537	has a constant menu which never changes.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	538	It can be defined at initialization time or redefined any time later.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	539	The menu is defined with:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	540
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	541	someView middleButtonMenu:<aPopUpMenu>
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	542
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	543	Compatibility note:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	544	static menus should no longer be used - their operation
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	545	is incompatible with ST-80 and ST/X's dynamic menus.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	546	Do not use them if you care for compatibility.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	547	Also, they do not care for any menuPerformers or menuHolders.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	548	(instead, they use a receiver instance variable, which gets the messages).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	549
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	550	example:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	551	\|top v1 v2\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	552
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	553	top := StandardSystemView new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	554	top extent:300@300.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	555
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	556	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	557	v1 viewBackground:Color red.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	558
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	559	v2 := View origin:0.5@0.0 corner:1.0@1.0 in:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	560	v2 viewBackground:Color yellow.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	561
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	562	v1 middleButtonMenu:(
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	563	PopUpMenu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	564	labels:#('foo' 'bar')
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	565	selectors:#(foo bar)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	566	receiver:v1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	567	).
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	568
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	569	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	570
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	571
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	572
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	573	dynamic menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	574	-------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	575
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	576	A dynamic menu can be provided by the view itself, or by the model.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	577	In addition, TextViews allow a separate menuHolder to provide the menu
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	578	(i.e. it may be different from the model).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	579	If the model shall provide the menu, set the views menuMessage to a selector
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	580	which is sent to the model. This message should return a popUpMenu.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	581
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	582	For textViews, the above is also valid, except if the menuHolder is explicitely
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	583	set - in this case, that one provides the menu; not the model.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	584	Dont get confused by the fact that menuHolders are only supported
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	585	by textViews.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	586
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	587	example: (in your application, the plug would be your application, topView or model)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	588	Notice, that all menu messages are sent to the view (because no model was set)
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	589	- so the textView still performs the copy-function correctly
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	590	(but of course, does not respond to the fooBar messages).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	591	If a model was set, the menu would try the model first, but send its messages
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	592	to the view IFF the model would not respond to the menu message.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	593	(this allows mixing of menu messages for the view AND the model).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	594
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	595	\|top v1 v2 holder\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	596
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	597	holder := Plug new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	598	holder respondTo:#menu1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	599	with:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	600	v1 menuMessage:#otherMenu1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	601	PopUpMenu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	602	labels:#('foo' 'bar')
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	603	selectors:#(foo bar).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	604	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	605	holder respondTo:#otherMenu1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	606	with:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	607	v1 menuMessage:#menu1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	608	PopUpMenu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	609	labels:#('other foo' 'other bar')
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	610	selectors:#(foo bar).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	611	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	612	holder respondTo:#menu2
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	613	with:[ PopUpMenu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	614	labels:#('copy' 'bar2')
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	615	selectors:#(copySelection bar2)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	616	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	617
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	618	top := StandardSystemView new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	619	top extent:300@300.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	620
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	621	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	622	v1 viewBackground:Color red.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	623
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	624	v2 := TextView origin:0.5@0.0 corner:1.0@1.0 in:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	625	v2 contents:'pop me up'.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	626
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	627	v1 model:holder; menuMessage:#menu1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	628	v2 menuHolder:holder; menuMessage:#menu2.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	629
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	630	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	631
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	632	an additional goody is the possibility, to change the menuPerformer (textViews only).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	633	If defined, that one will get the menus message (instead of the model/view).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	634	However, like above, if it does not respond to the message, its still sent to
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	635	the view. Notice, that with non-textViews, the menuPerformer is always the model.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	636
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	637	example:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	638	(Notice: the executor understands the #copySelection message - therefore, the
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	639	views built-in copy is NOT performed
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	640	- it could be forwarded to the view, though.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	641	This could be useful to intercept/filter things).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	642
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	643	\|top v menuProvider menuExecutor \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	644
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	645	menuProvider := Plug new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	646	menuProvider respondTo:#menu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	647	with:[ PopUpMenu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	648	labels:#('copy' 'foo')
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	649	selectors:#(copySelection foo)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	650	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	651
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	652	menuExecutor := Plug new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	653	menuExecutor respondTo:#copySelection
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	654	with:[Transcript showCR:'copy function'].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	655	menuExecutor respondTo:#foo
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	656	with:[Transcript showCR:'foo function'].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	657
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	658	top := StandardSystemView new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	659	top extent:300@300.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	660
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	661	v := TextView origin:0.0@0.0 corner:1.0@1.0 in:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	662	v contents:'pop me up'.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	663
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	664	v menuHolder:menuProvider; menuMessage:#menu.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	665	v menuPerformer:menuExecutor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	666
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	667	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	668	"
135 cf8e46015072 . claus parents: diff changeset	669	! !
cf8e46015072 . claus parents: diff changeset	670
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	671	!SimpleView class methodsFor:'initialization'!
135 cf8e46015072 . claus parents: diff changeset	672
cf8e46015072 . claus parents: diff changeset	673	initialize
cf8e46015072 . claus parents: diff changeset	674	DefaultStyle isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	675	Font initialize.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	676	Form initialize.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	677	Color initialize.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	678
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	679	"/ Display notNil ifTrue:[
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	680	"/ self defaultStyle:#normal.
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	681	"/ ].
135 cf8e46015072 . claus parents: diff changeset	682
cf8e46015072 . claus parents: diff changeset	683	"/ self updateStyleCache.
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	684	self == SimpleView ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	685	Smalltalk addDependent:self "/ to get language changes
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	686	]
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	687	].
365 347a478d8cf5 default returnFocus to false Claus Gittinger <cg@exept.de> parents: 364 diff changeset	688	ReturnFocusWhenClosingModalBoxes := false.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	689
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	690	"Modified: 18.5.1996 / 16:56:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	691	!
cf8e46015072 . claus parents: diff changeset	692
cf8e46015072 . claus parents: diff changeset	693	postAutoload
cf8e46015072 . claus parents: diff changeset	694	self updateStyleCache.
cf8e46015072 . claus parents: diff changeset	695	! !
cf8e46015072 . claus parents: diff changeset	696
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	697	!SimpleView class methodsFor:'instance creation'!
135 cf8e46015072 . claus parents: diff changeset	698
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	699	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	700	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	701
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	702	^ self origin:nil extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	703	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	704	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	705
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	706	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	707	"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	708
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	709	^ self origin:nil extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	710	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	711	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	712
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	713	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	714	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	715
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	716	^ self origin:nil extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	717	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	718	!
cf8e46015072 . claus parents: diff changeset	719
cf8e46015072 . claus parents: diff changeset	720	in:aView
cf8e46015072 . claus parents: diff changeset	721	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	722	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	723	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	724	by adding it to the superview via #addSubView:.
1918 a4042019bc8b no need to set the container twice in SimpleView class>>in: Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	725	If its later realized and no superview has ever been set,
a4042019bc8b no need to set the container twice in SimpleView class>>in: Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	726	it will come up as a topview."
135 cf8e46015072 . claus parents: diff changeset	727
cf8e46015072 . claus parents: diff changeset	728	\|newView\|
cf8e46015072 . claus parents: diff changeset	729
cf8e46015072 . claus parents: diff changeset	730	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	731	aView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	732	newView device:(aView graphicsDevice).
1918 a4042019bc8b no need to set the container twice in SimpleView class>>in: Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	733	"/ newView container:aView.
135 cf8e46015072 . claus parents: diff changeset	734	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	735	newView device:Screen current "Display"
135 cf8e46015072 . claus parents: diff changeset	736	].
cf8e46015072 . claus parents: diff changeset	737	newView initialize.
cf8e46015072 . claus parents: diff changeset	738	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	739	^ newView
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	740
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	741	"Modified: 28.5.1996 / 20:24:58 / cg"
135 cf8e46015072 . claus parents: diff changeset	742	!
cf8e46015072 . claus parents: diff changeset	743
140 0db355079dc4 . claus parents: 138 diff changeset	744	label:label
0db355079dc4 . claus parents: 138 diff changeset	745	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	746
cf8e46015072 . claus parents: diff changeset	747	^ self origin:nil extent:nil borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	748	font:nil label:label in:nil
140 0db355079dc4 . claus parents: 138 diff changeset	749	!
0db355079dc4 . claus parents: 138 diff changeset	750
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	751	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	752	"create a new view as subview of aView with given label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	753
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	754	^ self origin:nil extent:nil borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	755	font:nil label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	756	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	757
1393 0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	758	model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	759	"st-80 style view creation: create a new view and set its model.
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	760	Notice, that simpleViews do not understand #model:; however,
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	761	subclasses may."
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	762
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	763	^ self new model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	764
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	765	"Created: 28.2.1997 / 19:27:40 / cg"
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	766	"Modified: 28.2.1997 / 19:28:12 / cg"
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	767	!
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	768
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	769	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	770	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	772	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	773	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	774	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	775	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	776	^ self new model:aModel.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	777	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	778
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	779	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	780	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	781	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	782	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	783
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	784	\|device\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	785
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	786	anotherView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	787	device := anotherView graphicsDevice.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	788	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	789	device := Screen current.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	790	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	791	^ self onDevice:device
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	792
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	793	"Modified: 28.5.1996 / 20:25:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	794	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	795
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	796	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	797	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	798
140 0db355079dc4 . claus parents: 138 diff changeset	799	^ self origin:origin corner:corner borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	800	font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	801	!
cf8e46015072 . claus parents: diff changeset	802
cf8e46015072 . claus parents: diff changeset	803	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	804	\|newView\|
cf8e46015072 . claus parents: diff changeset	805
cf8e46015072 . claus parents: diff changeset	806	aView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	807	newView := self basicNew.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	808	newView device:(aView graphicsDevice).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	809	newView initialize.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	810	aView addSubView:newView.
135 cf8e46015072 . claus parents: diff changeset	811	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	812	newView := self onDevice:Screen current "Display"
135 cf8e46015072 . claus parents: diff changeset	813	].
cf8e46015072 . claus parents: diff changeset	814	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	815	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	816	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	817	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	818	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	819	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	820
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	821	"Modified: 28.5.1996 / 20:25:15 / cg"
135 cf8e46015072 . claus parents: diff changeset	822	!
cf8e46015072 . claus parents: diff changeset	823
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	824	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	825	"create a new view as a subview of aView with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	826
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	827	^ self origin:origin corner:corner borderWidth:bw
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	828	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	829	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	831	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	832	"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	833
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	834	^ self origin:origin corner:corner borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	835	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	836	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	837
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	838	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	839	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	840
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	841	^ self origin:origin extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	842	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	843	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	845	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	846	"create a new view with given origin, extent and borderWidth"
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	^ self origin:origin extent:extent borderWidth:bw
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	849	font:nil label:nil in:nil
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	852	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	853	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	855	aView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	856	newView := self basicNew.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	857	newView device:(aView graphicsDevice).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	858	newView initialize.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	859	aView addSubView:newView.
140 0db355079dc4 . claus parents: 138 diff changeset	860	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	861	newView := self onDevice:Screen current "Display"
140 0db355079dc4 . claus parents: 138 diff changeset	862	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	863	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	864	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	865	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	866	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	867	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	868	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	869
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	870	"Modified: 28.5.1996 / 20:25:19 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	871	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	872
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	873	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	874	"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	875	and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	876
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	877	^ self origin:origin extent:extent borderWidth:bw
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	878	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	879	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	880
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	881	origin:origin extent:extent font:aFont label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	882	^ self origin:origin extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	883	font:nil label:label in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	884	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	885
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	886	origin:origin extent:extent font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	887	^ self origin:origin extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	888	font:aFont label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	889	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	890
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	891	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	892	"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	893
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	894	^ self origin:origin extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	895	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	896	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	897
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	898	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	899	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	900
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	901	^ self origin:origin extent:extent borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	902	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	903	!
cf8e46015072 . claus parents: diff changeset	904
cf8e46015072 . claus parents: diff changeset	905	origin:anOrigin extent:anExtent
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	906	label:aLabel icon:aForm
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	907	minExtent:minExtent maxExtent:maxExtent
135 cf8e46015072 . claus parents: diff changeset	908	\|newView\|
cf8e46015072 . claus parents: diff changeset	909
151 8123ec03c52f . claus parents: 145 diff changeset	910	newView := self onDevice:Screen current "Display".
135 cf8e46015072 . claus parents: diff changeset	911	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	912	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	913	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	914	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	915	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	916	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	917	^ newView
cf8e46015072 . claus parents: diff changeset	918	!
cf8e46015072 . claus parents: diff changeset	919
140 0db355079dc4 . claus parents: 138 diff changeset	920	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	921	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	922
0db355079dc4 . claus parents: 138 diff changeset	923	^ self origin:origin extent:nil borderWidth:nil
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	924	font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	925	! !
cf8e46015072 . claus parents: diff changeset	926
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	927	!SimpleView class methodsFor:'change & update'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	928
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	929	update:something with:aParameter from:changedObject
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	930	something == #Language ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	931	"flush resources on language changes"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	932	self flushAllClassResources
135 cf8e46015072 . claus parents: diff changeset	933	]
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	934
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	935	"Created: 15.6.1996 / 15:23:04 / cg"
135 cf8e46015072 . claus parents: diff changeset	936	! !
cf8e46015072 . claus parents: diff changeset	937
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	938	!SimpleView class methodsFor:'defaults'!
135 cf8e46015072 . claus parents: diff changeset	939
140 0db355079dc4 . claus parents: 138 diff changeset	940	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	941	"return the default extent of my instances.
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	942	The value returned here is usually ignored, and
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	943	the value from preferredExtent taken instead."
140 0db355079dc4 . claus parents: 138 diff changeset	944
0db355079dc4 . claus parents: 138 diff changeset	945	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	946	^ CentPoint
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	947
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	948	"Modified: 22.4.1996 / 23:38:39 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	949	!
0db355079dc4 . claus parents: 138 diff changeset	950
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	951	defaultFont
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	952	\|f\|
0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	953
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	954	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	955
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	956	DefaultFont isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	957	self == SimpleView ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	958	f := self superclass defaultFont.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	959	] ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	960	f := super defaultFont
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	961	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	962	].
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	963
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	964	f notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	965	DefaultFont := f.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	966	f := f on:Display.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	967	f notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	968	DefaultFont := f.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	969	]
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	970	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	971	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	972
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	973	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	974	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	975
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	976	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	977	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	978
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	979	\|f\|
39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	980
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	981	DefaultFont := aFont.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	982	aFont notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	983	f := aFont on:Display.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	984	f notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	985	DefaultFont := f.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	986	]
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	987	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	988
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	989	"Modified: 18.3.1996 / 12:56:20 / cg"
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	990	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	991
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	992	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	993	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	994
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	995	^ DefaultStyle
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	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	998	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	999	"
135 cf8e46015072 . claus parents: diff changeset	1000	!
cf8e46015072 . claus parents: diff changeset	1001
cf8e46015072 . claus parents: diff changeset	1002	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	1003	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	1004
180 0b3a8658d55e . claus parents: 176 diff changeset	1005	"/ aStyle ~~ DefaultStyle ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1006	DefaultStyle := aStyle.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1007	self updateAllStyleCaches.
180 0b3a8658d55e . claus parents: 176 diff changeset	1008	"/ ]
135 cf8e46015072 . claus parents: diff changeset	1009
cf8e46015072 . claus parents: diff changeset	1010	"
cf8e46015072 . claus parents: diff changeset	1011	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1012	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1013	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1014	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1015	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1016	"
cf8e46015072 . claus parents: diff changeset	1017	!
cf8e46015072 . claus parents: diff changeset	1018
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1019	defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1020	"return the default view background"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1021
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1022	^ DefaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1023
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1024	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1025	View defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1026	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1027
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1028	"Modified: 13.8.1997 / 19:37:55 / cg"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1029	!
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1030
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1031	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1032	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1033	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1034
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1035	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1036	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1037
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1038	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1039	"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	1040	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	1041	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	1042	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	1043	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	1044	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	1045	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	1046	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	1047	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	1048	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1049
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1050	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1051
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1052	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1053	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1054	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1055	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1056	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1057
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1058	styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1059	"return the view style sheet information (a dictionary)"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1060
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1061	^ StyleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1062
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1063	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1064	View styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1065	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1066
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1067	"Modified: 9.1.1997 / 13:47:42 / cg"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1068	!
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1069
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1070	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1071	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1072
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1073	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1074	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1075	self updateAllStyleCaches.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1076	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1077
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1078	updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1079	"reload all style caches in all view classes.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1080	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	1081
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1082	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1083	StyleSheet fileReadFailed ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1084	('***** WARNING: no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1085	DefaultStyle ~~ #normal ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1086	DefaultStyle := #normal.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1087	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1088
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1089	StyleSheet fileReadFailed ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1090	'***** WARNING: not even a styleSheet for normal-style (using defaults).' errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1091	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1092	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1093	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1094
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1095	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1096	tell all view classes to flush any
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1097	cached style-data
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1098	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1099	self changed:#style.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1100	SimpleView updateStyleCache.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1101	SimpleView allSubclassesDo:[:aClass \|
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1102	aClass defaultFont:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1103	(aClass class implements:#updateStyleCache) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1104	aClass updateStyleCache
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1105	].
269 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	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1109	View updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1110	"
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1111
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1112	"Modified: 10.1.1997 / 18:06:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1113	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1114
135 cf8e46015072 . claus parents: diff changeset	1115	updateStyleCache
cf8e46015072 . claus parents: diff changeset	1116	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	1117	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	1118	Subclasses should redefine this to load any cached style-values
cf8e46015072 . claus parents: diff changeset	1119	into faster class variables as well. These should NOT do a
cf8e46015072 . claus parents: diff changeset	1120	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	1121	anyway."
cf8e46015072 . claus parents: diff changeset	1122
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1123	<resource: #style (#viewSpacing #font #borderWidth
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1124	#viewBackground #shadowColor #lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1125	#focusColor #focusBorderWidth)>
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1126
135 cf8e46015072 . claus parents: diff changeset	1127	\|bgGrey\|
cf8e46015072 . claus parents: diff changeset	1128
cf8e46015072 . claus parents: diff changeset	1129	"
cf8e46015072 . claus parents: diff changeset	1130	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	1131	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	1132	"
cf8e46015072 . claus parents: diff changeset	1133	StyleSheet isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1134	DefaultStyle := #normal.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1135	StyleSheet := ViewStyle fromFile:'normal.style'.
135 cf8e46015072 . claus parents: diff changeset	1136	].
cf8e46015072 . claus parents: diff changeset	1137
cf8e46015072 . claus parents: diff changeset	1138	Grey := StyleSheet viewGrey.
cf8e46015072 . claus parents: diff changeset	1139	Grey isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1140	Grey := Color grey
135 cf8e46015072 . claus parents: diff changeset	1141	].
cf8e46015072 . claus parents: diff changeset	1142	Grey := Grey on:Display.
cf8e46015072 . claus parents: diff changeset	1143
151 8123ec03c52f . claus parents: 145 diff changeset	1144	StyleSheet fileReadFailed ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1145	bgGrey := White
135 cf8e46015072 . claus parents: diff changeset	1146	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1147	Display hasGrayscales ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1148	bgGrey := Grey
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1149	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1150	bgGrey := White
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1151	]
135 cf8e46015072 . claus parents: diff changeset	1152	].
151 8123ec03c52f . claus parents: 145 diff changeset	1153	bgGrey := bgGrey on:Display.
135 cf8e46015072 . claus parents: diff changeset	1154
cf8e46015072 . claus parents: diff changeset	1155	ViewSpacing := StyleSheet at:'viewSpacing'.
cf8e46015072 . claus parents: diff changeset	1156	ViewSpacing isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1157	ViewSpacing := Display defaultStyleValueFor:#viewSpacing.
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1158	].
5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1159
5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1160	DefaultBorderColor := StyleSheet colorAt:'borderColor'.
5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1161	DefaultBorderColor isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1162	DefaultBorderColor := Display defaultStyleValueFor:#borderColor
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1163	].
151 8123ec03c52f . claus parents: 145 diff changeset	1164
8123ec03c52f . claus parents: 145 diff changeset	1165	StyleSheet fileReadFailed ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1166	DefaultBorderWidth := 1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1167	DefaultShadowColor := Black.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1168	DefaultLightColor := White.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1169	DefaultFocusColor := Black.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1170	DefaultFocusBorderWidth := 2.
1894 9982e96dff75 better behavior if no stylesheet is present. Claus Gittinger <cg@exept.de> parents: 1890 diff changeset	1171	DefaultViewBackgroundColor := White.
151 8123ec03c52f . claus parents: 145 diff changeset	1172	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1173	DefaultBorderWidth := StyleSheet at:'borderWidth' default:0.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1174	DefaultViewBackgroundColor := StyleSheet colorAt:'viewBackground' default:bgGrey.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1175	DefaultShadowColor := StyleSheet colorAt:'shadowColor'.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1176	DefaultLightColor := StyleSheet colorAt:'lightColor'.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1177	DefaultFocusColor := StyleSheet colorAt:'focusColor' default:Color red.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1178	DefaultFocusBorderWidth := StyleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	1179	].
135 cf8e46015072 . claus parents: diff changeset	1180
526 3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1181	self == SimpleView ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1182	DefaultFont := StyleSheet at:'font'.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1183	DefaultFont isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1184	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1185	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1186	DefaultFont := DefaultFont on:Display.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1187	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1188	DefaultFont := nil
135 cf8e46015072 . claus parents: diff changeset	1189	].
cf8e46015072 . claus parents: diff changeset	1190
cf8e46015072 . claus parents: diff changeset	1191	DefaultViewBackgroundColor isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1192	'SimpleView [warning]: bad viewBackground in style - using white' errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1193	DefaultViewBackgroundColor := White
135 cf8e46015072 . claus parents: diff changeset	1194	].
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	1195
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1196	"Modified: 10.1.1997 / 18:06:18 / cg"
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1197	"Modified: 29.4.1997 / 11:16:52 / dq"
135 cf8e46015072 . claus parents: diff changeset	1198	!
cf8e46015072 . claus parents: diff changeset	1199
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1200	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1201	"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	1202	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	1203	get a common look"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1204
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1205	^ ViewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1206	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1207
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1208	!SimpleView class methodsFor:'resources'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1209
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1210	classResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1211	"if not already loaded, get the classes resourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1212	and return it"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1213
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1214	ClassResources isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1215	ClassResources := ResourcePack for:self.
140 0db355079dc4 . claus parents: 138 diff changeset	1216	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1217	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1218	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1219
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1220	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1221	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1222
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1223	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1224	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1225
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1226	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1227	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1228	Needed after a resource file has changed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1229
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1230	ResourcePack flushCachedResourcePacks.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1231	SimpleView flushClassResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1232	SimpleView allSubclasses do:[:aClass \|
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1233	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1234	]
0db355079dc4 . claus parents: 138 diff changeset	1235
0db355079dc4 . claus parents: 138 diff changeset	1236	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1237	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	1238	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1239	"to change the language:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1240	Language := #english.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1241	Smalltalk changed:#Language.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1242	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1243	or:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1244	Language := #german.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1245	Smalltalk changed:#Language.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1246	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1247	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1248	!
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	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1251	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1252	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1253
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1254	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1255	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1256
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1257	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1258	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1259	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1260
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1261	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1262	self classResources
135 cf8e46015072 . claus parents: diff changeset	1263	! !
cf8e46015072 . claus parents: diff changeset	1264
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1265	!SimpleView methodsFor:'ST-80 compatibility'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1266
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1267	bounds
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1268	"ST-80 compatibility: return my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1269
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1270	^ (self origin) corner:(self corner)
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1271
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1272	"Created: 4.6.1996 / 21:23:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1273	"Modified: 10.1.1997 / 19:46:21 / cg"
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1274	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1275
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1276	bounds:aRectangle
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1277	"ST-80 compatibility: change my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1278
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1279	explicitExtent := true.
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1280	self pixelOrigin:aRectangle origin
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1281	corner:aRectangle corner
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1282
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1283	"Created: 4.6.1996 / 21:44:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1284	"Modified: 10.1.1997 / 19:46:36 / cg"
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1285	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1286
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1287	checkForEvents
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1288	"ST-80 compatibility:
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1289	check for any pending events and process them"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1290
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1291	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1292
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1293	"Modified: 10.1.1997 / 19:46:06 / cg"
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1294	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1295
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1296	displayOn:aGC
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1297	"ST-80 compatibility: (re-)display myself"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1298
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1299	self redraw
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1300
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1301	"Created: 4.6.1996 / 21:25:59 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1302	"Modified: 10.1.1997 / 19:46:58 / cg"
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1303	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1304
1432 23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1305	displayPendingInvalidation
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1306	"dummy - for ST-80 compatibility"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1307
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1308	"Created: 6.3.1997 / 15:17:14 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1309	"Modified: 6.3.1997 / 15:17:31 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1310	!
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1311
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1312	isEnabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1313	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1314	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1315	be disabled.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1316	#isEnabled is ST-80's equivalent of #enabled"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1317
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1318	^ self enabled
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1319	!
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1320
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1321	newLayout:aLayoutObject
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1322	"set the layout object which controls my geometry.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1323	ST80-compatibility."
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1324
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1325	here layout:aLayoutObject.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1326
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1327	"Created: 3.3.1997 / 18:54:53 / cg"
1427 35214ddde67c checkin from browser ca parents: 1425 diff changeset	1328	!
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1329
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1330	refresh
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1331	self invalidate
151 8123ec03c52f . claus parents: 145 diff changeset	1332	! !
8123ec03c52f . claus parents: 145 diff changeset	1333
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1334	!SimpleView methodsFor:'accessing-bg & border'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1335
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1336	allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1337	"set the viewBackground to something, a color, image or form,
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1338	in myself and recursively in all of my subviews"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1339
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1340	self viewBackground:something.
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1341	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1342	subViews do:[:v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1343	v allViewBackground:something
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1344	]
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1345	]
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1346
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1347	"Created: 17.7.1996 / 14:59:08 / cg"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1348	"Modified: 18.7.1996 / 13:34:26 / cg"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1349	!
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1350
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1351	backgroundColor:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1352	"set the background color of the contents -
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1353	here, (since there is no contents), the viewBackground is changed."
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1354
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1355	self viewBackground:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1356
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1357	"Created: 3.5.1997 / 10:26:49 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1358	"Modified: 3.5.1997 / 10:28:04 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1359	!
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1360
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1361	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1362	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1363
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1364	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1365	^ superView borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1366	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1367
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1368	^ borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1369
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1370	"Modified: 5.6.1996 / 14:11:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1371	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1372
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1373	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1374	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1375
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1376	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1377	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1378	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1379	^ superView borderColor:aColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1380	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1381
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1382	(aColor ~~ borderColor) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1383	borderColor := aColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1384	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1385	self setBorderColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1386	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1387	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1388
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1389	"Modified: 5.6.1996 / 14:11:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1390	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1391
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1392	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1393	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1394
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1395	viewShape isNil ifTrue:[
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1396	viewShape := ViewShape new
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1397	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1398	viewShape borderShapeForm:aForm.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1399	drawableId notNil ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1400	device setWindowBorderShape:(aForm id) in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1401	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1402
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1403	"Modified: 18.9.1997 / 11:09:40 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1404	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1405
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1406	borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1407	"return my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1408
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1409	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1410	^ superView borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1411	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1412
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1413	^ borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1414
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1415	"Modified: 5.6.1996 / 14:11:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1416	!
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	borderWidth:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1419	"set my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1420
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1421	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1422	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1423	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1424	^ superView borderWidth:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1425	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1426
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1427	(aNumber ~~ borderWidth) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1428	borderWidth := aNumber.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1429	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1430	device setWindowBorderWidth:aNumber in:drawableId
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1431	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1432	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1433
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1434	"Modified: 5.6.1996 / 14:12:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1435	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1436
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1437	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1438	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1439
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1440	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1441	^ superView level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1442	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1443
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1444	^ level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1445
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1446	"Modified: 5.6.1996 / 14:12:10 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1447	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1448
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1449	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1450	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1451
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1452	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1453
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1454	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1455	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1456	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1457	^ superView level:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1458	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1459
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1460	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1461	self is3D ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1462	level := aNumber.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1463	oldMargin := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1464	margin := level abs.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1465
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1466	realized ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1467	margin ~~ oldMargin ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1468	(margin > oldMargin) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1469	how := #smaller
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1470	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1471	how := #larger
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1472	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1473	self sizeChanged:how.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1474	self setInnerClip.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1475	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1476	shown ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1477	margin ~~ oldMargin ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1478	self clear.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1479	self redrawX:margin y:margin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1480	width:width-(margin*2)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1481	height:height-(margin*2)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1482	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1483	self redrawEdges.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1484	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1485	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1486	]
135 cf8e46015072 . claus parents: diff changeset	1487	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1488
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1489	"Modified: 5.6.1996 / 14:12:17 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1490	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1491
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1492	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1493	"set the color to be used for lighted edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1494
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1495	lightColor := aColorOrImage
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1498	margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1499	"return my inner margin - this is usually the level,
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1500	but can be more for some views
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1501	(textViews which add more margin between the border and the text)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1502
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1503	^ margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1504
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1505	"Modified: 5.6.1996 / 14:37:54 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1508	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1509	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1510
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1511	shadowColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1512	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1513
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1514	viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1515	"set the viewBackground to something, a color, image or form.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1516	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	1517	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	1518	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1519
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1520	"/ debug check only:
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1521	something isNil ifTrue:[
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1522	self halt:'invalid viewBackground argument'.
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1523	^ self
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1524	].
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1525
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1526	something isColor ifTrue:[
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1527	device hasGrayscales ifTrue:[
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1528	shadowColor := something darkened "on:device".
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1529	lightColor := something lightened "on:device".
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1530	]
135 cf8e46015072 . claus parents: diff changeset	1531	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1532	super viewBackground:something
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1533
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1534	"Modified: 4.7.1997 / 20:09:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1535	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1536
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1537	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1538	"set the viewShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1539
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1540	viewShape isNil ifTrue:[
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1541	viewShape := ViewShape new
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1542	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1543
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1544	viewShape viewShapeForm:aForm.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1545	drawableId notNil ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1546	device setWindowShape:(aForm id) in:drawableId
135 cf8e46015072 . claus parents: diff changeset	1547	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1548
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1549	"Modified: 18.9.1997 / 11:11:04 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1550	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1551
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1552	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1553
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1554	heightOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1555	"return the height of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1556	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1557	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	1558	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	1559	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	1560	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	1561	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	1562	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	1563	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	1564	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	1565	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	1566	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1567
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1568	^ (self innerHeight max:(self maxSubViewBottom)) max:self maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1569
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1570	"Modified: 26.5.1996 / 12:44:21 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1571	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1572
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1573	widthOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1574	"return the width of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1575	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1576	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	1577	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	1578	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	1579	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	1580	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	1581	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	1582	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	1583	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	1584	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	1585	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1586
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1587	^ (self innerWidth max:(self maxSubViewRight)) max:self maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1588
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1589	"Modified: 26.5.1996 / 13:02:50 / cg"
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	1590	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1591
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1592	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1593
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1594	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1595	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1596	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1597
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1598	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1599	insets := Array new:4.
269 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	insets atAllPut:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1602
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1603	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1604	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1605	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1606	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1607	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1608	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1609
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1610	"Modified: 19.7.1996 / 17:30:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1611	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1612
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1613	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1614	"return the y position of the actual bottom edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1615
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1616	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1617	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1618
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1619	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1620	"set the corners y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1621
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1622	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1623	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1624
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1625	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1626	"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	1627	negative to the bottom"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1628
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1629	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1630	^ insets at:4
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1631	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1632
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1633	bottomInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1634	"set the inset of the bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1635	positive is to the top (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1636	negative to the bottom (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1637
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1638	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1639	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1640	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1641	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1642
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1643	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1644	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1645	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1646	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1647	self containerChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1648	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1649
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1650	"Modified: 19.7.1996 / 17:30:22 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1653	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1654	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1655
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1656	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1657	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1658
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1659	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1660	"move the receiver so that newCenter, aPoint becomes the center point"
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	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1663	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1664
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1665	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1666	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1667	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1668	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	1669	Returns the corner point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1670
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1671	\|org newCorner newExt x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1672
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1673	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1674	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1675	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1676	layout notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1677	^ (layout rectangleRelativeTo:(superView viewRectangle)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1678	preferred:(self preferredBounds)) corner rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1679	].
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	(cornerRule notNil) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1682	newCorner := cornerRule value.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1683	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1684	allow return of relative values ...
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1685	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1686	x := newCorner x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1687	y := newCorner y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1688	x isNil ifTrue:[x := self corner x].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1689	y isNil ifTrue:[y := self corner y].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1690	((x isInteger not) or:[y isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1691	newCorner := self cornerFromRelativeCorner:x@y
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1692	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1693	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1694	(relativeCorner notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1695	newCorner := self cornerFromRelativeCorner:relativeCorner
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1696	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1697	org := self computeOrigin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1698	(extentRule notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1699	newExt := extentRule value
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1700	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1701	(relativeExtent notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1702	newExt := self extentFromRelativeExtent:relativeExtent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1703	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1704	newExt := self extent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1705	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1706	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1707	newCorner := org + newExt
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1708	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1709	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1710	^ newCorner
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1711
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1712	"Modified: 28.2.1997 / 10:33:39 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1715	computeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1716	"compute my extent; if I have a layoutObject, a relative extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1717	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1718	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1719	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1720	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1721	Returns the extent in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1722
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1723	\|newOrg newExt newCorner x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1724
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1725	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1726	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1727	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1728	layout notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1729	^ (layout rectangleRelativeTo:(superView viewRectangle)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1730	preferred:(self preferredBounds)) extent rounded
135 cf8e46015072 . claus parents: diff changeset	1731	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1732
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1733	(cornerRule notNil) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1734	newCorner := cornerRule value.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1735	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1736	allow return of relative values ...
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1737	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1738	x := newCorner x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1739	y := newCorner y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1740	x isNil ifTrue:[x := self corner x].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1741	y isNil ifTrue:[y := self corner y].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1742	((x isInteger not) or:[y isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1743	newCorner := self cornerFromRelativeCorner:x@y
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1744	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1745	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1746	(relativeCorner notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1747	newCorner := self cornerFromRelativeCorner:relativeCorner
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1748	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1749	(extentRule notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1750	newExt := extentRule value.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1751	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1752	allow return of relative values ...
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1753	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1754	x := newExt x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1755	y := newExt y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1756	x isNil ifTrue:[x := width].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1757	y isNil ifTrue:[y := height].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1758	((x isInteger not) or:[y isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1759	newExt := self extentFromRelativeExtent:x@y
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1760	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1761	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1762	(relativeExtent notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1763	newExt := self extentFromRelativeExtent:relativeExtent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1764	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1765	newExt := (width @ height).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1766	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1767	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1768	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1769	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1770
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1771	newCorner notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1772	newOrg := self computeOrigin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1773	^ newCorner - newOrg.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1774	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1775	^ newExt.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1776	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1777
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1778	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1779	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1780	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1781	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	1782	Returns the origin point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1783
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1784	\|newOrg x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1785
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	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1788	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1789	layout notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1790	^ (layout rectangleRelativeTo:(superView viewRectangle)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1791	preferred:(self preferredBounds)) origin rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1792	].
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	(originRule notNil) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1795	newOrg := originRule value.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1796	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1797	allow return of relative values ...
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1798	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1799	x := newOrg x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1800	y := newOrg y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1801	x isNil ifTrue:[x := self origin x].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1802	y isNil ifTrue:[y := self origin y].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1803	((x isInteger not) or:[y isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1804	newOrg := self originFromRelativeOrigin:x@y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1805	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1806	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1807	(relativeOrigin notNil) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1808	newOrg := self originFromRelativeOrigin:relativeOrigin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1809	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1810	^ (left @ top).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1811	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1812	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1813	^ newOrg
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	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1817	"return the lower right corner-point (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1819	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1820	^ (left + width - 1) @ (top + height - 1)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1821
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1822	"Modified: 31.8.1995 / 16:51:40 / claus"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1825	corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1826	"set the views corner;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1827	the corner argument may be:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1828	a point
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1829	where integer fields mean 'pixel-values'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1830	and float values mean 'relative-to-superview'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1831	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1832	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1833	Please migrate to use layoutObjects, if possible."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1834
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1835	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1836
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1837	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1838
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1839	corner isBlock ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1840	cornerRule := corner.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1841	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1842	pixelCorner := corner value
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1843	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1844	extentChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1845	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1846	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1847	x := corner x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1848	y := corner y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1849	x isNil ifTrue:[x := self corner x].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1850	y isNil ifTrue:[y := self corner y].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1851	c := x @ y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1852	((x isInteger not) or:[y isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1853	relativeCorner := c.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1854	pixelCorner := self cornerFromRelativeCorner.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1855	pixelCorner isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1856	extentChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1857	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1858	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1859	pixelCorner := c
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1860	]
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1863	pixelCorner notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1864	self pixelCorner:pixelCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1865	]
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1866
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1867	"Modified: 15.7.1996 / 09:51:06 / cg"
269 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
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	1870	cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1871	"return the corner block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1872
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1873	^ cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1874	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1875
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1876	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1877	"set the views extent;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1878	extent may be:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1879	a point
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1880	where integer fields mean 'pixel-values'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1881	and float values mean 'relative-to-superview'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1882	and nil means 'leave current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1883	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1884	Be careful when using relative extents: rounding errors may
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1885	accumulate. Better use origin/corner.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1886	Best: migrate to use layour objects.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1887
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1888	Notice: this sets the views explicitExtent flag, which prevents it normally
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1889	from resizing itself to its preferredExtent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1890	See initialExtent: for a variation."
269 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	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1893
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1894	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1895
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1896	extent isBlock ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1897	extentRule := extent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1898	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1899	pixelExtent := extent value
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1900	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1901	extentChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1902	]
135 cf8e46015072 . claus parents: diff changeset	1903	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1904	w := extent x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1905	h := extent y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1906	w isNil ifTrue:[w := width].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1907	h isNil ifTrue:[h := height].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1908	e := w@h.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1909	((w isInteger not) or:[h isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1910	relativeExtent := e.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1911	pixelExtent := self extentFromRelativeExtent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1912	pixelExtent isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1913	extentChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1914	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1915	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1916	relativeExtent := nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1917	pixelExtent := e
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1918	]
269 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	pixelExtent notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1921	self pixelExtent:pixelExtent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1922	]
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	1923
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1924	"Modified: 15.7.1996 / 09:51:21 / cg"
269 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
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	1927	extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1928	"return the extent block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1929
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1930	^ extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1931	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	1932
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1933	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1934	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1935	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1936	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1937	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	1938	notice."
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	^ here layout
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	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1944	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1945	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1946	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1947	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	1948	notice."
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	here layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1951	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1952
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1953	height:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1954	"set the views height in pixels"
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	self extent:(width @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1957	!
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	heightIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1960	"return my height including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1961	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1962	while #height returns the height as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1963
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1964	^ height + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1965	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1966
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1967	horizontalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1968	"set the insets of the left/right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1969	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1970
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1971	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1972	insets := Array with:0 with:0 with:0 with:0
135 cf8e46015072 . claus parents: diff changeset	1973	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1974	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1975	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1976
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1977	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1978	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1979	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1980	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	1981	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1982	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1983
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1984	"Modified: 19.7.1996 / 17:30:25 / cg"
269 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
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1987	initialExtent:extent
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1988	"set the views extent, but dont change its explicitExtent setting.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1989	a variant of #extent."
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1990
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1991	\|expl\|
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1992
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1993	expl := explicitExtent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1994	self extent:extent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1995	explicitExtent := expl
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1996	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1997
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1998	initialHeight:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	1999	"set the views height in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2000
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2001	self initialExtent:(width @ aNumber)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2002	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2003
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2004	initialWidth:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2005	"set the views width in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2006
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2007	self initialExtent:(aNumber @ height)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2008	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2009
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2010	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2011	"return the height of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2012
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2013	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2014	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2015	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2016
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2017	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2018	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2019	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2020
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2021	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2022	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2023
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2024	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2025	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2026	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2027	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2028
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2029	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2030	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2031
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2032	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2033	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2034	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2035	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2036
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2037	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2038	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2039
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2040	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2041	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2042
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2043	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2044	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2045	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2046
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2047	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2048	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2049	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2050
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2051	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2052	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2053
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2054	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2055	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2056	negative makes it larger."
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 allInset:aNumber
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	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2062	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2063	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2064	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2065	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2066	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2067	since the above listed instance variables will vanish."
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	^ layout
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2072	layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2073	"set the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2074	Currently, this is almost nowhere used but views will be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2075	incrementally changed to use this new geometry management."
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	layout := aLayoutObject.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2078	superView isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2079	originChanged := cornerChanged := extentChanged := true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2080	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2081	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2082	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2083
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2084	"Modified: 19.9.1995 / 16:17:25 / claus"
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2085	"Modified: 19.7.1996 / 17:30:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2086	!
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	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2089	"return the x position of the left border (in pixels)"
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	^ left
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2094	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2095	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2096
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2097	self origin:(aNumber @ top)
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2100	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2101	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2102
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2103	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2104	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2105
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2106	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2107	"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	2108	negative to the left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2109
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2110	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2111	^ insets at:1
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2114	leftInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2115	"set the inset of the left edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2116	positive is to the right (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2117	negative to the left (becomes larger)"
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	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2120	insets := Array with:0 with:0 with:0 with:0
269 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	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2123
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2124	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2125	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2126	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2127	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2128	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2129	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2130
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2131	"Modified: 19.7.1996 / 17:30:30 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2132	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2133
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2134	makeFullyVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2135	"make sure, that the view is fully visible by shifting it
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2136	into the visible screen area if nescessary.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2137	This method will be moved to StandardSystemView ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2138
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2139	\|devBot devRight newTop newLeft\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2140
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2141	newTop := top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2142	newLeft := left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2143
1703 b77cc326916d take usableExtent as max. Claus Gittinger <cg@exept.de> parents: 1702 diff changeset	2144	((top + height) > (devBot := device usableHeight)) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2145	newTop := devBot - height
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2146	].
1703 b77cc326916d take usableExtent as max. Claus Gittinger <cg@exept.de> parents: 1702 diff changeset	2147	((left + width) > (devRight := device usableWidth)) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2148	newLeft := devRight - width
269 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	(newTop < 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2151	newTop := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2152	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2153	(newLeft < 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2154	newLeft := 0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2155	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2156	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2157	self origin:newLeft @ newTop
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2158	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2159	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2160
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2161	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2162	"return the origin (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2163
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2164	^ left@top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2165	!
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	origin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2168	"set the views origin;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2169	origin may be:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2170	a point
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2171	where integer fields mean 'pixel-values'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2172	and float values mean 'relative-to-superview'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2173	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2174	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2175	Please migrate to use layout objects."
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	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2178
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2179	origin isBlock ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2180	originRule := origin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2181	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2182	pixelOrigin := origin value
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2183	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2184	originChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2185	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2186	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2187	o := origin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2188	newLeft := origin x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2189	newTop := origin y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2190	newLeft isNil ifTrue:[newLeft := left].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2191	newTop isNil ifTrue:[newTop := top].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2192	o := newLeft @ newTop.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2193	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2194	relativeOrigin := o.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2195	pixelOrigin := self originFromRelativeOrigin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2196	pixelOrigin isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2197	originChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2198	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2199	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2200	relativeOrigin := nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2201	pixelOrigin := o
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2202	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2203	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2204	pixelOrigin notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2205	self pixelOrigin:pixelOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2206	].
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2207
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2208	"Modified: 19.4.1996 / 15:12:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2209	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2210
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2211	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2212	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2213
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2214	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2215
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2216	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2217
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2218	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2219
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2220	origin isBlock ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2221	corner isBlock ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2222	newLeft := origin x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2223	newLeft isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2224	newTop := origin y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2225	newTop isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2226	newRight := corner x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2227	newRight isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2228	newBot := corner y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2229	newBot isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2230	self pixelOrigin:origin corner:corner
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2231	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2232	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2233	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2234	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2235	]
135 cf8e46015072 . claus parents: diff changeset	2236	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2237	self origin:origin.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2238	self corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2239
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2240	"Modified: 15.7.1996 / 09:52:43 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2241	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2242
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2243	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2244	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2245
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2246	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2247
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2248	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2249
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2250	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2251
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2252	origin isBlock ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2253	extent isBlock ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2254	newLeft := origin x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2255	newLeft isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2256	newTop := origin y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2257	newTop isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2258	newWidth := extent x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2259	newWidth isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2260	newHeight := extent y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2261	newHeight isInteger ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2262	self pixelOrigin:origin extent:extent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2263	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2264	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2265	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2266	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2267	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2268	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2269	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2270	self origin:origin
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2271
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2272	"Modified: 15.7.1996 / 09:52:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2273	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2274
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2275	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2276	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2277	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2278	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	2279
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2280	\|currentView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2281	org "{ Class: Point }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2282	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2283	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2285	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2286	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2287	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2288	[currentView notNil] whileTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2289	(currentView == aView) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2290	^ (sumX @ sumY)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2291	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2292	org := currentView origin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2293	sumX := sumX + org x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2294	sumY := sumY + org y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2295	currentView := currentView superView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2296	].
729 d2fdca1c2895 eliminated references to RootView Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2297	(aView isNil or:[aView == device rootView]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2298	"return relative to screen ..."
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2299	^ (sumX @ sumY)
269 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	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2302
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2303	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2304	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2305
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2306	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2307	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2308	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	2309	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	2310	top openAndWait.
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2311	Transcript show:'button in top:'; showCR:(sub2 originRelativeTo:top).
cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2312	Transcript show:'button on screen:'; showCR:(sub2 originRelativeTo:nil).
269 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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2315
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2316	originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2317	"return the origin block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2318
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2319	^ originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2320	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2321
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2322	preferredExtent:anExtentPoint
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2323	"override the views own preferredExtent computation,
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2324	and let it prefer the size given by the argument."
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2325
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2326	preferredExtent := anExtentPoint.
1038 fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2327
fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2328	"Modified: 22.8.1996 / 13:41:47 / cg"
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2329	!
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2330
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2331	relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2332	"return the relative corner or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2333
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2334	^ relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2335	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2336
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2337	relativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2338	"set the relative corner"
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	relativeCorner := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2341	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2342
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2343	relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2344	"return the relative extent or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2345
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2346	^ relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2347	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2348
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2349	relativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2350	"set the relative extent"
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	relativeExtent := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2353	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2354
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2355	relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2356	"return the relative origin or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2357
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2358	^ relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2359	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2360
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2361	relativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2362	"set the relative origin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2363
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2364	relativeOrigin := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2365	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2366
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2367	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2368	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2369
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2370	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2371
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2372	"Modified: 31.8.1995 / 19:31:10 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2373	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2374
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2375	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2376	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2377
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2378	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2379	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2380
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2381	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2382	"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	2383	negative to the right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2384
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2385	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2386	^ insets at:3
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2387	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2388
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2389	rightInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2390	"set the inset of the right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2391	positive is to the left (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2392	negative to the right (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2393
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2394	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2395	insets := Array with:0 with:0 with:0 with:0
269 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	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2398
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2399	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2400	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2401	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2402	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2403	self containerChangedSize.
135 cf8e46015072 . claus parents: diff changeset	2404	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2405
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2406	"Modified: 19.7.1996 / 17:30:32 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2409	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2410	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2411	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2412	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	2413	true. Currently, only supported by Labels.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2414	This does NOT prevent the window manager from resizing the view,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2415	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2416	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2417
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2418	^ self
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	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2422	"return the y position of the top border"
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	^ top
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2427	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2428	"set the y position"
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	self origin:(left @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2431	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2432
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2433	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2434	"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	2435	negative to the top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2436
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2437	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2438	^ insets at:2
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2441	topInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2442	"set the inset of the top edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2443	positive is to the bottom (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2444	negative to the top (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2445
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2446	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2447	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2448	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2449	insets at:2 put:aNumber.
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	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2452	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2453	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2454	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2455	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2456	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2457
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2458	"Modified: 19.7.1996 / 17:30:45 / cg"
269 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	verticalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2462	"set the insets of the top/bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2463	positive makes it smaller, negative makes it larger"
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	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2466	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2467	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2468	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2469	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2470
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2471	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2472	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2473	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2474	"/ ] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2475	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2476	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2477
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2478	"Modified: 19.7.1996 / 17:30:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2479	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2480
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2481	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2482	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2483	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	2484	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2485	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	2486	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2487	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	2488	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	2489	(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	2490
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2491	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2492
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2493	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2494	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2495
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2496	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2497	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2498
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2499	width:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2500	"set the views width in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2501
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2502	self extent:(aNumber @ height)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2503	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2504
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2505	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2506	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2507	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2508	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2509
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2510	^ width + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2511	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2512
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2513	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2514
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2515	components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2516	"return the collection of non-view components"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2517
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2518	^ components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2519
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2520	"Created: 28.5.1996 / 23:59:37 / cg"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2521	!
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2522
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2523	container
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2524	"return my container"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2525
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2526	^ superView
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2527
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2528	"Created: 5.6.1996 / 01:08:36 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2529	"Modified: 10.1.1997 / 19:47:59 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2530	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2531
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2532	container:aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2533	"set my container (i.e. superView) to be aContainer"
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2534
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2535	(superView notNil and:[superView ~~ aContainer]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2536	"/ actually, this is worth an exception
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2537	('View [warning]: ' , self printString , ' already has a container') errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2538	superView removeComponent:self.
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2539	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2540	superView := aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2541
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2542	"Created: 9.5.1996 / 00:40:56 / cg"
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	2543	"Modified: 29.1.1997 / 17:37:38 / cg"
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2544	!
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2545
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2546	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2547	"bring to back"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2548
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2549	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2550	device lowerWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2551
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2552	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2553	Transcript topView lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2554	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2555	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2556
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2557	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2558	"bring to front"
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	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2561	device raiseWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2562
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	Transcript topView raise
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2568	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2569	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2570
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2571	^ subViews
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2574	subViews:aListOfViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2575	"set the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2576
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2577	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	2578	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2579	subViews do:[:view \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2580	view container:self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2581	]
135 cf8e46015072 . claus parents: diff changeset	2582	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2583
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2584	"Modified: 9.5.1996 / 00:42:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	2585	!
cf8e46015072 . claus parents: diff changeset	2586
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2587	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2588	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2589
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2590	^ superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2591	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2592
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2593	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2594	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2595
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2596	self obsoleteMethodWarning:'use #container:'.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2597	self container:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2598
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2599	"Modified: 9.5.1996 / 00:46:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2600	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2601
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2602	topComponent
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2603	"return the topmost component - thats the one with no superview.
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2604	For ST-80 compatibility."
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2605
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2606	^ self topView
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2607
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2608	"Modified: 9.5.1996 / 01:40:24 / cg"
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2609	!
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2610
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2611	topView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2612	"return the topView - thats the one with no superview"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2613
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2614	\|v next\|
269 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	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2617	[v notNil] whileTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2618	(next := v container) isNil ifTrue:[^ v].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2619	v := next
135 cf8e46015072 . claus parents: diff changeset	2620	].
cf8e46015072 . claus parents: diff changeset	2621
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2622	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2623
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2624	"Modified: 5.6.1996 / 01:09:12 / cg"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2625	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2626
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2627	view
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2628	"return my view - for real views, thats the receiver.
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2629	For wrappers, its the real view that contains it"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2630
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2631	^ self
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2632
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2633	"Created: 4.6.1996 / 21:32:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2634	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2635
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2636	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2637
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2638	menuHolder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2639	"who has the menu ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2640	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2641
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2642	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2643	!
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	menuMessage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2646	"Return the symbol sent to myself to aquire the menu"
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	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2649	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2650
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2651	menuPerformer
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2652	"who should perform the menu actions ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2653	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2654
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2655	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2656	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2657
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2658	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2659	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2660	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2661	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2662	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2663	controller."
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	\|sym menuHolder\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2666
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2667	"/ middleButtonMenu notNil ifTrue:[
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	"/ "/ has been assigned a static middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2670	"/ "/ (or a cached menu)
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	"/ ^ middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2673	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2674
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2675	menuHolder := self menuHolder.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2677	menuHolder notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2678	sym := self menuMessage.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2679	sym notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2680	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2681	mhmh - for backward compatibility, try to ask
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2682	the model first, then use the views menu.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2683	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2684	(menuHolder respondsTo:sym) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2685	(self respondsTo:sym) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2686	menuHolder := self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2687	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2688	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2689	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2690	ask the menuHolder for the menu
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2691	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2692	^ menuHolder perform:sym.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2693	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2694	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2695
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2696	^ nil
135 cf8e46015072 . claus parents: diff changeset	2697	! !
cf8e46015072 . claus parents: diff changeset	2698
cf8e46015072 . claus parents: diff changeset	2699	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	2700
cf8e46015072 . claus parents: diff changeset	2701	bitGravity
cf8e46015072 . claus parents: diff changeset	2702	"return the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2703	when the the view is resized."
cf8e46015072 . claus parents: diff changeset	2704
cf8e46015072 . claus parents: diff changeset	2705	^ bitGravity
cf8e46015072 . claus parents: diff changeset	2706	!
cf8e46015072 . claus parents: diff changeset	2707
cf8e46015072 . claus parents: diff changeset	2708	bitGravity:gravity
cf8e46015072 . claus parents: diff changeset	2709	"set the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2710	when the view is resized."
cf8e46015072 . claus parents: diff changeset	2711
cf8e46015072 . claus parents: diff changeset	2712	bitGravity ~~ gravity ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2713	bitGravity := gravity.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2714	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2715	device setBitGravity:gravity in:drawableId
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2716	]
135 cf8e46015072 . claus parents: diff changeset	2717	]
cf8e46015072 . claus parents: diff changeset	2718	!
cf8e46015072 . claus parents: diff changeset	2719
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2720	clippingRectangle:aRectangle
153 c56277fa4865 . claus parents: 151 diff changeset	2721	"set the clipping rectangle for drawing (in logical coordinates);
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	2722	a nil argument turns off clipping (i.e. whole view is drawable).
153 c56277fa4865 . claus parents: 151 diff changeset	2723	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	2724
c56277fa4865 . claus parents: 151 diff changeset	2725	\|x y w h\|
c56277fa4865 . claus parents: 151 diff changeset	2726
c56277fa4865 . claus parents: 151 diff changeset	2727	aRectangle isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2728	clipRect isNil ifTrue:[^ self].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2729	gcId notNil ifTrue:[
1713 2cc82e800b8e change clip interface in DevWorkst. Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	2730	device noClipIn:drawableId gc:gcId
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2731	]
153 c56277fa4865 . claus parents: 151 diff changeset	2732	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2733	clipRect notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2734	(clipRect = aRectangle) ifTrue:[^ self]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2735	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2736	gcId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2737	x := aRectangle left.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2738	y := aRectangle top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2739	w := aRectangle width.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2740	h := aRectangle height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2741	transformation notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2742	x := transformation applyToX:x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2743	y := transformation applyToY:y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2744	w := transformation applyScaleX:w.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2745	h := transformation applyScaleY:h.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2746	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2747	(x isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2748	w := w + (x - x truncated).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2749	x := x truncated
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2750	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2751	(y isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2752	h := h + (y - y truncated).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2753	y := y truncated
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2754	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2755	(w isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2756	w := w truncated + 1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2757	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2758	(h isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2759	h := h truncated + 1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2760	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2761	x < margin ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2762	x := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2763	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2764	y < margin ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2765	y := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2766	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2767	x + w - 1 >= (width-margin) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2768	w := width - margin - x
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2769	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2770	y + h - 1 >= (height-margin) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2771	h := height - margin - y
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2772	].
1713 2cc82e800b8e change clip interface in DevWorkst. Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	2773	device setClipX:x y:y width:w height:h in:drawableId gc:gcId
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2774	]
153 c56277fa4865 . claus parents: 151 diff changeset	2775	].
c56277fa4865 . claus parents: 151 diff changeset	2776	clipRect := aRectangle
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2777
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2778	"Created: 28.5.1996 / 19:50:03 / cg"
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	2779	"Modified: 28.5.1996 / 22:32:15 / cg"
153 c56277fa4865 . claus parents: 151 diff changeset	2780	!
c56277fa4865 . claus parents: 151 diff changeset	2781
c56277fa4865 . claus parents: 151 diff changeset	2782	fullName
c56277fa4865 . claus parents: 151 diff changeset	2783	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	2784
c56277fa4865 . claus parents: 151 diff changeset	2785	superView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2786	^ superView fullName , '.' , name
153 c56277fa4865 . claus parents: 151 diff changeset	2787	].
c56277fa4865 . claus parents: 151 diff changeset	2788	^ name
c56277fa4865 . claus parents: 151 diff changeset	2789	!
c56277fa4865 . claus parents: 151 diff changeset	2790
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2791	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2792	"return my name component to be used for resource-access"
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	^ name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2795	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2796
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2797	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2798	"set my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2799
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2800	name := aString
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
153 c56277fa4865 . claus parents: 151 diff changeset	2803	processName
c56277fa4865 . claus parents: 151 diff changeset	2804	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	2805
c56277fa4865 . claus parents: 151 diff changeset	2806	^ self name
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2809	styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2810	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2811	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2812	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2814	^ styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2815
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2816	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2817	!
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	viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2820	"return the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2821	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2822
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2823	^ viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2824	!
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	viewGravity:gravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2827	"set the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2828	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2829
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2830	viewGravity ~~ gravity ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2831	viewGravity := gravity.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2832	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2833	device setWindowGravity:gravity in:drawableId
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2834	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2835	]
140 0db355079dc4 . claus parents: 138 diff changeset	2836	! !
0db355079dc4 . claus parents: 138 diff changeset	2837
0db355079dc4 . claus parents: 138 diff changeset	2838	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	2839
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2840	application
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2841	"return the application, under which this view was opened,
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2842	or nil, if there is no application"
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2843
1751 15381229b2d8 accessing application through superView (not topView) ca parents: 1750 diff changeset	2844	superView notNil ifTrue:[
15381229b2d8 accessing application through superView (not topView) ca parents: 1750 diff changeset	2845	^ superView application
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2846	].
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2847	^ nil
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2848
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	2849	"Modified: 13.1.1997 / 20:30:31 / cg"
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2850	!
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2851
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2852	aspect:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2853	"ST-80 style updating: If a views aspectSymbol is nonNil,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2854	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2855	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2856
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2857	self aspectMessage:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2858	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2859
140 0db355079dc4 . claus parents: 138 diff changeset	2860	controller
0db355079dc4 . claus parents: 138 diff changeset	2861	"return the controller. For non MVC views, return nil"
0db355079dc4 . claus parents: 138 diff changeset	2862
0db355079dc4 . claus parents: 138 diff changeset	2863	^ controller
0db355079dc4 . claus parents: 138 diff changeset	2864	!
0db355079dc4 . claus parents: 138 diff changeset	2865
0db355079dc4 . claus parents: 138 diff changeset	2866	controller:aController
0db355079dc4 . claus parents: 138 diff changeset	2867	"set the controller"
0db355079dc4 . claus parents: 138 diff changeset	2868
0db355079dc4 . claus parents: 138 diff changeset	2869	controller := aController.
0db355079dc4 . claus parents: 138 diff changeset	2870	controller notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2871	controller view:self.
135 cf8e46015072 . claus parents: diff changeset	2872	]
cf8e46015072 . claus parents: diff changeset	2873	!
cf8e46015072 . claus parents: diff changeset	2874
140 0db355079dc4 . claus parents: 138 diff changeset	2875	model
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2876	"return nil - simpleViews have no model (only providing geometric)"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2877
135 cf8e46015072 . claus parents: diff changeset	2878	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2879
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2880	"Modified: 5.6.1996 / 14:17:29 / cg"
135 cf8e46015072 . claus parents: diff changeset	2881	!
cf8e46015072 . claus parents: diff changeset	2882
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2883	sensor
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2884	"return the views sensor"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2885
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2886	windowGroup notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2887	^ windowGroup sensor.
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2888	].
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2889	^ nil
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2890
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2891	"Modified: 10.1.1997 / 19:47:13 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2892	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2893
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2894	setController:aController
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2895	"set the controller but do not affect the model/view releationship"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2896
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2897	controller := aController.
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2898
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2899	"Created: 18.7.1996 / 11:43:40 / cg"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2900	!
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2901
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2902	setWindowGroup:aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2903	"set the window group."
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2904
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2905	windowGroup := aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2906
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2907	"Created: 19.8.1997 / 17:58:35 / cg"
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2908	!
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2909
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2910	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2911	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2912
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2913	^ windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2914	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2915
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2916	windowGroup:newGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2917	"set the window group of myself and recursively of any children.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2918	If I am currently in a group, remove me from it it."
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2919
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2920	windowGroup notNil ifTrue:[
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2921	windowGroup removeView:self.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2922	windowGroup := nil
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2923	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2924	windowGroup := newGroup.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2925	newGroup notNil ifTrue:[
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2926	newGroup addView:self.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	2927
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	2928	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2929	subViews notNil ifTrue:[
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2930	subViews do:[:aSubview \|
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2931	aSubview windowGroup:newGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2932	]
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2933	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	2934
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	2935	"Modified: 20.8.1997 / 13:26:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2936	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2937
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2938	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2939
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2940	maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2941	"return the maximum of all components bottom"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2942
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2943	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2944	^ components inject:0 into:[:maxSoFar :sub
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2945	\| (sub bottom) max:maxSoFar].
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2946
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2947	"Created: 26.5.1996 / 12:44:05 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2948	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2949	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2950
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2951	maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2952	"return the maximum of all components rights"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2953
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2954	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2955	^ components inject:0 into:[:maxSoFar :sub
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2956	\| (sub right) max:maxSoFar].
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2957
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2958	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2959	"Created: 26.5.1996 / 13:02:19 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2960	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2961
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2962	maxSubViewBottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2963	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2964	"/ ^ 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	2965	^ 0
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2968	maxSubViewRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2969	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2970	"/ ^ 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	2971	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2972	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2973
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2974	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2975	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2976
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2977	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2978	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2979	!
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	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2982	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2983
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2984	\|p\|
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	p := aPoint negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2987	transformation isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2988	transformation := WindowingTransformation scale:1 translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2989	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2990	transformation translation:p
269 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	clipRect notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	2993	self setInnerClip.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2994	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2995	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2996
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2997	viewOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2998	"return the viewOrigin; thats the coordinate of the contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2999	which is shown topLeft in the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3000	(i.e. the origin of the visible part of the contents)."
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	transformation isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3003	^ 0@0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3004	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3005	^ transformation translation negated
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
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3008	visibleArea
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3009	"return the rectangle that contains the visible part
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3010	of the view in user coordinates."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3011
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3012
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3013	transformation isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3014	^ Rectangle left:0 top:0 width:width height:height.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3015	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3016	^ Rectangle origin:(transformation translation negated)
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3017	extent:((width @ height) scaledBy:(transformation scale)).
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3018
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3019	"Created: 12.7.1996 / 11:57:04 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3020	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3021
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3022	xOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3023	"return the x coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3024	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3025
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3026	^ self viewOrigin x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3027	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3028
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3029	yOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3030	"return the y coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3031	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3032
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3033	^ self viewOrigin y
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
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3036	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3037
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3038	beInvisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3039	"make the view invisible; if my container is visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3040	change visibility immediately;
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3041	otherwise, arrange for the receiver to be not realized,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3042	when the container is made visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3043
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3044	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3045	realized ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3046	(superView isNil "/ I am a topView
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3047	or:[superView realized]) "/ superview already shown
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3048	ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3049	self unmap
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3050	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3051	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3052
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3053	"Modified: 3.4.1997 / 21:20:40 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3054	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3055
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3056	beVisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3057	"make the view visible; if my container is already visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3058	change visibility immediately; otherwise, arrange for the receiver
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3059	to be made visible when the container is made visible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3060	Notice, that the command may not be sent immediately to the display,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3061	and that ST/X considers the view to be still invisible until a
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3062	visibility event arrives from the display.
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3063	Thus, the view may remain logically invisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3064	for a while. (see #beVisibleNow for more on this)"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3065
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3066	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3067	realized ifFalse:[
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3068	superView isNil "/ I am a topView
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3069	ifTrue:[
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3070	self remap
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3071	] ifFalse:[
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3072	superView realized "/ superview already shown
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3073	ifTrue:[
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3074	self realize
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3075	]
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3076	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3077	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3078
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3079	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3080	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3081
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3082	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3083	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3084	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	3085	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3086
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3087	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3088	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3089	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3090
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3091	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3092	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3093	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3094	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3095
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3096	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3097	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3098
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3099	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3100	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3101
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3102	"Created: 22.9.1995 / 15:50:33 / claus"
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3103	"Modified: 17.6.1997 / 11:23:00 / cg"
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3104	!
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3105
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3106	beVisibleNow
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3107	"make the view visible immediately.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3108	In contrast to #beVisible, this waits until the view is really
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3109	visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3110
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3111	self beVisible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3112	device sync.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3113	realized := shown := true.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3114
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3115	"Created: 3.4.1997 / 21:23:28 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3116	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3117
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3118	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3119	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3120	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3121
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3122	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3123	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3124
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3125	"Modified: 17.6.1997 / 11:19:55 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3126	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3127
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3128	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3129	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3130	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3131
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3132	self obsoleteMethodWarning:'use #beVisible / #beInvisible'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3133	hiddenOnRealize := aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3134
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3135	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3136	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3137
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3138	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3139	"if the argument is true, the receiver view will not
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3140	be mapped (i.e. shown) automatically when the superview is realized.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3141	The hiddenOnRealize flag is useful to create views which are
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3142	to be made visible conditionally or later.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3143	For ST-80 compatibility, please use #beVisible / #beInvisible."
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3144
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3145	hiddenOnRealize := aBoolean
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3146
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3147	"Modified: 17.6.1997 / 11:23:26 / cg"
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3148	!
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3149
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3150	isHiddenOnRealize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3151	"return true, if the receiver will NOT be mapped when
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3152	realized. False otherwise.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3153	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3154	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3155
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3156	^ hiddenOnRealize
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3157
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3158	"Created: 17.6.1997 / 11:21:42 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3159	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3160
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3161	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3162	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3163	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3164
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3165	^ shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3166	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3167
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3168	!SimpleView methodsFor:'adding & removing components'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3169
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3170	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3171	"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	3172	subComponents."
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	self addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3175	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3176
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3177	add:aComponent at:anOrigin
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3178	"for ST-80 compatibility.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3179	add a component at some origin"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3180
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3181	\|l comp\|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3182
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3183	comp := aComponent.
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3184
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3185	"/ (comp isWrapper not
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3186	"/ or:[comp isLayoutWrapper not]) ifTrue:[
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3187	"/ comp := LayoutWrapper on:comp
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3188	"/ ].
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3189
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3190	l := anOrigin asLayout.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3191	comp layout:l.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3192
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3193	self addComponent:comp
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3194
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3195	"Modified: 18.4.1997 / 20:00:20 / cg"
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3196	!
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3197
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3198	add:aComponentOrCollection in:aRectangleOrLayoutFrame
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3199	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3200	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	3201	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3202	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3203
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3204	\|l wrapper\|
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3205
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3206	aComponentOrCollection isCollection ifTrue:[
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3207	wrapper := View new.
d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3208	aComponentOrCollection do:[:aComponent \|
d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3209	wrapper add:aComponent
d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3210	]
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3211	] ifFalse:[
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3212	wrapper := aComponentOrCollection
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3213	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3214
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	3215	l := aRectangleOrLayoutFrame asLayout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3216
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3217	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3218	"/ aComponent layout:l.
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3219	wrapper geometryLayout:l.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3220
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3221	self addComponent:wrapper.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3222
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3223	^ wrapper
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3224
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3225	"Modified: 17.6.1997 / 18:03:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3226	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3227
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3228	addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3229	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3230	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3231
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3232	aComponent isView ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3233	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3234	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3235	components isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3236	components := OrderedCollection new
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3237	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3238	components add:aComponent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3239	aComponent container:self.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3240	shown ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3241	aComponent displayOn:self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3242	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3243	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3244
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3245	"Modified: 13.5.1996 / 21:19:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3246	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3248	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3249	"add a view to the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3250
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3251	subViews isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3252	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3253	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3254	subViews add:newView.
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3255	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3256	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3257
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3258	"Modified: 9.5.1996 / 00:47:16 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3259	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3260
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3261	addSubView:newView after:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3262	"add a view to the collection of subviews after another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3263	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	3264	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3265
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3266	subViews isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3267	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3268	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3269	aView isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3270	subViews add:newView
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3271	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3272	subViews add:newView after:aView.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3273	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3274	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3275	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3276
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3277	"Modified: 9.5.1996 / 00:47:20 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3278	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3279
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3280	addSubView:newView before:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3281	"add a view to the collection of subviews before another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3282	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	3283	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3285	subViews isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3286	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3287	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3288	aView isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3289	subViews addFirst:newView
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3290	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3291	subViews add:newView before:aView.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3292	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3293	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3294	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3295
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3296	"Modified: 9.5.1996 / 00:47:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3297	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3298
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3299	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3300	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3301
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3302	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3303	self add:aView in:bounds.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3304	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3305
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3306	addSubViewFirst:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3307	"add a view to the front of the collection of subviews"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3308
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3309	subViews isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3310	subViews := OrderedCollection with:newView
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3311	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3312	subViews addFirst:newView.
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3313	].
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3314	self setContainerIn:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3315
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3316	"Modified: 9.5.1996 / 00:47:16 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3317	"Created: 6.3.1997 / 18:43:38 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3318	!
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3319
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3320	component:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3321	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3322	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3323
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3324	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3325	aComponent isView ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3326	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3327	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3328	components := OrderedCollection with:aComponent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3329	aComponent container:self.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3330
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3331	shown ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3332	aComponent displayOn:self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3333	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3334	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3335
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3336	"Modified: 13.5.1996 / 21:20:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3337	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3338
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3339	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3340	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3341
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3342	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3343	subViews copy do:[:aSubView \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3344	aSubView destroy.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3345	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3346
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3347	"/ paranoia ;-)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3348	subViews size ~~ 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3349	('View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3350	subViews := nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3351	].
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3354	"Modified: 5.9.1995 / 22:35:36 / claus"
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3355	"Modified: 29.1.1997 / 17:07:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3356	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3357
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3358	removeComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3359	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3360	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3361
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3362	aComponent isView ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3363	self removeSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3364	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3365	components isNil ifTrue:[^self].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3366	components remove:aComponent ifAbsent:[].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3367	aComponent parent:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3368	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3369	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3370
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3371	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3372	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3373
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3374	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3375	subViews remove:aView ifAbsent:[nil].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3376	(subViews size == 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3377	subViews := nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3378	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3379	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3380	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3381
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3382	setContainerIn:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3383	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3384
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3385	aView container:self.
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	3386	(aView graphicsDevice ~~ device) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3387	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3388	') has different device than me (' errorPrint.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3389	self class name errorPrint. ').' errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3390
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3391	aView device:device
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3392	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3393
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3394	"Created: 9.5.1996 / 00:46:59 / cg"
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3395	"Modified: 10.1.1997 / 18:06:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3396	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3397
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3398	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3399
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3400	changedPreferredBounds:someArgument
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3401	"tell any dependents, that I have changed my preferred bounds;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3402	Interface is provided mostly provided for ST80 compatibility;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3403	here, translate into ST/X's mechanism for telling others about this."
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3404
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3405	^ self changed:#preferredExtent
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3406
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3407	"Modified: 6.3.1997 / 16:12:02 / cg"
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3408	!
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3409
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3410	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3411	"an update request"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3412
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3413	aspect == #sizeOfView ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3414	"one of the views we depend on changed its size"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3415	^ self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3416	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3417	^super update:aspect with:aParameter from:changedObject
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3418
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3419	"Modified: 19.7.1996 / 17:30:48 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3420	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3421
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3422	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3423
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3424	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3425	"evaluate some time consuming block, while doing this,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3426	show a spinning wheel cursor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3427
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3428	\|ok bitmaps cursors mask process oldCursor\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3429
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3430	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3431
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3432	ok := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3433	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3434	collect:[:name \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3435	\|f\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3436
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3437	f := Image fromFile:('bitmaps/' , name , '.xbm').
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3438	f isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3439	('SimpleView [warning]: no bitmap file: ' , name , '.xbm') errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3440	ok := false
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3441	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3442	f
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3443	].
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3444
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3445	mask := Image fromFile:'bitmaps/wheelm.xbm'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3446	mask isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3447	('SimpleView [warning]: no bitmap file: wheelm.xbm') errorPrintCR.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3448	ok := false
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3449	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3450
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3451	ok ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3452	self cursor:Cursor wait.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3453	aBlock valueNowOrOnUnwindDo:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3454	self cursor:oldCursor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3455	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3456	] ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3457	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3458	maskForm:mask
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3459	hotX:8
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3460	hotY:8) on:device].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3461
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3462	process := [
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3463	Delay waitForSeconds:0.25.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3464	[true] whileTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3465	cursors do:[:curs \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3466	self cursor:curs.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3467	Delay waitForSeconds:0.05
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3468	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3469	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3470	] fork.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3471
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3472	Processor activeProcess priority:7.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3473	aBlock valueNowOrOnUnwindDo:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3474	Processor activeProcess priority:8.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3475	process terminate.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3476	self cursor:oldCursor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3477	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3478	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3479
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3480	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3481	View new realize showBusyWhile:[10 timesRepeat:[3000 factorial]]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3482	"
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3483
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3484	"Modified: 10.1.1997 / 18:07:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3485	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3486
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3487	!SimpleView methodsFor:'dependents access'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3488
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3489	addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3490	"make the argument, anObject be a dependent of the receiver"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3491
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3492	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3493
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3494	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3495	[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3496	\|deps\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3497
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3498	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3499	"/
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3500	"/ store the very first dependent directly in
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3501	"/ the dependents instVar
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3502	"/
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3503	(deps isNil and:[anObject isCollection not]) ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3504	dependents := anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3505	] ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3506	"/
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3507	"/ store more dependents in the dependents collection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3508	"/
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3509	deps isCollection ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3510	deps add:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3511	] ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3512	deps == anObject ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3513	dependents := (IdentitySet with:dependents with:anObject)
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3514	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3515	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3516	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3517	] valueNowOrOnUnwindDo:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3518	wasBlocked ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3519	OperatingSystem unblockInterrupts
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3520	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3521	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3522
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3523	"Modified: 8.1.1997 / 23:40:30 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3524	"Created: 11.6.1997 / 13:10:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3525	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3526
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3527	dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3528	"return a Collection of dependents - nil if there is none"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3529
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3530	dependents isNil ifTrue:[^ nil].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3531	dependents isCollection ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3532	^ dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3533	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3534	^ IdentitySet with:dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3535
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3536	"Modified: 19.4.1996 / 12:22:04 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3537	"Created: 11.6.1997 / 13:10:44 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3538	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3539
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3540	dependents:aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3541	"set the collection of dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3542
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3543	\|dep\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3544
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3545	aCollection size == 1 ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3546	dep := aCollection first.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3547	dep isCollection ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3548	dependents := aCollection first.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3549	^ self
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3550	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3551	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3552	dependents := aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3553
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3554	"Modified: 19.4.1996 / 12:23:05 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3555	"Created: 11.6.1997 / 13:10:47 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3556	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3557
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3558	dependentsDo:aBlock
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3559	"evaluate aBlock for all of my dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3560
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3561	\|deps\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3562
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3563	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3564	deps notNil ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3565	deps isCollection ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3566	deps do:aBlock
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3567	] ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3568	aBlock value:deps
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3569	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3570	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3571
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3572	"Created: 11.6.1997 / 13:10:51 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3573	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3574
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3575	release
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3576	"remove all dependencies from the receiver"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3577
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3578	dependents := nil
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3579
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3580	"Modified: 19.4.1996 / 10:31:35 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3581	"Created: 11.6.1997 / 13:11:53 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3582	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3583
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3584	removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3585	"make the argument, anObject be independent of the receiver"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3586
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3587	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3588
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3589	"/ must do this save from interrupts, since the dependents collection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3590	"/ is possibly accessed from multiple threads.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3591	"/ Used to use #valueUninterruptably here; inlined that code for slightly
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3592	"/ faster execution.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3593
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3594	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3595	[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3596	\|deps sz dep\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3597
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3598	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3599	deps notNil ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3600	deps isCollection ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3601	deps remove:anObject ifAbsent:[].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3602	(sz := deps size) == 0 ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3603	dependents := nil
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3604	] ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3605	sz == 1 ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3606	(dep := deps first) isCollection ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3607	dependents := dep
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3608	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3609	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3610	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3611	] ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3612	deps == anObject ifTrue:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3613	dependents := nil
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3614	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3615	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3616	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3617	] valueNowOrOnUnwindDo:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3618	wasBlocked ifFalse:[
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3619	OperatingSystem unblockInterrupts
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3620	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3621	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3622
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3623	"Modified: 8.1.1997 / 23:41:39 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3624	"Created: 11.6.1997 / 13:11:58 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3625	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3626
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3627	!SimpleView methodsFor:'dependents access (non weak)'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3628
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3629	addNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3630	"make the argument, anObject be a dependent of the receiver.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3631	Since all dependencies are nonWeak in Model, this is simply
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3632	forwarded to addDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3633
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3634	^ self addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3635
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3636	"Created: 11.6.1997 / 13:15:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3637	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3638
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3639	interests
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3640	"return a Collection of interests - nil if there is none.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3641	Here, we use the normal dependents collection for interests."
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3642
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3643	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3644
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3645	"Modified: 19.4.1996 / 18:07:12 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3646	"Modified: 14.10.1996 / 22:19:58 / stefan"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3647	"Created: 11.6.1997 / 13:15:44 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3648	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3649
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3650	nonWeakDependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3651	"return a Collection of dependents - nil if there is none.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3652	Since all dependencies are nonWeak in Model, this is a dummy."
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3653
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3654	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3655
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3656	"Modified: 19.4.1996 / 18:07:31 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3657	"Created: 11.6.1997 / 13:15:48 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3658	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3659
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3660	removeNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3661	"make the argument, anObject be independent of the receiver.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3662	Since all dependencies are nonWeak in Model, this is simply
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3663	forwarded to removeDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3664
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3665	^ self removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3666
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3667	"Created: 11.6.1997 / 13:15:52 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3668	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3669
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3670	!SimpleView methodsFor:'drag & drop'!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3671
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3672	canDrop:aCollectionOfDropObjects
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3673	"return true, if anObjectOrCollection can be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3674	dropped in the receiver. This method should be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3675	redefined in views which can take objects"
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3676
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3677	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3678
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3679	(app := self application) notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3680	^ app canDrop:aCollectionOfDropObjects in:self
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3681	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3682	^ false
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3683
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3684	"Modified: 11.4.1997 / 12:42:13 / cg"
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3685	!
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3686
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3687	drop:aCollectionOfDropObjects at:aPoint
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3688	"drop manager wants to drop.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3689	If I have an application, forward the request.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3690	Otherwise, ignore it. This is only sent, if #canDrop: returned true;
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3691	if you redefined #canDrop: in a subclass, #drop:at: must also be redefined."
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3692
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3693	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3694
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3695	(app := self application) notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3696	^ app drop:aCollectionOfDropObjects in:self at:aPoint
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3697	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3698	self subclassResponsibility
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3699
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3700	"Modified: 11.4.1997 / 12:44:34 / cg"
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3701	! !
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3702
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3703	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3704
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3705	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3706	"draw bottom 3D edge into window frame"
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	self drawBottomEdgeLevel:level
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3709	shadow:shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3710	light:lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3711	halfShadow:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3712	halfLight:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3713	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3714	!
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	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	3717	\|botFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3718	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3719	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3720
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3721	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3722	count == 0 ifTrue:[^ self].
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	(count < 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3725	botFg := lightColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3726	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3727	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3728	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3729	botFg := halfShadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3730	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3731	botFg := shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3732	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3733	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3734	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3735	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3736
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3737	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3738	0 to:(count - 1) do:[:i \|
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3739	b := height - 1 - i.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3740	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3741	].
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	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3744	b := height - 1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3745	super paint:shadowColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3746	super displayDeviceLineFromX:1 y:b toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3747	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3748
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3749	self edgeDrawn:#bottom.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3750
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3751	"Modified: 7.3.1997 / 17:59:39 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3754	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3755	"draw all of my 3D edges"
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 drawEdgesForX:0 y:0 width:width height:height level:level
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3758	shadow:shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3759	light:lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3760	halfShadow:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3761	halfLight:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3762	style:nil
269 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	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3766	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3767
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3768	self drawEdgesForX:x y:y width:w height:h level:l
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3769	shadow:shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3770	light:lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3771	halfShadow:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3772	halfLight:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3773	style:nil
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3774	!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3775
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3776	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3777	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3778
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3779	self drawLeftEdgeLevel:level
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3780	shadow:shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3781	light:lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3782	halfShadow:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3783	halfLight:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3784	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3785	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3786
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3787	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	3788	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3789	count "{ Class: SmallInteger }" \|
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	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3792	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3793
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3794	(count < 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3795	leftFg := shadowColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3796	leftHalfFg := halfShadowColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3797	count := count negated.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3798	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3799	leftFg := lightColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3800	leftHalfFg := halfLightColor.
269 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	leftHalfFg isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3803	leftHalfFg := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3804	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3805
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3806	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3807	paint := leftHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3808	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3809	paint := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3810	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3811	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3812	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3814	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3815	0 to:(count - 1) do:[:i \|
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3816	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3817	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3819	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3820	super paint:(device blackColor).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3821	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3822	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3823
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3824	self edgeDrawn:#left.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3825
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3826	"Modified: 7.3.1997 / 17:59:53 / cg"
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	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3830	"draw right 3D edge into window frame"
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	self drawRightEdgeLevel:level
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3833	shadow:shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3834	light:lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3835	halfShadow:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3836	halfLight:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3837	style:nil.
269 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	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	3841	\|rightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3842	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3843	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3845	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3846	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3847
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3848	(count < 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3849	rightFg := lightColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3850	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3851	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3852	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3853	rightFg := halfShadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3854	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3855	rightFg := shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3856	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3857	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3858	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3859	super lineWidth:0.
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	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3862	0 to:(count - 1) do:[:i \|
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3863	r := width - 1 - i.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3864	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3865	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3866	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3867	r := width - 1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3868	super paint:shadowColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3869	super displayDeviceLineFromX:r y:1 toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3870	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3871
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3872	self edgeDrawn:#right.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3873
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3874	"Modified: 7.3.1997 / 18:00:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3875	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3876
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3877	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3878	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3879
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3880	self drawTopEdgeLevel:level
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3881	shadow:shadowColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3882	light:lightColor
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3883	halfShadow:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3884	halfLight:nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3885	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3886	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3887
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3888	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	3889	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3890	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3891
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3892	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3893	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3894
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3895	(count < 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3896	topFg := shadowColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3897	topHalfFg := halfShadowColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3898	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3899	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3900	topFg := lightColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3901	topHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3902	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3903	topHalfFg isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3904	topHalfFg := topFg
269 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	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3908	paint := topHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3909	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3910	paint := topFg
269 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	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3913	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3914
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3915	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3916	0 to:(count - 1) do:[:i \|
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3917	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3918	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3919	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3920	super paint:(device blackColor).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3921	super displayDeviceLineFromX:0 y:0 toX:r y:0.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3922	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3923
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3924	self edgeDrawn:#top.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3925
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	3926	"Modified: 7.3.1997 / 18:00:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3927	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3928
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3929	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3930	"redraw my edges (if any)"
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	(level ~~ 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3933	shown ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3934	self clippingRectangle:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3935	self drawEdges.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3936	self clippingRectangle:innerClipRect
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3937	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3938	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3939
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	3940	"Modified: 28.5.1996 / 20:04:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3941	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3942
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3943	!SimpleView methodsFor:'enumerating subviews'!
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	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3946	"evaluate aBlock for all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3947
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3948	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3949	subViews do:[:aSubview \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3950	aSubview withAllSubViewsDo:aBlock
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3951	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3952	]
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3953
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3954	"Modified: 12.2.1997 / 12:23:38 / cg"
269 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
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3957	changeSequenceOrderFor:aSubView to:anIndex
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3958	"change a subview's position into subviews collection
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3959	"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3960	\|aView\|
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3961
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3962
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3963	(subViews notNil and:[subViews size >= anIndex]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3964	aView := subViews remove:aSubView ifAbsent:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3965
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3966	aView notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3967	subViews add:aView beforeIndex:anIndex.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3968	^ true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3969	]
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3970	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3971	^ false
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3972	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	3973
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3974	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3975	"evaluate aBlock for the receiver and all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3976
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3977	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3978	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	3979	! !
cf8e46015072 . claus parents: diff changeset	3980
cf8e46015072 . claus parents: diff changeset	3981	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	3982
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3983	alienDrop:aCollectionOfDropObjects
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3984	"a drop from some other non-ST/X application."
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3985
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3986	\|v\|
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3987
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3988	v := self.
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3989	[v notNil] whileTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3990	(v canDrop:aCollectionOfDropObjects) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3991	v drop:aCollectionOfDropObjects at:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3992	^ self.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3993	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3994	v := v superView
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3995	]
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3996
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3997	"Modified: 11.4.1997 / 12:41:16 / cg"
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3998	!
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	3999
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4000	buttonPress:button x:x y:y
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4001	"button was pressed - check my components for a hit."
269 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	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4004	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4005	comp buttonPress:button x:cx y:cy.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4006	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4007	]
140 0db355079dc4 . claus parents: 138 diff changeset	4008	].
0db355079dc4 . claus parents: 138 diff changeset	4009
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4010	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	4011
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4012	"Modified: 8.5.1996 / 23:43:41 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4013	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4014
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4015	buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4016	"button was released - check my components for a hit."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4017
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4018	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4019	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4020	comp buttonRelease:button x:cx y:cy.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4021	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4022	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4023	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4024
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4025	super buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4026
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4027	"Modified: 8.5.1996 / 23:41:58 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4028	"Created: 8.5.1996 / 23:43:25 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	4029	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	4030
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4031	clientMessage:msgType format:msgFormat eventData:msgData
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4032	"a client message - very X-specific and only useful
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4033	for special applications.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4034	Ignored here"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4035
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4036	"Created: 4.4.1997 / 18:56:52 / cg"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4037	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4038
140 0db355079dc4 . claus parents: 138 diff changeset	4039	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	4040	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	4041
180 0b3a8658d55e . claus parents: 176 diff changeset	4042	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge p\|
0b3a8658d55e . claus parents: 176 diff changeset	4043
0b3a8658d55e . claus parents: 176 diff changeset	4044	(superView isNil
0b3a8658d55e . claus parents: 176 diff changeset	4045	and:[drawableId notNil]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4046	"/ have to be careful - some window managers (motif) wrap another
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4047	"/ view around and the reported origin is relative to that.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4048	"/ not relative to the screen.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4049	p := device translatePoint:0@0 from:drawableId to:device rootWindowId.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4050	left := p x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4051	top := p y.
180 0b3a8658d55e . claus parents: 176 diff changeset	4052	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4053	left := x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4054	top := y.
180 0b3a8658d55e . claus parents: 176 diff changeset	4055	].
140 0db355079dc4 . claus parents: 138 diff changeset	4056	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4057	realized ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4058	width := newWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4059	height := newHeight.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4060	extentChanged := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4061	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4062	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4063
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4064	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4065	how := #smaller
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4066	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4067
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4068	level ~~ 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4069	mustRedrawBottomEdge := newHeight < height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4070	mustRedrawRightEdge := newWidth < width.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4071	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4072	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4073	anyEdge := false
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4074	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4075
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4076	width := newWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4077	height := newHeight.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4078
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4079	"recompute inner-clip if needed"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4080	self setInnerClip.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4081
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4082	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4083	must first process pending exposes;
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4084	otherwise, those may be drawn at a wrong position
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4085	"
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4086	"/ claus: no; expose events are in the same queue as configure events;
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4087	"/ which is exactly for that reason ...
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4088
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4089	"/ windowGroup notNil ifTrue:[
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4090	"/ windowGroup processExposeEvents
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4091	"/ ].
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4092	self sizeChanged:how.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4093
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4094	(anyEdge and:[shown]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4095	self clippingRectangle:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4096	mustRedrawBottomEdge ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4097	self drawBottomEdge
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4098	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4099	mustRedrawRightEdge ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4100	self drawRightEdge
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4101	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4102	self clippingRectangle:innerClipRect
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4103	]
140 0db355079dc4 . claus parents: 138 diff changeset	4104	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4105
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4106	"Modified: 19.7.1996 / 21:28:47 / cg"
138 3167663e38e7 . claus parents: 137 diff changeset	4107	!
3167663e38e7 . claus parents: 137 diff changeset	4108
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4109	containerChangedSize
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4110	"my container has changed size; if I have relative
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4111	origin/extent or blocks to evaluate, do it now .."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4112
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	4113	\|oldWidth oldHeight oldTop oldLeft newExt newOrg r\|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4114
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4115	oldWidth := width.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4116	oldHeight := height.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4117	oldTop := top.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4118	oldLeft := left.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4119
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4120	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4121	slowly migrating to use layoutObjects ...
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4122	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4123	layout isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4124	newOrg := self computeOrigin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4125	newExt := self computeExtent.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4126	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4127	r := (layout rectangleRelativeTo:(superView viewRectangle)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4128	preferred:(self preferredBounds)).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4129	newOrg := r origin rounded.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4130	newExt := r extent rounded.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4131	"/ newOrg printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4132	"/ newExt printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4133	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4134
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4135	newOrg notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4136	((newOrg x == oldLeft) and:[newOrg y == oldTop]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4137	newOrg := nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4138	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4139	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4140	newExt notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4141	((newExt x == width) and:[newExt y == height]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4142	newExt := nil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4143	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4144	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4145
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4146	newExt isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4147	newOrg notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4148	self pixelOrigin:newOrg
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4149	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4150	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4151	newOrg isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4152	self pixelExtent:newExt
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4153	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4154	self pixelOrigin:newOrg extent:newExt
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4155	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4156	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4157
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4158	"Modified: 19.7.1996 / 17:32:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4159	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4160
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4161	containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4162	"my container was mapped (became visible).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4163	If I was previously realized, this implies that I myself
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4164	am now mapped as well."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4165
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4166	"/ if I was not previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4167	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4168
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4169	realized ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4170	shown ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4171	"/ old:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4172	"/ shown := true.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4173	"/ subViews notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4174	"/ subViews do:[:v \|
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4175	"/ v containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4176	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4177	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4178
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4179	"/ which is equivalent to:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4180	self mapped.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4181	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4182	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4183
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4184	"Modified: 30.5.1996 / 11:41:02 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4185	"Created: 19.7.1996 / 17:41:10 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4186	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4187
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4188	containerUnmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4189	"my container was unmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4190	- this implies that the recevier is now also unmapped."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4191
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4192	"/ if I was previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4193	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4194
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4195	realized ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4196	shown ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4197	self unmapped
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4198	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4199	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4200
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4201	"Modified: 30.5.1996 / 11:41:25 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4202	"Created: 19.7.1996 / 17:43:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4203	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4204
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4205	coveredBy:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4206	"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	4207	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	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	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4211	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4212
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4213	shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4214	super destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4215	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4216
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4217	dropMessage:dropType data:dropValue
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4218	"a drop from some other view.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4219	Convert to the ST/X drag and drop protocol here."
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4220
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4221	\|dropObjects\|
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4222
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4223	dropType == #file ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4224	dropObjects := Array with:(DropObject newFile:dropValue)
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4225	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4226	dropType == #directory ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4227	dropObjects := Array with:(DropObject newFile:dropValue)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4228	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4229	dropType == #files ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4230	dropObjects := (dropValue collect:[:fn \| DropObject newFile:fn])
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4231	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4232	dropType == #text ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4233	dropObjects := Array with:(DropObject newText:dropValue)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4234	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4235	dropObjects := Array with:(DropObject new:dropValue)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4236	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4237	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4238	]
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4239	].
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4240
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4241	self alienDrop:dropObjects
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4242
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4243	"Modified: 6.4.1997 / 14:44:43 / cg"
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4244	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4245
135 cf8e46015072 . claus parents: diff changeset	4246	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	4247	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	4248	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	4249
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4250	\|leftEdge topEdge rightEdge botEdge anyEdge nx ny nw nh old\|
135 cf8e46015072 . claus parents: diff changeset	4251
cf8e46015072 . claus parents: diff changeset	4252	nw := w.
cf8e46015072 . claus parents: diff changeset	4253	nh := h.
cf8e46015072 . claus parents: diff changeset	4254	nx := x.
cf8e46015072 . claus parents: diff changeset	4255	ny := y.
cf8e46015072 . claus parents: diff changeset	4256
cf8e46015072 . claus parents: diff changeset	4257	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	4258
cf8e46015072 . claus parents: diff changeset	4259	"
cf8e46015072 . claus parents: diff changeset	4260	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	4261	"
cf8e46015072 . claus parents: diff changeset	4262	(margin ~~ 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4263	leftEdge := false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4264	topEdge := false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4265	rightEdge := false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4266	botEdge := false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4267	transformation notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4268	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4269	need device coordinates for this test
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4270	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4271	nx := transformation applyToX:nx.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4272	ny := transformation applyToY:ny.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4273	nw := transformation applyScaleX:nw.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4274	nh := transformation applyScaleY:nh.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4275	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4276	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4277	adjust expose rectangle, to exclude the margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4278	Care for rounding errors ...
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4279	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4280	(nx isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4281	old := nx.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4282	nx := nx truncated.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4283	nw := nw + (nx - old).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4284	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4285	(ny isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4286	old := ny.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4287	ny := ny truncated.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4288	nh := nh + (ny - old).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4289	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4290	(nw isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4291	nw := nw truncated + 1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4292	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4293	(nh isMemberOf:SmallInteger) ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4294	nh := nh truncated + 1
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4295	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4296	(nx < margin) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4297	old := nx.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4298	nx := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4299	nw := nw - (nx - old).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4300	leftEdge := anyEdge := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4301	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4302	((nx + nw - 1) >= (width - margin)) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4303	nw := (width - margin - nx).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4304	rightEdge := anyEdge := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4305	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4306	(ny < margin) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4307	old := ny.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4308	ny := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4309	nh := nh - (ny - old).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4310	topEdge := anyEdge := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4311	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4312	((ny + nh - 1) >= (height - margin)) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4313	nh := (height - margin - ny).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4314	botEdge := anyEdge := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4315	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4316	transformation notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4317	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4318	need logical coordinates for redraw
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4319	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4320	nx := transformation applyInverseToX:nx.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4321	ny := transformation applyInverseToY:ny.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4322	nw := transformation applyInverseScaleX:nw.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4323	nh := transformation applyInverseScaleY:nh.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4324	].
135 cf8e46015072 . claus parents: diff changeset	4325	].
cf8e46015072 . claus parents: diff changeset	4326
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4327	(nw > 0 and:[nh > 0]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4328	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4329	redraw inside area
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4330	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4331	self redrawX:nx y:ny width:nw height:nh.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4332	].
135 cf8e46015072 . claus parents: diff changeset	4333
cf8e46015072 . claus parents: diff changeset	4334	"
cf8e46015072 . claus parents: diff changeset	4335	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	4336	"
cf8e46015072 . claus parents: diff changeset	4337	anyEdge ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4338	self clippingRectangle:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4339	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4340	self drawEdges
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4341	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4342	topEdge ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4343	self drawTopEdge
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4344	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4345	leftEdge ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4346	self drawLeftEdge
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4347	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4348	botEdge ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4349	self drawBottomEdge
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4350	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4351	rightEdge ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4352	self drawRightEdge
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4353	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4354	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4355	self clippingRectangle:innerClipRect
135 cf8e46015072 . claus parents: diff changeset	4356	]
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4357
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4358	"Modified: 28.5.1996 / 22:31:49 / cg"
135 cf8e46015072 . claus parents: diff changeset	4359	!
cf8e46015072 . claus parents: diff changeset	4360
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4361	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	4362	"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	4363
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4364	delegate notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4365	(delegate respondsTo:#handlesKeyPress:inView:) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4366	(delegate handlesKeyPress:#Any inView:self) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4367	delegate showFocus:false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4368	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4369	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4370	]
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4371	].
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	4372	self showFocus:false
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4373
1402 0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4374	"Modified: 28.2.1997 / 23:29:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4375	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4376
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4377	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	4378	"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	4379
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4380	delegate notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4381	(delegate respondsTo:#handlesKeyPress:inView:) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4382	(delegate handlesKeyPress:#Any inView:self) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4383	delegate showNoFocus:false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4384	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4385	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4386	]
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4387	].
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	4388	self showNoFocus:false
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4389
1402 0d7bcdb28c53 checkin from browser Claus Gittinger <cg@exept.de> parents: 1397 diff changeset	4390	"Modified: 28.2.1997 / 23:29:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4391	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4392
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4393	hasKeyboardFocus:aBoolean
140 0db355079dc4 . claus parents: 138 diff changeset	4394	^ self
0db355079dc4 . claus parents: 138 diff changeset	4395	!
0db355079dc4 . claus parents: 138 diff changeset	4396
0db355079dc4 . claus parents: 138 diff changeset	4397	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	4398	"a key has been pressed. If there are components,
0db355079dc4 . claus parents: 138 diff changeset	4399	pass it to the corresponding one.
0db355079dc4 . claus parents: 138 diff changeset	4400	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	4401
510 c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	4402	<resource: #keyboard ( #Menu ) >
c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	4403
140 0db355079dc4 . claus parents: 138 diff changeset	4404	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4405	components notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4406	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4407	comp keyPress:key x:cx y:cy.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4408	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4409	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4410	].
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4411	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4412
494 cc7765901744 checkin from browser Claus Gittinger <cg@exept.de> parents: 490 diff changeset	4413	key == #Menu ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4414	^ self activateMenu.
135 cf8e46015072 . claus parents: diff changeset	4415	].
cf8e46015072 . claus parents: diff changeset	4416
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4417	x isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4418	"/ already redelegated, but nowhere handled
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4419	superView notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4420	superView keyPress:key x:nil y:nil.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4421	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4422	^ self
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4423	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4424
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4425	superView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4426	WindowEvent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4427	sendEvent:#keyPress:x:y:
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4428	arguments:(Array with:key with:0 with:0)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4429	view:superView
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	4430	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4431	super keyPress:key x:x y:y
135 cf8e46015072 . claus parents: diff changeset	4432	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	4433
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4434	"Modified: 18.7.1996 / 11:47:03 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4435	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4436
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4437	keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4438	"a key has been released. If there are components,
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4439	pass it to the corresponding one.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4440	Otherwise, do whatever my superclass would do."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4441
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4442	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4443	components notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4444	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4445	comp keyRelease:key x:cx y:cy.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4446	^ self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4447	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4448	].
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4449	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4450
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4451	super keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4452
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4453	"Modified: 8.5.1996 / 23:44:36 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4454	"Created: 8.5.1996 / 23:45:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	4455	!
cf8e46015072 . claus parents: diff changeset	4456
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4457	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4458	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4459	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4460
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4461	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4462	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4463
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4464	realized := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4465	shown := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4466	...
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4467
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4468	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4469	realized and shortly after unrealized - before the mapped event
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4470	arrived. This lead to realized being set to true even thought the
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4471	view was not.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4472	Boy - that was a bad one (hard to reproduce and hard to find).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	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	realized ifTrue:[
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4476
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4477	"/ currently, the 'shown ifFalse:' optimization is
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4478	"/ not ok, since 'shown' is also modified by visibilityChanges.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4479	"/ Also, when remapped, X11 only sends a mapped event for the topView.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4480	"/ Therefore, synthetically generate those #superViewMapped messages
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4481	"/ in any case.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4482
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4483	shown := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4484	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4485	backed views will not get expose events - have
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4486	to force a redraw here to get things drawn into
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4487	backing store.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4488	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4489	backed ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4490	self redrawX:0 y:0 width:width height:height
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4491	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4492	subViews notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4493	subViews do:[:v \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4494	v containerMapped
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4495	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4496	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4497	]
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4498
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4499	"Modified: 25.2.1997 / 22:41:34 / cg"
269 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
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4502	pointerEnter:state x:x y:y
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4503	"got mouse pointer"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4504
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4505	self focusIn
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4506
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4507	"Modified: 25.2.1997 / 23:43:21 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4508	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4509
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4510	pointerLeave:state
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4511	"got mouse pointer"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4512
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4513	self focusOut
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4514
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4515	"Modified: 25.2.1997 / 23:43:17 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4516	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4517
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4518	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4519	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4520	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4521	nothing done here"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4522
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4523	^ self
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4526	saveAndTerminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4527	"window manager wants me to save and go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4528	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4529	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4530	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4531	to prepare for restart."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4532
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4533	^ self destroy
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4536	sizeChanged:how
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4537	"tell subviews if I change size.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4538	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	4539	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4540
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4541	\|subViews\|
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4542
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4543	(subViews := self subViews) notNil ifTrue:[
1761 4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4544	(how isNil "false"
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4545	or:[how == #smaller]) ifTrue:[
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4546	subViews do:[:view \|
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4547	view notNil ifTrue:[
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4548	view containerChangedSize
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4549	]
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4550	]
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4551	] ifFalse:[
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4552	"doing it reverse speeds up resizing - usually subviews
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4553	are created from top-left to bottom-right; therefore
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4554	bottom-right views will be moved/resized first, then top-left ones;
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4555	this avoids multiple redraws of subviews"
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4556
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4557	subViews reverseDo:[:view \|
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4558	view notNil ifTrue:[
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4559	view containerChangedSize
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4560	]
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4561	]
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4562	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4563	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4564
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4565	components notNil ifTrue:[
1761 4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4566	(how isNil "false"
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4567	or:[how == #smaller]) ifTrue:[
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4568	components do:[:view \|
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4569	view containerChangedSize
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4570	]
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4571	] ifFalse:[
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4572	"doing it reverse speeds up resizing - usually subviews
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4573	are created from top-left to bottom-right; therefore
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4574	bottom-right views will be moved/resized first, then top-left ones;
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4575	this avoids multiple redraws of subviews"
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4576
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4577	components reverseDo:[:view \|
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4578	view containerChangedSize
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4579	]
4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4580	]
135 cf8e46015072 . claus parents: diff changeset	4581	].
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4582
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4583	self changed:#sizeOfView with:how.
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4584
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4585	superView notNil ifTrue:[
1761 4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4586	superView subViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4587	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4588
1761 4442423d8d85 checkin from browser Claus Gittinger <cg@exept.de> parents: 1759 diff changeset	4589	"Modified: 20.6.1997 / 12:10:40 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4592	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	4593	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4594	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4595	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4596
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4597	^ self
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	"Created: 22.9.1995 / 14:44:59 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4600	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4601
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4602	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4603	"window manager wants me to go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4604	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4605	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4606	Can be redefined in subclasses to do whatever cleanup is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4607	required."
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	^ self destroy
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4610	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4611
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4612	unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4613	"the view has been unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4614	(either by some outside action - i.e. window manager iconified me,
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4615	or due to unmapping of my parentView)."
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4616
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4617	"/ if I was previously shown, tell it to all of
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4618	"/ my subviews (they remember this in the shown instVar)
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4619
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4620	"/ currently, the 'shown ifTrue:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4621	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4622	"/ Also, when remapped, X11 only sends a mapped event for the topView.
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4623	"/ Therefore, synthetically generate those #superViewUnmapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4624	"/ in any case.
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4625
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4626	shown := false.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4627	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4628	subViews do:[:v \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4629	v containerUnmapped
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4630	]
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4631	]
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4632
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4633	"Modified: 25.2.1997 / 22:40:52 / cg"
135 cf8e46015072 . claus parents: diff changeset	4634	!
cf8e46015072 . claus parents: diff changeset	4635
cf8e46015072 . claus parents: diff changeset	4636	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	4637	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	4638	action - i.e. window manager rearranged things).
cf8e46015072 . claus parents: diff changeset	4639	Using this knowledge avoids useless redraw in obsucred views."
cf8e46015072 . claus parents: diff changeset	4640
cf8e46015072 . claus parents: diff changeset	4641	how == #fullyObscured ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4642	shown := false
135 cf8e46015072 . claus parents: diff changeset	4643	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4644	shown := true.
135 cf8e46015072 . claus parents: diff changeset	4645	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4646	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4647
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4648	!SimpleView methodsFor:'event simulation'!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4649
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4650	pushEvent:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4651	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4652	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4653	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4654	a higher prio process, to avoid blocking in the high prio one)"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4655
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4656	\|sensor\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4657
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4658	(sensor := self sensor) notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4659	sensor pushUserEvent:aSelector for:self
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4660	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4661	self perform:aSelector
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4662	]
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4663
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4664	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4665	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4666
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4667	v := View new openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4668	v fill:Color red.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4669	v pushEvent:#redraw
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4670	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4671
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4672	"Modified: 31.1.1997 / 16:09:27 / cg"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4673	!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4674
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4675	pushEvent:aSelector withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4676	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4677	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4678	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4679	a higher prio process, to avoid blocking in the high prio one)"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4680
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4681	\|sensor\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4682
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4683	(sensor := self sensor) notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4684	sensor pushUserEvent:aSelector for:self withArguments:args
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4685	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4686	self perform:aSelector
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4687	]
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4688
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4689	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4690	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4691
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4692	v := (Button label:'hello') openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4693	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4694	v pushEvent:#buttonPress:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4695	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4696	v pushEvent:#buttonRelease:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4697	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4698
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4699	"Modified: 31.1.1997 / 16:10:40 / cg"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4700	! !
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	4701
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4702	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4703
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4704	contentsChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4705	"this one is sent, whenever contents changes size -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4706	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4707
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4708	self changed:#sizeOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4709	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4710
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4711	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4712	"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	4713	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4714
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4715	self changed:#originOfContents with:delta.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4716	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4717	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4718	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4719	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4720	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4721	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4722
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4723	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4724	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4725	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4726	(for example to hide cursor before scroll)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4727
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4728	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4729	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4730
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4731	!SimpleView methodsFor:'initialization'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4732
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4733	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4734	^ nil "/ Controller
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4735	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4736
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4737	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	4738	"return the default extent of my instances."
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	4739
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4740	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4741
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4742	"Created: 1.3.1996 / 19:20:46 / cg"
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	4743	"Modified: 22.4.1996 / 23:38:27 / cg"
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4744	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4745
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4746	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4747	"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	4748	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4750	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4751	!
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	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4754	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4755
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4756	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4757
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4758	borderWidth := DefaultBorderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4759	borderWidth isNil ifTrue:[borderWidth := 1].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4760
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4761	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4762
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4763	DefaultLightColor notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4764	lightColor := DefaultLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4765	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4766	device hasGrayscales ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4767	DefaultLightColor := lightColor := viewBackground lightened.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4768	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4769	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4770	this seems strange: on B&W screens, we create the light color
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4771	darker than normal viewBackground (White) -
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4772	to make the boundary of the view visible
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4773	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4774	lightColor := Color gray:50
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4775	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4776	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4777	DefaultShadowColor notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4778	shadowColor := DefaultShadowColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4779	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4780	shadowColor := Black
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4781	].
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	lightColor := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4784	shadowColor := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4785	borderColor := DefaultBorderColor.
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	4786	font := self class defaultFont.
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	4787	font := font on:device.
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	4788
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	4789	"Modified: 28.5.1996 / 21:13:58 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4792	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4793	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4794
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4795	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4796	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4797	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4798	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4799	StyleSheet isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4800	DefaultStyle isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4801	"/ the very-very first time (no styleSheet yet)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4802	View defaultStyle:#normal.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4803	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4804	self class updateStyleCache
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4807	styleSheet := StyleSheet.
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4808
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4809	"Modified: 25.7.1996 / 22:00:06 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4812	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4813	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4814	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4815	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4816	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	4817	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	4818	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	4819	(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	4820	leave the state and contents as-is)"
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	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4823
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4824	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4825
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	4826	font := self class defaultFont.
269 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	shown := hiddenOnRealize := realized := false.
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	"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	4831	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4832
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4833	myClass := self class.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4834	name := myClass name "asString" asLowercaseFirst.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4835	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4836
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4837	level := margin := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4838	margin := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4839
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4840	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4841
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4842	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4843	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4844	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4845	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4846
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4847	originChanged := extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4848	bitGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4849	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4850
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4851	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4852	controllerClass notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4853	controller := controllerClass new.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4854	controller view:self.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4855	].
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4856
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	4857	"Modified: 1.3.1996 / 19:21:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4858	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4859
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4860	initializeMiddleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4861	"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	4862	first created; usually redefined in subclasses; default here is no menu.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4863	Notice, that static middleButtonmenus are a historic thing in ST/X;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4864	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	4865
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4866	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4867	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4868
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4869	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4870	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4871	windowGroup notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4872	windowGroup reinitialize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4873	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4874	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4875
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4876	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4877	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4879	\|t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4880
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4881	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4882	drawableId notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4883	"force a change"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4884	t := borderWidth. borderWidth := nil. self borderWidth:t.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4885	t := viewBackground. viewBackground := nil. self viewBackground:t.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4886	self invalidate.
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4887	].
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4888
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	4889	"Modified: 29.5.1996 / 18:03:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4890	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4891
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4892	reinitialize
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4893	"this is called right after snapIn"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4894
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4895	\|myController\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4896
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4897	"if I have already been reinited - return"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4898	drawableId notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4899	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4900	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4901
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4902	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4903	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4904	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4905	superView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4906	superView view id isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4907	superView view reinitialize
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4908	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4909	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4910
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4911	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4912	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4913	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4914
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4915	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4916	realized ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4917	"only remap if I have a superview - otherwise, I might be
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4918	a hidden iconView or menu ..."
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4919	superView notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4920	"/ shown ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4921	device mapView:self id:drawableId iconified:false
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4922	atX:left y:top width:width height:height
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4923	"/ ].
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4924	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4925	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4926
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4927	"restore controller"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4928	controller := myController
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4929
a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4930	"Modified: 5.6.1996 / 19:38:22 / cg"
135 cf8e46015072 . claus parents: diff changeset	4931	! !
cf8e46015072 . claus parents: diff changeset	4932
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4933	!SimpleView methodsFor:'menu handling'!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4934
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4935	activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4936	"activate my menu.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4937	This code will move into the controller ASAP
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4938	If there is a static middleButtonMenu, that one is taken,
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4939	and handled in the superClass (static menus are a historic leftOver).
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4940	Otherwise, the follwing steps are performed:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4941
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4942	- ask the receiver for the menu (via #yellowButtonMenu)
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4943	- ask the receiver for the menuPerformer.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4944	- startUp the menu - it is supposed to return an actionSelector
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4945	- if the menuPerformer responds to the selector,
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4946	send it to the performer;
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4947	otherwise send it to the view (the receiver)
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4948	This is funny, it allows additional menuItems to be added
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4949	AND still get the views copy/cut/paste functionality.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4950	Without this, you had to redefine and forward all of those
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4951	messages in the performer."
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4952
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4953	\|menu menuPerformer actionSelector prevReceiver\|
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4954
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4955	middleButtonMenu isNil ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4956	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4957	try ST-80 style menus first:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4958	if there is a model, and a menuMessage is defined,
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4959	ask model for the menu and launch that if non-nil.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4960	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4961	menu := self yellowButtonMenu.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4962	menu notNil ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4963	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4964	got one, launch the menu. It is supposed
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4965	to return an actionSelector.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4966	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4967	menuPerformer := self menuPerformer.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4968
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4969	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4970	a temporary kludge:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4971	pass myself as receiver, the menuPerformer as performer;
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4972	the menu will send its messages to either the
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4973	menuPerformer or me (its receiver).
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4974	This allows for the ST-80 behavior, where some messages
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4975	go to the model, others to the view
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4976	(copy/cut/paste).
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4977	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4978	(prevReceiver := menu receiver) isNil ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4979	"/ kludge for oldStyle menus (MenuView/PopUpMenu)
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4980	"/ not req'd for real Menus
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4981
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4982	(menu respondsTo:#menuPerformer:) ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4983	menu menuPerformer:menuPerformer.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4984	menu receiver:self.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4985	]
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4986	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4987
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4988	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4989	"/ startup the menu - this returns a selector
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4990	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4991	actionSelector := menu startUp.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4992
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4993	actionSelector notNil ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4994	self dispatchMenuSelection:actionSelector.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4995	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4996
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4997	menu receiver:prevReceiver.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4998
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	4999	^ self
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5000	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5001	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5002
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5003	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5004	"/ old style static menu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5005	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5006	super activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5007
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5008	"Created: 1.3.1996 / 13:24:18 / cg"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5009	"Modified: 20.6.1997 / 12:01:38 / cg"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5010	!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5011
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5012	dispatchMenuSelection:menuSelection
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5013	"dispatch a menu message.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5014	This code will move into the controller ASAP"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5015
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5016	\|actionSelector actionArg1 actionArg2 menuPerformer\|
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5017
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5018	actionSelector := menuSelection.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5019
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5020	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5021	mhmh - kludge for selectors with argument
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5022	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5023	(menuSelection isMemberOf:Array) ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5024	actionArg1 := menuSelection at:2.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5025	actionSelector := menuSelection at:1.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5026	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5027
1839 7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	5028	menuPerformer := self menuPerformer.
7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	5029
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5030	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5031	mhmh - ST-80 seems to send some to the model and
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5032	others (copy/cut/paste) to the controller/view
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5033	Simulate this behavior, by looking what the model responds to.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5034	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5035	actionSelector isSymbol ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5036	(menuPerformer respondsTo:actionSelector) ifFalse:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5037	(self application respondsTo:actionSelector) ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5038	menuPerformer := self application.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5039	actionArg1 := self model.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5040	actionArg2 := self controller.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5041	] ifFalse:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5042	(self respondsTo:actionSelector) ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5043	menuPerformer := self
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5044	]
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5045	]
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5046	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5047	actionSelector numArgs ~~ 0 ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5048	actionSelector numArgs ~~ 1 ifTrue:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5049	menuPerformer perform:actionSelector with:actionArg1 with:actionArg2
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5050	] ifFalse:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5051	menuPerformer perform:actionSelector with:actionArg1
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5052	]
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5053	] ifFalse:[
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5054	menuPerformer perform:actionSelector
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5055	]
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5056	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5057
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5058	"Created: 20.6.1997 / 11:47:42 / cg"
1839 7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	5059	"Modified: 31.7.1997 / 19:12:03 / cg"
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5060	! !
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5061
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5062	!SimpleView methodsFor:'misc'!
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5063
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5064	grabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5065	"grab the pointer - that is: report all motion events relative to
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5066	myself, even if moved out of myself."
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5067
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5068	\|sensor\|
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5069
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5070	(sensor := self sensor) notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5071	"/ make certain all X events have been received
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5072	device sync.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5073	"/ now all events have been received.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5074	"/ now, flush all pointer events
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5075	sensor flushMotionEventsFor:nil
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5076	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5077
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5078	device grabPointerIn:drawableId.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5079
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5080	!
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5081
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5082	ungrabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5083	"ungrab the pointer"
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5084
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5085	\|sensor\|
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5086
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5087	(sensor := self sensor) notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5088	"/ make certain all X events have been received
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5089	device sync.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5090	"/ now all events have been received.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5091	"/ now, flush all pointer events
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5092	sensor flushMotionEventsFor:self
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5093	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5094
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5095	device ungrabPointer.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5096
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5097	! !
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5098
140 0db355079dc4 . claus parents: 138 diff changeset	5099	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	5100
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5101	componentsContainingX:x y:y do:aBlock
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5102	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5103	components do:[:aComponent \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5104	\|thisFrame\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5105
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5106	thisFrame := aComponent bounds.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5107	(thisFrame containsPointX:x y:y) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5108	aBlock value:aComponent
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5109	value:x - thisFrame left
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5110	value:y - thisFrame top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5111	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5112	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5113	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5114
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5115	"Created: 8.5.1996 / 23:40:59 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5116	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5117
140 0db355079dc4 . claus parents: 138 diff changeset	5118	computeInnerClip
0db355079dc4 . claus parents: 138 diff changeset	5119	"compute, but do not set the inside clip-area"
0db355079dc4 . claus parents: 138 diff changeset	5120
0db355079dc4 . claus parents: 138 diff changeset	5121	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	5122
0db355079dc4 . claus parents: 138 diff changeset	5123	(margin ~~ 0) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5124	m2 := margin + margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5125	nX := nY := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5126	nW := width - m2.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5127	nH := height - m2.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5128	transformation notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5129	nX := transformation applyInverseToX:nX.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5130	nY := transformation applyInverseToY:nY.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5131	nW := transformation applyInverseScaleX:nW.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5132	nH := transformation applyInverseScaleY:nH.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5133	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5134	innerClipRect := Rectangle
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5135	left:nX
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5136	top:nY
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5137	width:nW
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5138	height:nH
140 0db355079dc4 . claus parents: 138 diff changeset	5139	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5140	"no clipping"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5141	innerClipRect := nil
140 0db355079dc4 . claus parents: 138 diff changeset	5142	]
0db355079dc4 . claus parents: 138 diff changeset	5143	!
0db355079dc4 . claus parents: 138 diff changeset	5144
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5145	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5146	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5147
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5148	^ self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5149	!
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	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5152	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5153
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5154	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5155
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5156	p := self pointFromRelative:aPoint.
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	bw := borderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5159	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5160	bw == 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5161	^ p
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5162	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5163	^ (p x - bw) @ (p y - bw)
269 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	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5166	b := (insets at:4) + bw.
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	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5169	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5170	"/ r := rightInset + bw
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	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5173	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5174	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5175	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5176	^ (p x - r) @ (p y - b)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5177	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5178	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5179	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5180
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5181	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5182	"compute & return pixel extent from relativeExtent"
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	^ self extentFromRelativeExtent:relativeExtent
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5187	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5188	"compute & return pixel extent from relativeExtent, aPoint"
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	\|rel newX newY inRect bw2 i\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5191
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5192	superView isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5193	inRect := 0@0 extent:device extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5194	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5195	inRect := superView viewRectangle.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5196	].
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	bw2 := borderWidth * 2.
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	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5201	rel isInteger ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5202	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5203	(borderWidth ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5204	newX := newX - borderWidth
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5205	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5206	] ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5207	newX := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5208	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5209
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5210	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5211	rel isInteger ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5212	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5213	(borderWidth ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5214	newY := newY - borderWidth
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5215	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5216	] ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5217	newY := rel
269 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	insets notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5221	i := insets at:1. "top"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5222	(i ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5223	newX := newX - i
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5224	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5225	i := insets at:3. "left"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5226	(i ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5227	newX := newX - i
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5228	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5229	i := insets at:2. "right"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5230	(i ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5231	newY := newY - i
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5232	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5233	i := insets at:4. "bottom"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5234	(i ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5235	newY := newY - i
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5236	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5237	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5238	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5239	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5240
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5241	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5242	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5243
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5244	^ self originFromRelativeOrigin:relativeOrigin
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5247	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5248	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5249
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5250	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5251
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5252	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5253
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5254	insets isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5255	^ p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5256	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5257	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5258	t := insets at:2.
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	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5261	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5262	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5263	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5264	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5265	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5266	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5267	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5268	^ (p x + l) @ (p y + t)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5269	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5270	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5271	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5272
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5273	pixelCorner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5274	"set the views corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5275
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5276	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5277
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5278	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5279	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5280	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5281
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5282	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5283	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5285	pixelExtent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5286	"set the views extent in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5287
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5288	self pixelOrigin:(left @ top) extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5289	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5290
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5291	pixelOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5292	"return the views origin in pixels. For subviews. the origin is relative
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5293	to the superviews top-left. For topViews, its the screen origin."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5294
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5295	^ self computeOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5296	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5297
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5298	pixelOrigin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5299	"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	5300	to the superviews top-left. For topViews, its the screen origin."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5301
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5302	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5303
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5304	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5305	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5306	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5307	top := newTop.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5308	left := newLeft.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5309
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5310	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5311	if the receiver is visible, or is a topView, perform the
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5312	operation right away - otherwise, simply remember that the
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5313	origin has changed - will tell the display once we get realized
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5314	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5315	"/ (shown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5316	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5317
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5318	"/ no, have to do it if drawableId is there
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5319	"/ (otherwise, we could not move unmapped views around ...
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5320	"/
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5321	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5322	device moveWindow:drawableId x:left y:top
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5323	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5324	originChanged := true
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5325	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5326	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5327	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5328
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5329	pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5330	"set the views origin and corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5331
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5332	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5333
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5334	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5335	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5336	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5337
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5338	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5339	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5340
140 0db355079dc4 . claus parents: 138 diff changeset	5341	pixelOrigin:origin extent:extent
0db355079dc4 . claus parents: 138 diff changeset	5342	"set the views origin and extent in pixels"
0db355079dc4 . claus parents: 138 diff changeset	5343
0db355079dc4 . claus parents: 138 diff changeset	5344	\|newLeft newTop newWidth newHeight how
0db355079dc4 . claus parents: 138 diff changeset	5345	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
0db355079dc4 . claus parents: 138 diff changeset	5346	mustRepaintRight sameOrigin oldWidth oldHeight\|
0db355079dc4 . claus parents: 138 diff changeset	5347
0db355079dc4 . claus parents: 138 diff changeset	5348	newLeft := origin x.
0db355079dc4 . claus parents: 138 diff changeset	5349	newTop := origin y.
0db355079dc4 . claus parents: 138 diff changeset	5350	sameOrigin := ((newTop == top) and:[newLeft == left]).
0db355079dc4 . claus parents: 138 diff changeset	5351
0db355079dc4 . claus parents: 138 diff changeset	5352	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	5353	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	5354
0db355079dc4 . claus parents: 138 diff changeset	5355	"
0db355079dc4 . claus parents: 138 diff changeset	5356	X complains badly if you try to create/resize a view with
0db355079dc4 . claus parents: 138 diff changeset	5357	a dimension <= 0 ... (although I think that 0 maks sense ...)
0db355079dc4 . claus parents: 138 diff changeset	5358	"
0db355079dc4 . claus parents: 138 diff changeset	5359	newWidth < 1 ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5360	newWidth := 1.
140 0db355079dc4 . claus parents: 138 diff changeset	5361	].
0db355079dc4 . claus parents: 138 diff changeset	5362	newHeight < 1 ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5363	newHeight := 1
140 0db355079dc4 . claus parents: 138 diff changeset	5364	].
0db355079dc4 . claus parents: 138 diff changeset	5365
0db355079dc4 . claus parents: 138 diff changeset	5366	((newWidth == width) and:[newHeight == height]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5367	sameOrigin ifTrue:[^ self].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5368	^ self pixelOrigin:origin
140 0db355079dc4 . claus parents: 138 diff changeset	5369	].
0db355079dc4 . claus parents: 138 diff changeset	5370	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	5371	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	5372
0db355079dc4 . claus parents: 138 diff changeset	5373	"/ shown ifTrue:[ "4-nov-94 actually correct,"
0db355079dc4 . claus parents: 138 diff changeset	5374	drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5375	mustRedrawBottomEdge := (level ~~ 0) and:[newHeight < height].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5376	mustRedrawRightEdge := (level ~~ 0) and:[newWidth < width].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5377
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5378	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5379	how := #smaller
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5380	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5381
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5382	mustRepaintRight := false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5383	mustRepaintBottom := false.
1750 f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5384
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5385	shown ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5386	(level ~~ 0) ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5387	"clear the old edges"
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5388
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5389	newWidth > width ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5390	self clippingRectangle:nil.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5391	self paint:viewBackground.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5392	self fillDeviceRectangleX:(width - margin)
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5393	y:0
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5394	width:margin
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5395	height:height.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5396	mustRepaintRight := true.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5397	oldWidth := width
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5398	].
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5399	newHeight > height ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5400	self clippingRectangle:nil.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5401	self paint:viewBackground.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5402	self fillDeviceRectangleX:0
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5403	y:(height - margin)
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5404	width:width
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5405	height:margin.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5406	mustRepaintBottom := true.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5407	oldHeight := height
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5408	]
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5409	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5410	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5411
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5412	width := newWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5413	height := newHeight.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5414
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5415	self setInnerClip.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5416
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5417	"if view becomes smaller, send sizeChanged first"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5418	(how == #smaller) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5419	self sizeChanged:how
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5420	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5421
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5422	"have to tell X, when extent of view is changed"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5423	sameOrigin ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5424	device resizeWindow:drawableId width:width height:height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5425	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5426	"claus: some xservers seem to do better when resizing
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5427	first ...."
140 0db355079dc4 . claus parents: 138 diff changeset	5428	"
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5429	(how == #smaller) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5430	device resizeWindow:drawableId width:width height:height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5431	device moveWindow:drawableId x:left y:top
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5432	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5433	device moveResizeWindow:drawableId x:left y:top width:width height:height
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5434	].
140 0db355079dc4 . claus parents: 138 diff changeset	5435	"
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5436	device moveResizeWindow:drawableId x:left y:top
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5437	width:width height:height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5438	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5439
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5440	"if view becomes bigger, send sizeChanged after"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5441	(how ~~ #smaller) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5442	self sizeChanged:how
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5443	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5444
1750 f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5445	shown ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5446	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5447	self clippingRectangle:nil.
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5448	mustRedrawBottomEdge ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5449	self drawBottomEdge
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5450	].
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5451	mustRedrawRightEdge ifTrue:[
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5452	self drawRightEdge
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5453	].
f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	5454	self clippingRectangle:innerClipRect
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5455	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5456	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5457
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5458	mustRepaintRight ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5459	self redrawDeviceX:(oldWidth - margin)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5460	y:0
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5461	width:margin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5462	height:height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5463	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5464	mustRepaintBottom ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5465	self redrawDeviceX:0
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5466	y:(oldHeight - margin)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5467	width:width
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5468	height:margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5469	].
140 0db355079dc4 . claus parents: 138 diff changeset	5470	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5471	"otherwise memorize the need for a sizeChanged message"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5472
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5473	width := newWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5474	height := newHeight.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5475	sameOrigin ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5476	originChanged := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5477	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5478	extentChanged := true
140 0db355079dc4 . claus parents: 138 diff changeset	5479	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5480
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5481	"Modified: 28.5.1996 / 20:04:48 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5482	!
0db355079dc4 . claus parents: 138 diff changeset	5483
0db355079dc4 . claus parents: 138 diff changeset	5484	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	5485	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	5486
0db355079dc4 . claus parents: 138 diff changeset	5487	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	5488
0db355079dc4 . claus parents: 138 diff changeset	5489	bw := borderWidth.
0db355079dc4 . claus parents: 138 diff changeset	5490
0db355079dc4 . claus parents: 138 diff changeset	5491	superView isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5492	superWidth := device width + bw.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5493	superHeight := device height + bw.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5494	superLeft := superTop := 0.
140 0db355079dc4 . claus parents: 138 diff changeset	5495	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5496	inRect := superView viewRectangle.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5497	superWidth := inRect width.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5498	superHeight := inRect height.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5499	superLeft := inRect left.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5500	superTop := inRect top.
140 0db355079dc4 . claus parents: 138 diff changeset	5501	].
0db355079dc4 . claus parents: 138 diff changeset	5502
0db355079dc4 . claus parents: 138 diff changeset	5503	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	5504	rel isInteger ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5505	newX := rel
140 0db355079dc4 . claus parents: 138 diff changeset	5506	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5507	newX := (rel * superWidth) asInteger + superLeft.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5508	(bw ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5509	rel ~= 1.0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5510	newX := newX - bw
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5511	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5512	]
140 0db355079dc4 . claus parents: 138 diff changeset	5513	].
0db355079dc4 . claus parents: 138 diff changeset	5514
0db355079dc4 . claus parents: 138 diff changeset	5515	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	5516	rel isInteger ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5517	newY := rel
140 0db355079dc4 . claus parents: 138 diff changeset	5518	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5519	newY := (rel * superHeight) asInteger + superTop.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5520	(bw ~~ 0) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5521	rel ~= 1.0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5522	newY := newY - bw
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5523	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5524	]
140 0db355079dc4 . claus parents: 138 diff changeset	5525	].
0db355079dc4 . claus parents: 138 diff changeset	5526	^ newX @ newY
0db355079dc4 . claus parents: 138 diff changeset	5527	!
0db355079dc4 . claus parents: 138 diff changeset	5528
0db355079dc4 . claus parents: 138 diff changeset	5529	setBorderColor
0db355079dc4 . claus parents: 138 diff changeset	5530	"set my borderColor"
0db355079dc4 . claus parents: 138 diff changeset	5531
0db355079dc4 . claus parents: 138 diff changeset	5532	\|id dither\|
0db355079dc4 . claus parents: 138 diff changeset	5533
0db355079dc4 . claus parents: 138 diff changeset	5534	drawableId notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5535	borderColor := borderColor on:device.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5536	id := borderColor colorId.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5537	id notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5538	device setWindowBorderColor:id in:drawableId
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5539	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5540	dither := borderColor ditherForm.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5541	dither notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5542	device setWindowBorderPixmap:(dither id) in:drawableId
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5543	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5544	'SimpleView [warning]: bad borderColor' errorPrintCR
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5545	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5546	]
135 cf8e46015072 . claus parents: diff changeset	5547	]
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5548
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	5549	"Modified: 10.1.1997 / 18:06:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	5550	!
cf8e46015072 . claus parents: diff changeset	5551
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5552	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5553	"compute, and set the inside clip-area"
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	self computeInnerClip.
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5556	self clippingRectangle:innerClipRect
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5557
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5558	"Modified: 28.5.1996 / 20:04:53 / cg"
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5559	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5560
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5561	setViewShape
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5562	\|form\|
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5563
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5564	(form := viewShape borderShapeForm) notNil ifTrue:[
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5565	device setWindowBorderShape:(form id) in:drawableId
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5566	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5567	(form := viewShape viewShapeForm) notNil ifTrue:[
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5568	device setWindowShape:(form id) in:drawableId
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5569	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5570
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	5571	"Created: 18.9.1997 / 11:09:00 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5572	! !
0db355079dc4 . claus parents: 138 diff changeset	5573
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5574	!SimpleView methodsFor:'queries'!
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	buttonMotionEventPending
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5577	"return true, if a button motion event is pending.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5578	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	5579	(not even for mouse-tracking).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5580	Dont use it, since it does not honor the windowGroup, but
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5581	goes directly to the device instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5582	Actually, its a historical leftover"
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	windowGroup notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5585	^ windowGroup sensor hasButtonMotionEventFor:self
140 0db355079dc4 . claus parents: 138 diff changeset	5586	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5587	^ super buttonMotionEventPending
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5588
ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5589	"Modified: 1.11.1996 / 17:04:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5590	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5591
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5592	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5593	"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	5594	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	5595	leftOver and will be removed. Use the delegation mechanism for this."
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	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5598	!
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	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5601	"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	5602	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5603	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	5604	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5605
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5606	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5607	!
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	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5610	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5611
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5612	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5613	^ delegate delegatesTo:someone
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
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5616	enabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5617	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5618	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5619	be disabled."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5620
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5621	^ true
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5622	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5623
1748 24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5624	focusSequence
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5625	"return nil - for compatibility with StdSysView & SubCanvas.
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5626	In the future, subviews which want to slice their components into the
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5627	focusSequence may redefine this to return a list of their components."
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5628
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5629	^ nil
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5630	!
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	5631
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5632	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5633	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5634	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5635	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5636
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5637	\|focusView delegate\|
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	windowGroup isNil ifTrue:[^ false].
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	(focusView := windowGroup focusView) == self ifTrue:[^ true].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5642	focusView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5643	"mhmh - is there a delegation to me ?"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5644	(delegate := focusView delegate) notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5645	delegate == self ifTrue:[^ true].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5646	^ delegate delegatesTo:self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5647	]
135 cf8e46015072 . claus parents: diff changeset	5648	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5649	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5650	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5651
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5652	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5653	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5654	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5655
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5656	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5657	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5658
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5659	isBorderedWrapper
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5660	^ false
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5661
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5662	"Created: 5.6.1996 / 14:11:15 / cg"
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5663	!
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	5664
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5665	isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5666	"return true, if I am a (direct or indirect) component of aViewOrComponent"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5667
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5668	aViewOrComponent == self isNil ifTrue:[^ true].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5669	superView isNil ifTrue:[^ false].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5670	superView == aViewOrComponent ifTrue:[^ true].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5671	^ superView isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5672
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5673	"Created: 5.6.1996 / 14:23:57 / cg"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5674	"Modified: 5.6.1996 / 14:26:14 / cg"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5675	!
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5676
497 5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5677	isInputField
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5678	"return true, if the receiver is some kind of input view,
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5679	i.e. it should (can) be part of an enterGroup.
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5680	Return false here, this is redefined in EnterField."
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5681
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5682	^ false
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5683
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5684	"Created: 4.3.1996 / 11:34:07 / cg"
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5685	!
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	5686
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5687	isLayoutWrapper
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5688	^ false
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5689
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5690	"Created: 19.7.1996 / 17:51:04 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5691	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5692
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5693	isPopUpView
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5694	"return true, if this view should be put on top (raised) automatically.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5695	usually this is true for alertBoxes etc."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5696
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5697	^ false
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5698	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	5699
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5700	isSubViewOf:aView
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5701	"return true, if I am a (direct or indirect) subview of aView"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5702
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5703	self obsoleteMethodWarning:'use #isComponentOf:'.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5704	^ self isComponentOf:aView.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5705
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	5706	"Modified: 5.6.1996 / 14:25:35 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5707	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5708
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5709	isWrapper
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5710	^ false
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5711
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5712	"Created: 5.6.1996 / 01:05:06 / cg"
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5713	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5714
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5715	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5716	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5717
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5718	^ 0@0 extent:(self preferredExtent)
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5719
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5720	"Modified: 19.7.1996 / 20:41:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5721	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5722
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5723	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5724	"return my preferred extent - this is the minimum size I would like to have.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5725	If the preferredExtent has been set, that one is returned.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5726	Otherwise, if there are any components, a rectangle enclosing them
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5727	is returned. Otherwise, the actual extent is returned."
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5728
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	5729	\|maxX maxY\|
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5730
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5731	"/ If I have an explicit preferredExtent ..
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5732
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5733	preferredExtent notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5734	^ preferredExtent
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5735	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5736
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5737	"/ mhmh - if I have subViews, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5738	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5739
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5740	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5741	maxX := maxY := 0.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5742	subViews do:[:aSubView \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5743	\|org corn\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5744
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5745	org := aSubView computeOrigin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5746	corn := org + aSubView preferredExtent.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5747	maxX := maxX max:corn x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5748	maxY := maxY max:corn y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5749	]
140 0db355079dc4 . claus parents: 138 diff changeset	5750	].
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5751
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5752	"/ mhmh - if I have components, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5753	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5754
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5755	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5756	maxX isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5757	maxX := maxY := 0.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5758	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5759	components do:[:aComponent \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5760	\|bounds org corn\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5761
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5762	bounds := aComponent preferredBounds.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5763	corn := bounds corner.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5764	maxX := maxX max:corn x.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5765	maxY := maxY max:corn y.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5766	]
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5767	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5768
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5769	"/ nothing found - return the actual size
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5770
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5771	maxX isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5772	^ self extent.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5773	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5774
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5775	^ maxX @ maxY.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	5776
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5777	"Modified: 19.7.1996 / 20:43:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5778	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5779
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5780	sizeFixed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5781	"return true, if this vew wants its size to remain unchanged.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5782	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	5783
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5784	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5785
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5786	"Created: 17.9.1995 / 20:29:20 / claus"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5787	! !
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5788
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5789	!SimpleView methodsFor:'queries - internal'!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5790
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5791	nativeWindowType
1702 ba153bb6400b * empty log message * Claus Gittinger <cg@exept.de> parents: 1699 diff changeset	5792	"return a symbol describing my native window type - here, nil is returned
ba153bb6400b * empty log message * Claus Gittinger <cg@exept.de> parents: 1699 diff changeset	5793	(may be used internally by the device as a native window creation hint)"
ba153bb6400b * empty log message * Claus Gittinger <cg@exept.de> parents: 1699 diff changeset	5794
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5795	^ nil
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5796	!
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5797
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5798	specClass
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5799	"fallback - heuristics to get a specClass for some viewClass"
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5800
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5801	\|myName cls\|
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5802
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5803	(self class == View
3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5804	or:[self class == SimpleView]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5805	^ ViewSpec "/ CompositeSpecCollection
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5806	].
3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5807
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5808	myName := self class name.
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5809	cls := Smalltalk classNamed:(myName , 'Spec').
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5810	(cls notNil and:[cls isLoaded not]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5811	cls autoload
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5812	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5813
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5814	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5815
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5816	(myName endsWith:'View') ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5817	"/ try name without 'View'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5818	cls := Smalltalk classNamed:(myName copyWithoutLast:4).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5819	(cls notNil and:[cls isLoaded not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5820	cls autoload
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5821	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5822	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5823
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5824	"/ try with 'View' replaced by 'Spec'
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5825	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5826	(cls notNil and:[cls isLoaded not]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5827	cls autoload
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5828	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5829	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5830	].
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5831	^ ArbitraryComponentSpec
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5832
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	5833	"/ self error:'no spec class (subclassResponsibility)'
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5834
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5835	"
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5836	FramedBox new specClass
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	5837	"
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	5838
1490 c2fffb968267 checkin from browser Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	5839	"Modified: 27.3.1997 / 11:04:17 / cg"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5840	!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5841
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5842	windowStyle
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5843	"return a symbol describing my style"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5844
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5845	self isPopUpView ifTrue:[
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	5846	^ #popUp
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5847	].
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5848
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5849	^ #normal
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5850
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5851	"Created: 2.5.1997 / 14:29:48 / cg"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5852	"Modified: 2.5.1997 / 14:30:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5853	! !
0db355079dc4 . claus parents: 138 diff changeset	5854
0db355079dc4 . claus parents: 138 diff changeset	5855	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	5856
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5857	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5858	"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	5859	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	5860
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5861	drawableId isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5862	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5863	make certain that superview is created also
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5864	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5865	superView notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5866	superView view create.
269 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	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5869	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5870	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5871	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5872	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5873	"/ ]
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5874	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5875	"/
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5876	"/ if the display is not already dispatching events,
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5877	"/ this starts the event process.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5878	"/
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5879	device startDispatch
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5880	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5881
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5882	cursor notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5883	cursor := cursor onDevice:device.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5884	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5885
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5886	explicitExtent ~~ true ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5887	self resize
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5888	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5889
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5890	self physicalCreate.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5891
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5892	viewBackground notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5893	self setViewBackground
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5894	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5895
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5896	self initializeMiddleButtonMenu.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5897	self initEvents.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5898
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5899	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5900	this is the first create,
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5901	force sizechange messages to be sent to the view
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5902	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5903	extentChanged := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5904	originChanged := true
151 8123ec03c52f . claus parents: 145 diff changeset	5905	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5906
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	5907	"Modified: 28.3.1997 / 13:50:17 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	5908	!
8123ec03c52f . claus parents: 145 diff changeset	5909
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5910	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5911	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5912
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5913	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5914	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5915	subViews do:[:subView \| subView createWithAllSubViews]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5916	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5917	!
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	destroy
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5920	"unmap & destroy - make me invisible, destroy subviews then
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5921	make me unknown to the device"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5922
140 0db355079dc4 . claus parents: 138 diff changeset	5923	realized ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5924	self unmap.
1474 9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5925	"/ "make it go away immediately
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5926	"/ - also, this hides the subview killing"
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5927	"/
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5928	"/ device synchronizeOutput.
9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5929
151 8123ec03c52f . claus parents: 145 diff changeset	5930	].
8123ec03c52f . claus parents: 145 diff changeset	5931
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5932	"/ controller notNil ifTrue:[
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5933	"/ controller release.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5934	"/ controller := nil.
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5935	"/ ].
4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5936
1474 9f1ed72c31be checkin from browser Claus Gittinger <cg@exept.de> parents: 1467 diff changeset	5937	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5938	self destroySubViews.
140 0db355079dc4 . claus parents: 138 diff changeset	5939	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5940	superView notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5941	superView removeSubView:self.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5942	superView := nil
140 0db355079dc4 . claus parents: 138 diff changeset	5943	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5944	super destroy.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5945
1477 7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5946	"/ superView isNil ifTrue:[
7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5947	"/ device flush
7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5948	"/ ].
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	5949
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5950	controller notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5951	controller release.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5952	controller := nil.
140 0db355079dc4 . claus parents: 138 diff changeset	5953	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5954
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5955	windowGroup notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5956	windowGroup removeView:self.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5957	windowGroup := nil
140 0db355079dc4 . claus parents: 138 diff changeset	5958	].
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5959
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	5960	"Modified: 3.5.1996 / 23:49:24 / stefan"
1477 7c56b4168be6 no need to flush in destroy (?) Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5961	"Modified: 20.3.1997 / 22:11:53 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5962	!
0db355079dc4 . claus parents: 138 diff changeset	5963
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5964	fetchDeviceResources
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5965	"fetch all device specific resources. This is invoked,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5966	when the view is made visible on some device for the very first
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5967	time, to allocate device specific colors, fonts, bitmaps etc.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5968	The view may keep those in instance variables, to avoid reallocating
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5969	those with every redraw.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5970	If you ommit to do this, the views will still be able to display themself,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5971	but possibly slower, since resources are reallocated over and over.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5972	If you redefine this method, make certain that 'super fetchDeviceResources'
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5973	is always sent."
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5974
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5975	shadowColor notNil ifTrue:[shadowColor := shadowColor on:device].
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5976	lightColor notNil ifTrue:[lightColor := lightColor on:device].
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5977
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5978	"Created: 13.1.1997 / 21:51:59 / cg"
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5979	!
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	5980
140 0db355079dc4 . claus parents: 138 diff changeset	5981	fixSize
0db355079dc4 . claus parents: 138 diff changeset	5982	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	5983	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	5984	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	5985	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	5986	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	5987
151 8123ec03c52f . claus parents: 145 diff changeset	5988	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	5989
8123ec03c52f . claus parents: 145 diff changeset	5990	"
8123ec03c52f . claus parents: 145 diff changeset	5991	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	5992	"
8123ec03c52f . claus parents: 145 diff changeset	5993	layout notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5994	(originChanged or:[extentChanged or:[cornerChanged]]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5995	r := (layout rectangleRelativeTo:(superView viewRectangle)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5996	preferred:(self preferredBounds)).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5997	org := r origin rounded.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5998	ext := r extent rounded.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	5999	self pixelOrigin:org extent:ext.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6000	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6001	^ self.
151 8123ec03c52f . claus parents: 145 diff changeset	6002	].
8123ec03c52f . claus parents: 145 diff changeset	6003
140 0db355079dc4 . claus parents: 138 diff changeset	6004	"if the extent is not the one we created the window with ..."
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6005	"/ extentChanged ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6006	"/ self sizeChanged:nil.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6007	"/ extentChanged := false
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6008	"/ ].
140 0db355079dc4 . claus parents: 138 diff changeset	6009
0db355079dc4 . claus parents: 138 diff changeset	6010	originChanged ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	6011	"/ org := self computeOrigin.
0db355079dc4 . claus parents: 138 diff changeset	6012	"/ self pixelOrigin:org.
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6013	originRule notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6014	self pixelOrigin:self computeOrigin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6015	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6016	relativeOrigin notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6017	self originFromRelativeOrigin:relativeOrigin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6018	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6019	shown ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6020	device moveWindow:drawableId x:left y:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6021	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6022	self pixelOrigin:left@top
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6023	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6024	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6025	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6026	originChanged := false
140 0db355079dc4 . claus parents: 138 diff changeset	6027	]
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6028
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6029	"Modified: 18.6.1996 / 21:44:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6030	!
0db355079dc4 . claus parents: 138 diff changeset	6031
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6032	hide
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6033	"only useful with modal views: hide the view and return control
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6034	back to the suspended main view. Ignored for non-modal views."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6035
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6036	\|p\|
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6037
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6038	realized ifFalse:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6039	windowGroup isNil ifTrue:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6040	windowGroup isModal ifFalse:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6041
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6042	windowGroup notNil ifTrue:[windowGroup focusView:nil].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6043
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6044	self unmap.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6045	device flush.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6046
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6047	(windowGroup notNil and:[(p := windowGroup previousGroup) notNil]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6048	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6049	this is a kludge for IRIS which does not provide backingstore:
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6050	when we hide a modalbox (such as a searchbox) which covered
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6051	a scrollbar, the scrollbars bitblt-method will copy from the
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6052	not-yet redrawn area - effectively clearing the scroller.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6053	We need a short delay here, since at this time, the expose event has
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6054	not yet arrived.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6055	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6056	Delay waitForSeconds:0.1.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6057	p processExposeEvents
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6058	].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6059	WindowGroup leaveSignal raise.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6060	"/ not reached
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6061	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6062	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6063
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6064	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6065	"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	6066	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6067
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6068	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6069	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6070
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6071	map
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6072	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6073	For topViews, the windowManager will choose (or ask for) the
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6074	views position on the screen."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6075
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6076	self mapAt:nil iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6077
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6078	"Modified: 24.7.1997 / 13:44:25 / cg"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6079	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6080
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6081	mapAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6082	"make the view visible on the screen.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6083	For topViews, if aPoint is nonNil, the views origin is located there
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6084	(unless you have a dictator as windowManager ;-)"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6085
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6086	self mapAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6087
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6088	"Modified: 24.7.1997 / 13:45:02 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6089	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6090
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6091	mapAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6092	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6093	For topViews, if aPoint is nonNil, the views origin is located there
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6094	(unless you have a dictator as windowManager ;-).
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6095	If the iconified argument is true, the window is created as icon initially."
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6096
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6097	\|subs\|
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6098
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6099	realized ifFalse:[
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6100	drawableId isNil ifTrue:[
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6101	"
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6102	first time ?
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6103	yes, realize (implies a map)
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6104	"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6105	self realizeKeepingGroup:false at:aPoint iconified:iconified
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6106	] ifFalse:[
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6107	"
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6108	no, map only
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6109	"
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6110	realized := true.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6111	aPoint isNil ifTrue:[
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6112	iconified ifTrue:[
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6113	device mapView:self id:drawableId iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6114	atX:0 y:0
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6115	width:width height:height.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6116	] ifFalse:[
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6117	device mapWindow:drawableId.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6118	]
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6119	] ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6120	left := aPoint x.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6121	top := aPoint y.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6122	device mapView:self id:drawableId iconified:iconified
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6123	atX:left y:top
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6124	width:width height:height.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6125	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6126
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6127	"
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6128	implies that all realized subviews
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6129	are now also mapped
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6130	"
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6131	(subs := self subViews) notNil ifTrue:[
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6132	subs do:[:v \|
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6133	v mapped
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6134	]
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6135	]
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6136	].
140 0db355079dc4 . claus parents: 138 diff changeset	6137	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6138
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6139	"Modified: 23.8.1996 / 14:53:55 / stefan"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6140	"Created: 24.7.1997 / 13:43:23 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6141	"Modified: 24.7.1997 / 13:46:21 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6142	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6143
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6144	mapIconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6145	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6146	For topViews, the view is created in iconified state"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6147
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6148	self mapAt:nil iconified:true
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6149
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6150	"Modified: 24.7.1997 / 13:44:25 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6151	"Created: 24.7.1997 / 13:47:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6152	!
0db355079dc4 . claus parents: 138 diff changeset	6153
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6154	physicalCreate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6155	"common code for create & recreate:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6156	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6157
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6158	\|sv org listener ret\|
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6159
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6160	sv := superView isNil ifTrue:[superView] ifFalse:[superView view].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6161
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6162	org := (left @ top).
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6163
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6164	"/ if there is a global eventListener,
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6165	"/ give it a chance to intercept windowCreation
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6166	"/ and provide another origin.
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6167
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6168	(listener := WindowSensor eventListener) notNil ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6169	ret := listener preCreateView:self origin:org.
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6170	ret isPoint ifTrue:[
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6171	org := ret
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6172	]
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6173	].
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6174
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6175	drawableId := device
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6176	createWindowFor:self
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6177	type:nil
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6178	origin:org
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6179	extent:(width @ height)
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6180	minExtent:nil
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6181	maxExtent:nil
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6182	borderWidth:borderWidth
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6183	subViewOf:sv
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6184	style:(self windowStyle)
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6185	inputOnly:(self isInputOnly)
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6186	label:nil
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6187	cursor:cursor
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6188	icon:nil iconMask:nil
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6189	iconView:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6190
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6191	Lobby registerChange:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6192
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6193	"/ if there is a global eventListener,
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6194	"/ give it a chance to track views
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6195
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6196	listener notNil ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6197	listener postCreateView:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6198	].
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6199
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6200	extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6201	originChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6202
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	6203	(borderColor notNil and:[borderColor ~= Black]) ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6204	"/ borderColor := borderColor on:device.
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6205	self setBorderColor
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6206	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6207	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6208	device setWindowGravity:viewGravity in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6209	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6210	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6211	device setBitGravity:bitGravity in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6212	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6213	viewShape notNil ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6214	self setViewShape
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6215	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6216	(backed notNil and:[backed ~~ false]) ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6217	device setBackingStore:backed in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6218	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6219	saveUnder ifTrue:[
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6220	device setSaveUnder:true in:drawableId
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6221	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6222
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6223	"Modified: 18.9.1997 / 11:09:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6224	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6225
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6226	postRealize
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6227	"invoked after a view was realized.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6228	Can be redefined in subclasses to perform delayed actions."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6229
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6230	"/ nothing done here
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6231
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6232	"Created: 24.7.1997 / 14:35:36 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6233	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6234
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6235	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6236	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6237	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6238	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6239
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6240	self realizeKeepingGroup:false at:nil iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6241
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6242	"Modified: 24.7.1997 / 13:14:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6243	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6244
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6245	realizeAllSubViews
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6246	"realize all my subviews - but not myself."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6248	subViews notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6249	subViews do:[:subView \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6250	subView realize
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6251	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6252	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6253	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6254	components do:[:component \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6255	component realize
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6256	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6257	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6258
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6259	"Modified: 5.9.1995 / 23:30:47 / claus"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6260	"Modified: 13.1.1997 / 21:25:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6261	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6262
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6263	realizeAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6264	"realize - make visible;
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6265	realizing is done very late (after layout is fixed) to avoid
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6266	visible rearranging of windows on the screen"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6267
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6268	self realizeKeepingGroup:false at:aPoint iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6269
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6270	"Modified: 24.7.1997 / 13:14:28 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6271	"Created: 24.7.1997 / 13:21:04 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6272	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6273
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6274	realizeInGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6275	"special realize - leave windowgroup as is;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6276	This allows a view to be realized in any windowgroup;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6277	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	6278	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	6279
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6280	windowGroup isForModalSubview:true.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6281	"/ self realize.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6282
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6283	self realizeKeepingGroup:true at:nil iconified:false
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6284
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6285	"Modified: 20.8.1997 / 14:56:20 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6286	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6287
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6288	realizeKeepingGroup:keepGroupAsIs at:position iconified:iconified
151 8123ec03c52f . claus parents: 145 diff changeset	6289	"common helper for realize and realizeInGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6290	Create the view; if the keepGroupAsIs argument is not true,
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6291	assign my windowGroup."
140 0db355079dc4 . claus parents: 138 diff changeset	6292
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6293	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	6294
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6295	"/ fetch device colors, to avoid reallocation at redraw time
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6296	self fetchDeviceResources.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6297
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6298	drawableId isNil ifTrue:[self create].
140 0db355079dc4 . claus parents: 138 diff changeset	6299
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	6300	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6301
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6302	(windowGroup notNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6303	and:[superView isNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6304	and:[windowGroup isForModalSubview]]) ifTrue:[
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6305	keep := true.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6306	] ifFalse:[
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6307	keep := keepGroupAsIs
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6308	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6309
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6310	keep ifFalse:[
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6311	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6312	put myself into superviews windowgroup if there is a superview
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6313	This is the default behavior, which may be suppressed by
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6314	passing true as keepGroupAsIs-argument.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6315	(it may be useful to assign a separate windowGroup to
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6316	a childView to have it execute independent of the parent
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6317	-> an example is found in the fileBrowsers kill-button)
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6318	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6319	superView notNil ifTrue:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6320	superGroup := superView windowGroup.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6321	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6322	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6323	mhmh - seems that the windowgroup has changed ....
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6324	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	6325	"/ 'oops - wgroup change on realize' printNL.
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6326	groupChange := true.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6327
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6328	"/
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6329	"/ recursively change the windowGroup of
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6330	"/ myself and all of my children
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6331	"/
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6332	self windowGroup:superGroup.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6333	] ifFalse:[
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6334	windowGroup isNil ifTrue:[
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6335	"/
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6336	"/ only change the group of myself -
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6337	"/ subviews will fetch it when realized.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6338	"/
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6339	windowGroup := superGroup.
1890 126f70e5fe6a * empty log message * Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	6340	superGroup notNil ifTrue:[superGroup addView:self].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6341	]
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6342	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6343	].
140 0db355079dc4 . claus parents: 138 diff changeset	6344	].
0db355079dc4 . claus parents: 138 diff changeset	6345
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6346	(originChanged or:[extentChanged]) ifTrue:[
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6347	self fixSize.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6348	self sizeChanged:nil. "/ new 29-aug-1995
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6349	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6350	position notNil ifTrue:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6351	self origin:position.
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6352	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6353
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6354	(subViews notNil or:[components notNil]) ifTrue:[
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6355	(realized not or:[groupChange]) ifTrue:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6356	self realizeAllSubViews.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6357	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6358	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	6359
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6360	iconified ifTrue:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6361	realized ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6362	self mapIconified
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6363	]
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6364	] ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6365	hiddenOnRealize ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6366	self setInnerClip.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6367
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6368	realized ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6369	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6370	now, make the view visible
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6371	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6372	self mapAt:position
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6373	]
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6374	]
140 0db355079dc4 . claus parents: 138 diff changeset	6375	].
0db355079dc4 . claus parents: 138 diff changeset	6376
0db355079dc4 . claus parents: 138 diff changeset	6377	controller notNil ifTrue:[
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6378	controller startUp
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6379	].
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6380
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6381	self postRealize
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6382
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6383	"Modified: 23.8.1996 / 15:07:16 / stefan"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6384	"Created: 24.7.1997 / 13:10:17 / cg"
1890 126f70e5fe6a * empty log message * Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	6385	"Modified: 29.8.1997 / 01:15:23 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6386	!
0db355079dc4 . claus parents: 138 diff changeset	6387
0db355079dc4 . claus parents: 138 diff changeset	6388	recreate
0db355079dc4 . claus parents: 138 diff changeset	6389	"recreate (i.e. tell X about me) after a snapin"
0db355079dc4 . claus parents: 138 diff changeset	6390
0db355079dc4 . claus parents: 138 diff changeset	6391	drawableId isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6392	super recreate.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6393	self physicalCreate.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6394
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6395	viewBackground notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6396	self setViewBackground
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6397	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6398
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6399	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6400	XXX has to be changed: eventmasks are device specific -
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6401	XXX will not allow restart on another Workstation-type.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6402	XXX event masks must become symbolic
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6403	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6404	device setEventMask:eventMask in:drawableId
140 0db355079dc4 . claus parents: 138 diff changeset	6405	]
0db355079dc4 . claus parents: 138 diff changeset	6406	!
0db355079dc4 . claus parents: 138 diff changeset	6407
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6408	remap
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6409	"make the view visible on the screen at its previous position.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6410	In contrast to map, this asks the windowManager to show the view
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6411	immediately (instead of asking for a frame). However, some windowManagers
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6412	are known to ignore this ..."
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6413
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6414	realized ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6415	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6416	now, make the view visible
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6417	"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6418	realized := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6419	device mapView:self id:drawableId iconified:false
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6420	atX:left y:top width:width height:height.
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6421	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6422
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6423	"Created: 8.5.1996 / 09:33:06 / cg"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6424	"Modified: 25.2.1997 / 22:44:33 / cg"
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6425	!
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6426
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6427	rerealize
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6428	"rerealize at old position in (a possibly different) windowGroup."
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6429
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6430	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6431
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6432	self rerealizeInGroup:windowGroup.
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6433
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6434	"Created: 7.11.1996 / 16:27:09 / cg"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6435	"Modified: 13.1.1997 / 21:53:18 / cg"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6436	!
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	6437
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6438	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6439	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6440
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6441	drawableId isNil ifTrue:[self create].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6442	drawableId notNil ifTrue:[
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6443	aWindowGroup ~~ windowGroup ifTrue:[
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6444	windowGroup notNil ifTrue:[
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6445	windowGroup removeView:self
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6446	].
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6447	windowGroup := aWindowGroup.
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6448	aWindowGroup addTopView:self.
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6449	].
454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6450	self remap.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6451	]
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	6452
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	6453	"Modified: 3.5.1996 / 23:59:30 / stefan"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	6454	"Modified: 28.7.1997 / 18:53:01 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6455	!
0db355079dc4 . claus parents: 138 diff changeset	6456
0db355079dc4 . claus parents: 138 diff changeset	6457	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	6458	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	6459
0db355079dc4 . claus parents: 138 diff changeset	6460	drawableId notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6461	realized := true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6462	self realizeAllSubViews.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6463	device mapView:self id:drawableId iconified:false
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6464	atX:left y:top width:width height:height
140 0db355079dc4 . claus parents: 138 diff changeset	6465	]
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6466
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6467	"Modified: 28.1.1997 / 17:59:28 / cg"
180 0b3a8658d55e . claus parents: 176 diff changeset	6468	!
0b3a8658d55e . claus parents: 176 diff changeset	6469
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6470	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6471	"resize myself to make everything fit into me.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6472	Here, nothing special is done (except for setting my extent to the
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6473	preferredExtent), but may be redefined in some subclasses."
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6474
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6475	explicitExtent ~~ true ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6476	self extent:(self preferredExtent).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6477	explicitExtent := false.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6478	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6479
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	6480	"Modified: 15.7.1996 / 11:20:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6481	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6482
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6483	unmap
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6484	"hide me - the view stays created, and can be remapped again later."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6485
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6486	realized ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6487	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6488	realized := false.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6489	device unmapWindow:drawableId
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6490	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6491	shown := realized := false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6492	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	6493
4c49bdd5b80f . claus parents: 189 diff changeset	6494	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6495	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6496
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6497	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6498	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6499
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6500	sub := View
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6501	origin:0.2@0.2
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6502	corner:0.8@0.8
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6503	in:top.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6504
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6505	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6506	sub hiddenOnRealize:true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6507
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6508	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6509	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6510	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6511	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6512	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6513	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6514	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6515	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	6516	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6517
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6518	"Modified: 25.2.1997 / 23:13:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6519	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6520
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6521	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6522	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6523
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	6524	self obsoleteMethodWarning:'use unmap'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6525	self unmap.
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	6526
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	6527	"Modified: 4.5.1996 / 00:07:48 / stefan"
151 8123ec03c52f . claus parents: 145 diff changeset	6528	! !
8123ec03c52f . claus parents: 145 diff changeset	6529
8123ec03c52f . claus parents: 145 diff changeset	6530	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	6531
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6532	flash
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6533	"flash the view - fill it black, then white, finally
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6534	redraw completely.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6535	Can be used to wakeup the user :-)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6536	when problem or warning conditions arise.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6537	Someone may redefine this to flush its contents (instead of black/white)."
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6538
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6539	self fill:Black.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6540	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6541	self fill:White.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6542	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6543	self clear.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6544	self invalidate
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6545
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6546	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6547	\|v\|
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6548
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6549	v := View new openAndWait.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6550	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6551	v flash.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6552	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6553	v destroy
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6554	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6555
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6556	"Modified: 19.4.1997 / 11:56:35 / cg"
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6557	!
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6558
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6559	invalidate
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6560	"add a damage to redraw the recevier to its input event queue.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6561	This is preferable to calling redraw directly, in that the drawing is done by
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6562	the views process itself, and there is a possibilty to merge
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6563	multiple damage rectangles into single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6564	However, be aware, that the redrawing may be delayed for some time,
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6565	intil the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6566
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6567	\|sensor\|
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6568
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6569	(sensor := self sensor) notNil ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6570	sensor flushExposeEventsFor:self.
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6571	sensor addDamage:(0@0 extent:width@height) view:self
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6572	] ifFalse:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6573	shown ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6574	self redrawX:0 y:0 width:width height:height
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6575	]
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6576	]
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6577
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6578	"Created: 26.5.1996 / 17:17:38 / cg"
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6579	"Modified: 6.8.1997 / 20:33:09 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6580	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6581
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6582	invalidate:aRectangle
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6583	"add a damage to redraw part of the recevier, to its input event queue.
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6584	This is preferable to calling redraw directly,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6585	in that the drawing is done by the views process itself,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6586	and there is a possibilty to merge multiple damage rectangles into
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6587	single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6588	However, be aware, that the redrawing may be delayed for some time,
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6589	intil the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6590
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6591	\|sensor\|
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6592
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6593	(sensor := self sensor) notNil ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6594	sensor addDamage:aRectangle view:self.
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6595	] ifFalse:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6596	shown ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6597	self redraw:aRectangle
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6598	]
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6599	]
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6600
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6601	"Created: 26.5.1996 / 17:18:25 / cg"
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6602	"Modified: 6.8.1997 / 20:33:16 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6603	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6604
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6605	invalidate:aRectangle repairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6606	"add a damage to redraw part of the receiver, to its input event queue.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6607	and (if repairNow is true), force the receiver to repair all of its
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6608	damaged areas right now."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6609
1750 f1fe28f1d6da dont redraw in pixelOrigin:extent: if not yet shown Claus Gittinger <cg@exept.de> parents: 1748 diff changeset	6610	\|sensor\|
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6611
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6612	(sensor := self sensor) notNil ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6613	sensor addDamage:aRectangle view:self.
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6614	(shown and:[doRepair]) ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6615	self repairDamage
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6616	]
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6617	] ifFalse:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6618	shown ifTrue:[
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6619	self redraw:aRectangle
6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6620	].
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6621	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6622
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	6623	"Modified: 6.8.1997 / 18:22:29 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6624	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6625
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6626	invalidateRepairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6627	"add a damage to redraw all of the receiver, to its input event queue.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6628	and (if repairNow is true), force the receiver to repair all of its
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6629	damaged areas right now."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6630
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6631	self
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6632	invalidate:(Rectangle left:0 top:0 width:width height:height)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6633	repairNow:doRepair
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6634
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6635	"Created: 19.4.1997 / 11:58:04 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6636	"Modified: 19.4.1997 / 12:00:00 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6637	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6638
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6639	redraw
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6640	"redraw myself completely - this is sent by redrawX:y:width:height:
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6641	as a fallback.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6642	Cannot do much here - is redefined in subclasses which dont care for
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6643	updating regions but instead update everything."
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6644
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6645	"Modified: 29.5.1996 / 18:02:52 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6646	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6647
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6648	redraw:aRectangle
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6649	"redraw a part of the view immediately."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6650
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6651	self
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6652	redrawX:(aRectangle left)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6653	y:(aRectangle top)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6654	width:(aRectangle width)
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6655	height:(aRectangle height)
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6656
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6657	"Modified: 19.4.1997 / 11:54:23 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6658	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6659
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6660	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6661	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6662	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6663	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6664	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6665
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6666	\|lx ly lw lh\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6667
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6668	lx := x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6669	ly := y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6670	lw := w.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6671	lh := h.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6672
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6673	transformation notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6674	lx := transformation applyInverseToX:lx.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6675	ly := transformation applyInverseToY:ly.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6676	lw := transformation applyInverseScaleX:lw.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6677	lh := transformation applyInverseScaleY:lh.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6678	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6679	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6680	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6681
151 8123ec03c52f . claus parents: 145 diff changeset	6682	redrawX:x y:y width:w height:h
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6683	"redraw part of myself immediately, given logical coordinates
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6684	(if transformation is nonNil)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6685	The default here is to redraw everything
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6686	- subclasses usually redefine this, adding more intelligence"
151 8123ec03c52f . claus parents: 145 diff changeset	6687
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6688	\|area oldClip\|
151 8123ec03c52f . claus parents: 145 diff changeset	6689
8123ec03c52f . claus parents: 145 diff changeset	6690	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	6691
8123ec03c52f . claus parents: 145 diff changeset	6692	area := Rectangle left:x top:y width:w height:h.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6693	oldClip := clipRect.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6694	self clippingRectangle:area.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6695
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6696	components notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6697	self clearRectangleX:x y:y width:w height:h.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6698	components do:[:aComponent \|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6699	\|thisFrame is\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6700
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6701	thisFrame := aComponent bounds.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6702	(thisFrame intersects:area) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6703	aComponent displayOn:self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6704	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6705	]
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6706	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6707	"/ redraw everything - a fallBack for lazy views.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6708	self redraw
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6709	].
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6710
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6711	self clippingRectangle:oldClip.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	6712
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6713	"Modified: 19.4.1997 / 11:55:08 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6714	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6715
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6716	repairDamage
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6717	"force the receiver to repair all of its
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6718	damaged areas right now.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6719	CAVEAT: currently, all of the windowGroups views will repair their
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6720	damages - this might change."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6721
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6722	\|wg\|
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6723
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6724	shown ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6725	(wg := self windowGroup) notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6726	wg processExposeEvents.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6727	]
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6728	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6729
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	6730	"Created: 19.4.1997 / 12:01:13 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	6731	!
8123ec03c52f . claus parents: 145 diff changeset	6732
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6733	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6734	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6735	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6736
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6737	^ self
135 cf8e46015072 . claus parents: diff changeset	6738	!
cf8e46015072 . claus parents: diff changeset	6739
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	6740	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	6741	"highlight myself somehow to tell user that I have the focus.
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6742	If explicit is true, the focus came via focusStepping (i.e. tabbing);
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6743	if false, it came via the window manager (i.e. pointer entering).
385 15fd1c806d2a pass info if focus change was explicit (i.e. Tab-key) or by window manager. Claus Gittinger <cg@exept.de> parents: 376 diff changeset	6744	Only change my border, if this is an explicit focusChange."
135 cf8e46015072 . claus parents: diff changeset	6745
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6746	\|delta clrId\|
135 cf8e46015072 . claus parents: diff changeset	6747
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	6748	explicit ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6749	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6750	delta := DefaultFocusBorderWidth - borderWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6751	delta ~~ 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6752	device moveWindow:drawableId x:left-delta y:top-delta.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6753	device setWindowBorderWidth:DefaultFocusBorderWidth in:drawableId.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6754	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6755
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6756	clrId := (DefaultFocusColor on:device) colorId.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6757	clrId isNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6758	clrId := device blackpixel
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6759	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6760	device setWindowBorderColor:clrId in:drawableId.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6761	]
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6762	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6763	superView notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6764	superView showFocus:explicit
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6765	]
135 cf8e46015072 . claus parents: diff changeset	6766	]
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	6767
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6768	"Modified: 25.2.1997 / 23:46:56 / cg"
135 cf8e46015072 . claus parents: diff changeset	6769	!
cf8e46015072 . claus parents: diff changeset	6770
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	6771	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	6772	"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	6773	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	6774	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	6775	Only change my border, if this is an explicit focusChange."
135 cf8e46015072 . claus parents: diff changeset	6776
cf8e46015072 . claus parents: diff changeset	6777	\|delta\|
cf8e46015072 . claus parents: diff changeset	6778
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	6779	explicit ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6780	drawableId notNil ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6781	(windowGroup notNil
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6782	and:[windowGroup focusView == self]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6783	delta := DefaultFocusBorderWidth - borderWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6784	delta ~~ 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6785	device setWindowBorderWidth:borderWidth in:drawableId.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6786	device moveWindow:drawableId x:left y:top.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6787	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6788	self setBorderColor.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6789	]
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6790	]
135 cf8e46015072 . claus parents: diff changeset	6791	]
358 27e6259fcb41 only change border in noFocus, if I was the focusView Claus Gittinger <cg@exept.de> parents: 355 diff changeset	6792
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6793	"Modified: 25.2.1997 / 23:51:12 / cg"
135 cf8e46015072 . claus parents: diff changeset	6794	!
cf8e46015072 . claus parents: diff changeset	6795
cf8e46015072 . claus parents: diff changeset	6796	showPassive
cf8e46015072 . claus parents: diff changeset	6797	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	6798	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	6799
cf8e46015072 . claus parents: diff changeset	6800	^ self
cf8e46015072 . claus parents: diff changeset	6801	! !
cf8e46015072 . claus parents: diff changeset	6802
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6803	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6804
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6805	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6806	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6807	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6808
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6809	^ (device horizontalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6810	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6811
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6812	pageDown
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6813	self scrollDown:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6814
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6815	"Created: 13.9.1996 / 14:06:54 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6816	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6817
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6818	pageUp
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6819	self scrollUp:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6820
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6821	"Created: 13.9.1996 / 14:07:01 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6822	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6823
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6824	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6825	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6826	scroll-step down button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6827
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6828	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6829	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6830
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6831	scrollDown:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6832	"change origin to scroll down some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6833
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6834	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6835
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6836	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6837	^ self scrollTo:(viewOrigin x @ (viewOrigin y + nPixels))
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6838
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6839	"Modified: 20.8.1996 / 17:34:36 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6840	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6841
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6842	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6843	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6844
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6845	\|orgY\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6846
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6847	orgY := self viewOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6848	^ self scrollTo:(aPixelOffset @ orgY).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6849
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6850	"Modified: 8.7.1996 / 15:34:54 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	6851	!
0db355079dc4 . claus parents: 138 diff changeset	6852
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6853	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6854	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6855
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6856	\|wCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6857
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6858	wCont := self widthOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6859	transformation notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6860	wCont := transformation applyScaleX:wCont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6861	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6862	self scrollHorizontalTo:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6863	((((wCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6864	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6865
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6866	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6867	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6868	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6869
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6870	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6871	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6872
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6873	scrollLeft:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6874	"change origin to scroll left some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6875
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6876	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6877
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6878	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6879	^ self scrollTo:((viewOrigin x - nPixels) @ viewOrigin y).
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6880
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6881	"Modified: 20.8.1996 / 17:35:09 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6882	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6883
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6884	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6885	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6886	scroll-step right button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6887
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6888	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6889	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6890
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6891	scrollRight:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6892	"change origin to scroll right some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6893
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6894	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6895
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6896	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6897	^ self scrollTo:((viewOrigin x + nPixels) @ viewOrigin y)
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6898
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6899	"Modified: 20.8.1996 / 17:35:37 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6900	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6901
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6902	scrollToBottom
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6903	self scrollTo:0 @ (self heightOfContents - self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6904
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6905	"Created: 13.9.1996 / 14:08:03 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6906	"Modified: 13.9.1996 / 14:09:32 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6907	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6908
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6909	scrollToPercent:originAsPercent
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6910	"scroll to a position given in percent of total (x and y as a Point)"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6911
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6912	\|wCont hCont percent\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6913
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6914	percent := originAsPercent asPoint.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6915
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6916	wCont := self widthOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6917	hCont := self heightOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6918
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6919	transformation notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6920	wCont := transformation applyScaleX:wCont.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6921	hCont := transformation applyScaleY:hCont.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6922	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6923	self scrollTo:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6924	((((wCont * percent x) / 100.0) + 0.5) asInteger) @
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6925	((((hCont * percent y) / 100.0) + 0.5) asInteger)
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6926
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6927	"Created: 5.8.1996 / 12:15:53 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6928	"Modified: 5.8.1996 / 12:42:57 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6929	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6930
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6931	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6932	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6933
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6934	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6935	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6936
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6937	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6938	"move viewOrigin to top/left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6940	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6941	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6942
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6943	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6944	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6945	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6946
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6947	self scrollUp:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6948	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6949
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6950	scrollUp:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6951	"change origin to scroll up (towards the origin) by some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6952
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6953	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6954
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6955	viewOrigin := self viewOrigin.
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6956	^ self scrollTo:(viewOrigin x @ (viewOrigin y - nPixels)).
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6957
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	6958	"Modified: 20.8.1996 / 17:36:16 / stefan"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6959	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6960
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6961	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6962	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6963
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6964	\|orgX\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6965
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6966	orgX := self viewOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6967	^ self scrollTo:(orgX @ aPixelOffset).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6968
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	6969	"Modified: 8.7.1996 / 15:35:40 / stefan"
135 cf8e46015072 . claus parents: diff changeset	6970	!
cf8e46015072 . claus parents: diff changeset	6971
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6972	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6973	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6974
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6975	\|hCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6976
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6977	hCont := self heightOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6978	transformation notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6979	hCont := transformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	6980	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6981	self scrollVerticalTo:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	6982	((((hCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6983	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6984
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6985	verticalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6986	"return the amount to scroll when stepping up/down.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6987	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6988
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6989	^ (device verticalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6990	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6991
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6992	widthForScrollBetween:yStart and:yEnd
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6993	"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	6994	- 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	6995	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	6996	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	6997	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	6998	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6999
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7000	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	7001	! !
cf8e46015072 . claus parents: diff changeset	7002
cf8e46015072 . claus parents: diff changeset	7003	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	7004
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7005	scrollTo:newOrigin
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7006	"change origin to have newOrigin be visible at the top-left.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7007	The argument defines the integer device coordinates of the new top-left
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7008	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7009
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7010	^ self scrollTo:newOrigin redraw:true
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7011
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7012	"Modified: 15.7.1996 / 11:35:08 / stefan"
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7013	"Modified: 13.9.1996 / 14:09:19 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7014	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7015
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7016	scrollTo:newOrigin redraw:doRedraw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7017	"change origin to have newOrigin be visible at the top-left.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7018	The argument defines the integer device coordinates of the new top-left
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7019	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7020
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7021	\|dX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7022	dY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7023	orgX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7024	orgY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7025	x y iw ih
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7026	hCont wCont fromX toX fromY toY copyWidth copyHeight
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7027	redrawX redrawY\|
135 cf8e46015072 . claus parents: diff changeset	7028
cf8e46015072 . claus parents: diff changeset	7029	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	7030	wCont := self widthOfContents.
cf8e46015072 . claus parents: diff changeset	7031	transformation isNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7032	orgY := orgX := 0
135 cf8e46015072 . claus parents: diff changeset	7033	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7034	wCont := (transformation applyScaleX:wCont) rounded.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7035	hCont := (transformation applyScaleY:hCont) rounded.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7036	orgY := transformation translation y negated.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7037	orgX := transformation translation x negated
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7038	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7039
135 cf8e46015072 . claus parents: diff changeset	7040	iw := self innerWidth.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7041	ih := self innerHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7042
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7043	"don't scroll outside of displayed area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7044
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7045	x := newOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7046	y := newOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7047
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7048	x + iw > wCont ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7049	x := wCont - iw.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7050	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7051	x < 0 ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7052	x := 0
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7053	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7054	y + ih > hCont ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7055	y := hCont - ih.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7056	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7057	y < 0 ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7058	y := 0.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7059	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7060
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7061	dX := x - orgX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7062	dY := y - orgY.
135 cf8e46015072 . claus parents: diff changeset	7063
1066 bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7064	(dX == 0 and:[dY == 0]) ifTrue:[
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7065	^ self
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7066	].
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7067
135 cf8e46015072 . claus parents: diff changeset	7068	self originWillChange.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7069	(shown and:[doRedraw]) ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7070	copyWidth := iw - dX abs.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7071	copyHeight := ih - dY abs.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7072	((copyWidth > 0) and:[copyHeight > 0]) ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7073	"/ some of the currently displayed pixels
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7074	"/ remain visible. Copy them
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7075
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7076	dX < 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7077	fromX := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7078	toX := margin - dX.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7079	redrawX := margin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7080	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7081	fromX := margin + dX.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7082	toX := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7083	redrawX := margin + copyWidth.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7084	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7085	dY < 0 ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7086	fromY := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7087	toY := margin - dY.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7088	redrawY := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7089	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7090	fromY := margin + dY.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7091	toY := margin.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7092	redrawY := margin + copyHeight.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7093	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7094	self catchExpose.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7095	self setViewOrigin:(x @ y).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7096	self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7097	copyFrom:self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7098	x:fromX y:fromY
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7099	toX:toX y:toY
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7100	width:copyWidth
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7101	height:copyHeight
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7102	async:true.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7103
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7104	self setInnerClip.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7105
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7106	"first redraw the rectangle above/below the
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7107	copied area (with full width)."
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7108
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7109	copyHeight < ih ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7110	self
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7111	redrawDeviceX:margin y:redrawY
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7112	width:iw height:(ih - copyHeight).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7113	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7114
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7115	"second redraw the rectangle left/right of the
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7116	copied area"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7117
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7118	copyWidth < iw ifTrue:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7119	self redrawDeviceX:redrawX y:toY
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7120	width:iw - copyWidth
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7121	height:copyHeight.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7122	].
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7123	self waitForExpose.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7124	] ifFalse:[
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7125	"redraw everything"
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7126
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7127	self setViewOrigin:(x @ y).
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7128	self redrawDeviceX:margin y:margin
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7129	width:iw
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7130	height:ih.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7131	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7132	] ifFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7133	self setViewOrigin:(x @ y).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7134	].
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	7135	self originChanged:(dX negated @ dY negated).
6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	7136
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7137	"Modified: 5.8.1996 / 11:57:09 / stefan"
1293 530a47b8dc4c explicit async bitBlt Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	7138	"Modified: 29.1.1997 / 13:08:26 / cg"
135 cf8e46015072 . claus parents: diff changeset	7139	! !
cf8e46015072 . claus parents: diff changeset	7140
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7141	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7142
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7143	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7144	"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	7145	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7146	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	7147	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7148	can be opened as a topView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7149	This is redefined in ModalBox, which comes up modal (i.e.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7150	control is under the current process, so that interaction with the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7151	current group is blocked while the modalBox is active)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7152
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7153	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7154
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7155	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7156	View new open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7157	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7158
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7159	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7160	(Button label:'hello') open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7161	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7162
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7163	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7164	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7165	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7166	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7167	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7168	top open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7169	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7170
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7171	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7172	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7173	"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7174
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7175	"Modified: 24.7.1997 / 13:26:42 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7176	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7177
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7178	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7179	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7180	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	7181	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	7182	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7183	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	7184	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	7185	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7186
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7187	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7188	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7189
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7190	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7191
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7192	\|v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7193
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7194	v := View new open.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7195	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7196
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7197	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7198
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7199	\|v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7200
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7201	v := View new openAndWait.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7202	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7203	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7204	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7205
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7206	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7207	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7208
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7209	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7210
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7211	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7212	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7213
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7214	(Button label:'hello') openAt:(100@100)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7215	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7216
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7217	"Modified: 24.7.1997 / 13:26:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7218	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7219
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7220	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7221	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7222
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7223	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7224
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7225	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7226	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7227
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7228	(Button label:'hello') openAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7229	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7230
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7231	"Modified: 24.7.1997 / 13:01:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7232	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7233
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7234	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7235	"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	7236	The view will be handled by its own process, effectively running in
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7237	parallel.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7238	Notice:
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7239	This entry is for NON-topviews, which want to be served
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7240	autonomous from their real topview.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7241	(see the fileBrowsers kill-button
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7242	when executing unix commands as an example)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7243
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7244	\|wg mainGroup\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7245
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	7246	wg := WindowGroup new.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	7247	self windowGroup:wg.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7248
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7249	mainGroup := WindowGroup activeGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7250	mainGroup notNil ifTrue:[
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7251	mainGroup := mainGroup mainGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7252	].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7253
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7254	wg isForModalSubview:true. "/ make it handle update events for the main group
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7255	wg startupWith:[wg mainGroup:mainGroup. self realizeInGroup].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7256
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7257	"/ wg startupModal:[true] forGroup:mainGroup
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7258	"/ self realizeInGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7259
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7260	"Modified: 20.8.1997 / 17:57:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7261	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7262
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7263	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7264	"special open within another windowGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7265	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	7266	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7267	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7268
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7269	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7270	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7271
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7272	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7273	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7274	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7275	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7276
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7277	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7278	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7279	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	7280	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7281	(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	7282
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7283	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7285	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7286	the same:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7287	YesNoBox new open
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7288
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7289	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7290
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7291	different:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7292	(Button label:'hello') open
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7293
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7294	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7295	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7296	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7297
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7298	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7299	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7300	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7301	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	7302	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7303	(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	7304	This makes any interaction with the current window impossible -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7305	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7306
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7307	\|mainGroup\|
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7308
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7309	mainGroup := WindowGroup activeGroup.
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7310	mainGroup notNil ifTrue:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7311	mainGroup := mainGroup mainGroup.
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7312	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7313	^ self openModal:aBlock inGroup:mainGroup.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7314
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7315	"Created: 10.12.1995 / 14:06:45 / cg"
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7316	"Modified: 28.2.1997 / 22:31:50 / cg"
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7317	!
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7318
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7319	openModal:aBlock inGroup:mainGroup
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7320	"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	7321	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	7322	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	7323	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7324	(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	7325	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	7326	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	7327
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7328	\|tops mainView mainViewID\|
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7329
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7330	self isPopUpView ifFalse:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7331	ModalBox usingTransientViews ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7332	mainGroup notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7333	mainGroup topViews notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7334	mainView := mainGroup topViews first.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7335	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7336	mainView notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7337	mainViewID := mainView id.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7338	]
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7339	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7340
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7341	mainViewID isNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7342	self origin:(device center - (self extent//2))
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7343	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7344
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7345	drawableId isNil ifTrue:[self create].
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7346	device setTransient:drawableId for:mainViewID.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7347	].
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7348	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7349
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	7350	self raise.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7351
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7352	Processor activeProcessIsSystemProcess ifTrue:[
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7353	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7354	put myself into the modal group, let it handle events for
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7355	me as well. This is only a half way solution, since the view
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7356	is not modal at all ... however, the only situation
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7357	where this happens is with modal boxes popped while in a
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7358	modal browser. You will forgive me for that inconvenience.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7359	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7360	windowGroup := mainGroup.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7361	mainGroup notNil ifTrue:[mainGroup addTopView:self].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7362	self realize
135 cf8e46015072 . claus parents: diff changeset	7363	] ifFalse:[
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7364	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7365	show a stop-cursor in the main group
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7366	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7367	mainGroup notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7368	self isPopUpView ifFalse:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7369	mainGroup showCursor:(Cursor stop).
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7370	]
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7371	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7372
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7373	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7374	create a new window group and put myself into it
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7375	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7376	windowGroup := WindowGroup new.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7377	windowGroup addTopView:self.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7378
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7379	superView notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7380	"/
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7381	"/ special: this is a modal subview,
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7382	"/ prevent the view from reassigning its windowGroup when realized
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7383	"/ (subviews normally place themself into the superviews group)
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7384	"/
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7385	windowGroup isForModalSubview:true.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7386	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7387
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7388	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7389	go dispatch events in this new group
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7390	(thus current windowgroup is blocked from interaction)
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7391	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7392	AbortSignal handle:[:ex \|
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7393	self hide.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7394	ex return.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7395	] do:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7396	[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7397	[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7398	windowGroup startupModal:[realized and:aBlock] forGroup:mainGroup
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7399	] valueOnUnwindDo:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7400	self hide
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7401	]
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7402	] valueNowOrOnUnwindDo:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7403	mainGroup notNil ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7404	ReturnFocusWhenClosingModalBoxes ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7405	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7406	return input focus to previously active groups top.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7407	This helps with windowmanagers which need an explicit click
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7408	on the view for the focus.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7409	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7410	tops := mainGroup topViews.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7411	(tops notNil and:[tops notEmpty]) ifTrue:[
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7412	tops first getKeyboardFocus
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7413	]
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7414	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7415
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7416	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7417	restore cursors in the main group & flush its buffered key & mouse events
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7418	"
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7419	mainGroup restoreCursors.
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	7420	"/ mainGroup sensor flushUserEvents.
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7421	]
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7422	]
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	7423	].
135 cf8e46015072 . claus parents: diff changeset	7424	]
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7425
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7426	"Created: 10.12.1995 / 14:06:14 / cg"
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7427	"Modified: 20.8.1997 / 15:14:44 / cg"
135 cf8e46015072 . claus parents: diff changeset	7428	!
cf8e46015072 . claus parents: diff changeset	7429
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7430	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7431	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7432	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7433
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7434	self origin:aPoint.
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7435	drawableId isNil ifTrue:[self create].
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	7436	"/ device setTransient:drawableId for:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7437	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7438
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7439	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7440	View new openModal
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7441	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7442	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7443	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7444	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7445
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7446	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7447	"Modified: 18.9.1995 / 23:32:26 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7448	"Modified: 28.7.1997 / 18:52:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7449	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7450
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7451	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7452	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7453	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7454
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7455	^ self openModalAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7456
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7457	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7458	View new openModal
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7459	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7460	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7461	View new openModalAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7462	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7463
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7464	"Modified: 24.7.1997 / 13:27:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7465	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7466
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7467	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7468	"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	7469	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	7470	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7471
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7472	self openModelessAt:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7473
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7474	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7475	the same:
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7476	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7477
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7478	(Button label:'hello') openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7479
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7480	different:
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7481	YesNoBox new open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7482
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7483	YesNoBox new openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7484	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7485	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7486	(almost) the same:
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7487	YesNoBox new open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7488
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7489	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7490
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7491	different:
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7492	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7493
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7494	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7495	"
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	7496
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7497	"Modified: 24.7.1997 / 13:17:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7498	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7499
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7500	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7501	"open up the view modeless - positions the view
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7502	(i.e. tries to circumvent the window managers positioning)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7503	Notice: some windowManagers seem to ignore this and always
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7504	ask the user to position the view."
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7505
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7506	self openModelessAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7507
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7508	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7509	View new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7510
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7511	View new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7512	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7513
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7514	"Created: 18.9.1995 / 23:21:42 / claus"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7515	"Modified: 24.7.1997 / 13:48:52 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7516	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7517
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7518	openModelessAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7519	"open up the view modeless - positions the view
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7520	(i.e. tries to circumvent the window managers positioning)
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7521	Notice: some windowManagers seem to ignore this and always
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7522	ask the user to position the view."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7523
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7524	\|newGroup\|
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7525
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7526	drawableId isNil ifTrue:[self create].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7527
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7528	windowGroup isNil ifTrue:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7529	newGroup := true.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7530	windowGroup := WindowGroup new.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7531	] ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7532	newGroup := false.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7533	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7534
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7535	windowGroup addTopView:self.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7536	(aPoint isNil and:[iconified not]) ifTrue:[
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7537	windowGroup startupWith:[self realize].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7538	] ifFalse:[
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7539	windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7540	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7541
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7542	newGroup ifFalse:[
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7543	self realizeInGroup.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7544	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7545
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7546	"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7547	StandardSystemView new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7548
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7549	StandardSystemView new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7550
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7551	StandardSystemView new openModelessAt:100@100 iconified:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7552	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7553
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7554	"Created: 18.9.1995 / 23:21:42 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7555	"Modified: 28.7.1997 / 18:52:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7556	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7557
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7558	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7559	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7560	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7561
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7562	^ self openModelessAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7563
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7564	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7565	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7566
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7567	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7568	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7569
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7570	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7571	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7572
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7573	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7574	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7575	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	7576	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	7577	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7578	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	7579	in doIt expressions), or subsequent views depend on some state of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7580	another view (which is only available once visible),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7581	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	7582	Caveat:
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7583	we poll here for the view to be shown - we need a semaphore
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7584	which is raised by the view in order to do it right."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7585
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7586	[self shown] whileFalse:[
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7587	Delay waitForSeconds:0.05.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7588	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7589
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7590	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7591	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	7592	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7593
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7594	\|v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7595
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7596	v := View new open.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7597	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7598
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7599	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7600	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7601
1696 ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7602	\|v\|
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7603
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7604	v := View new open.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7605	v waitUntilVisible.
ba6085a629e0 replaced isPopUp flag in #createWindow by a more general #style symbol argument Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	7606	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7607	"
135 cf8e46015072 . claus parents: diff changeset	7608	! !
cf8e46015072 . claus parents: diff changeset	7609
cf8e46015072 . claus parents: diff changeset	7610	!SimpleView methodsFor:'user notification'!
cf8e46015072 . claus parents: diff changeset	7611
cf8e46015072 . claus parents: diff changeset	7612	warn:aString
cf8e46015072 . claus parents: diff changeset	7613	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	7614	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	7615
151 8123ec03c52f . claus parents: 145 diff changeset	7616	super warn:(resources string:aString) withCRs
135 cf8e46015072 . claus parents: diff changeset	7617	!
cf8e46015072 . claus parents: diff changeset	7618
cf8e46015072 . claus parents: diff changeset	7619	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	7620	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	7621	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	7622
151 8123ec03c52f . claus parents: 145 diff changeset	7623	super warn:(resources string:aString with:argument) withCRs
8123ec03c52f . claus parents: 145 diff changeset	7624	!
8123ec03c52f . claus parents: 145 diff changeset	7625
8123ec03c52f . claus parents: 145 diff changeset	7626	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	7627	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	7628	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	7629
8123ec03c52f . claus parents: 145 diff changeset	7630	super warn:(resources string:aString with:arg1 with:arg2) withCRs
135 cf8e46015072 . claus parents: diff changeset	7631	! !
cf8e46015072 . claus parents: diff changeset	7632
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7633	!SimpleView::ViewShape methodsFor:'accessing'!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7634
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7635	borderShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7636	"return the value of the instance variable 'borderShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7637
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7638	^ borderShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7639
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7640	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7641	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7642
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7643	borderShapeForm:something
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7644	"set the value of the instance variable 'borderShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7645
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7646	borderShapeForm := something.
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7647
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7648	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7649	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7650
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7651	viewShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7652	"return the value of the instance variable 'viewShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7653
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7654	^ viewShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7655
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7656	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7657	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7658
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7659	viewShapeForm:something
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7660	"set the value of the instance variable 'viewShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7661
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7662	viewShapeForm := something.
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7663
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7664	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7665	! !
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7666
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	7667	!SimpleView class methodsFor:'documentation'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7668
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7669	version
1931 27aa9e5b15dd * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	7670	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.235 1997-10-21 18:11:53 cg Exp $'
135 cf8e46015072 . claus parents: diff changeset	7671	! !
cf8e46015072 . claus parents: diff changeset	7672	SimpleView initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 21 Oct 1997 20:11:53 +0200
changeset 1931	27aa9e5b15dd
parent 1918	a4042019bc8b
child 1938	8c7584b4d61f
permissions	-rw-r--r--