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

135 cf8e46015072 . claus parents: diff changeset	1	"
cf8e46015072 . claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	4
cf8e46015072 . claus parents: diff changeset	5	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	6	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	9	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	10	hereby transferred.
cf8e46015072 . claus parents: diff changeset	11	"
cf8e46015072 . claus parents: diff changeset	12
727 bf23a306b6f2 renamed PseudoView to DisplaySurface Claus Gittinger <cg@exept.de> parents: 724 diff changeset	13	DisplaySurface subclass:#SimpleView
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	14	instanceVariableNames:'superView subViews components styleSheet resources borderColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	15	borderWidth viewShape top left extentChanged originChanged
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	16	cornerChanged relativeOrigin relativeExtent relativeCorner
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	17	originRule extentRule cornerRule insets layout shown
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	18	hiddenOnRealize name level margin innerClipRect shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	19	lightColor bitGravity viewGravity controller windowGroup
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	20	preferredExtent explicitExtent dependents layoutManager'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	21	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	22	DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	23	DefaultShadowColor DefaultBorderWidth DefaultFocusColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	24	DefaultFocusBorderWidth ReturnFocusWhenClosingModalBoxes'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	25	poolDictionaries:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	26	category:'Views-Basic'
135 cf8e46015072 . claus parents: diff changeset	27	!
cf8e46015072 . claus parents: diff changeset	28
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	29	SimpleView class instanceVariableNames:'ClassResources DefaultFont'
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	30
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	31	"
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	32	The following class instance variables are inherited by this class:
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	33
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	34	DisplaySurface -
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	35	GraphicsMedium -
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	36	DeviceGraphicsContext -
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	37	GraphicsContext -
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	38	Object -
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	39	"
140 0db355079dc4 . claus parents: 138 diff changeset	40	!
135 cf8e46015072 . claus parents: diff changeset	41
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	42	Object subclass:#ViewShape
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	43	instanceVariableNames:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	44	classVariableNames:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	45	poolDictionaries:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	46	privateIn:SimpleView
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	47	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	48
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	49	SimpleView::ViewShape subclass:#ArbitraryViewShape
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	50	instanceVariableNames:'viewShapeForm borderShapeForm'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	51	classVariableNames:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	52	poolDictionaries:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	53	privateIn:SimpleView
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	54	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	55
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	56	SimpleView::ViewShape subclass:#RoundViewShape
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	57	instanceVariableNames:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	58	classVariableNames:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	59	poolDictionaries:''
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	60	privateIn:SimpleView
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	61	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	62
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	63	!SimpleView class methodsFor:'documentation'!
135 cf8e46015072 . claus parents: diff changeset	64
cf8e46015072 . claus parents: diff changeset	65	copyright
cf8e46015072 . claus parents: diff changeset	66	"
cf8e46015072 . claus parents: diff changeset	67	COPYRIGHT (c) 1989 by Claus Gittinger
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	68	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	69
cf8e46015072 . claus parents: diff changeset	70	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	71	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	72	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	73	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	74	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	75	hereby transferred.
cf8e46015072 . claus parents: diff changeset	76	"
cf8e46015072 . claus parents: diff changeset	77	!
cf8e46015072 . claus parents: diff changeset	78
cf8e46015072 . claus parents: diff changeset	79	documentation
cf8e46015072 . claus parents: diff changeset	80	"
cf8e46015072 . claus parents: diff changeset	81	this class implements functions common to all Views which do not work on / show a model.
cf8e46015072 . claus parents: diff changeset	82	Previously, all of this functionality used to be in the old View class, but has been
cf8e46015072 . claus parents: diff changeset	83	separated into this new SimpleView (which does not know about models) and the new View, which
cf8e46015072 . claus parents: diff changeset	84	does so.
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	85	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	86	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	87	(there are simply too many subclasses of View around ...).
7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	88
135 cf8e46015072 . claus parents: diff changeset	89	Instances of SimpleView are seldom used, most views in the system inherit
cf8e46015072 . claus parents: diff changeset	90	from this class.
cf8e46015072 . claus parents: diff changeset	91	However, sometimes a view is used to create a dummy view for framing
cf8e46015072 . claus parents: diff changeset	92	or layout purposes.
cf8e46015072 . claus parents: diff changeset	93
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	94	[Instance variables:]
135 cf8e46015072 . claus parents: diff changeset	95
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	96	superView <View> my superview i.e. the view I am in
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	97
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	98	subViews <Collection> the collection of subviews
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	99
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	100	components <Collection> collection of gadgets (will be merged with subViews, soon)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	101
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	102	borderColor <Color> color of border
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	103
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	104	borderWidth <Number> borderWidth in pixels (device dep.)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	105
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	106	viewShape <Form> shape of view & border (if device supports it)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	107
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	108	top <Number> actual top coordinate (pixels) in superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	109
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	110	left <Number> actual left coordinate (pixels) in superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	111
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	112	extendChanged <Boolean> true if extend changed during setup
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	113
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	114	originChanged <Boolean> true if origin changed during setup
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	115
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	116	relativeOrigin <Number> relative origin in percent within superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	117
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	118	relativeExtent <Number> relative extent in percent within superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	119
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	120	relativeCorner <Number> relative corner in percent within superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	121
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	122	originRule <Block> rule to compute origin if superview changes size
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	123
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	124	extentRule <Block> rule to compute extent if superview changes size
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	125
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	126	cornerRule <Block> rule to compute corner if superview changes size
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	127
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	128	insets <Array> array with top, left, bottom & right insets (or nil)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	129
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	130	layout <LayoutObject> not yet implemented - will replace the above layout
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	131	variables.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	132
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	133	shown <Boolean> true if visible (false if iconified, unmapped or covered)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	134
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	135	hiddenOnRealize <Boolean> dont show automatically when superview is realized
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	136
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	137	name <String> my name (future use for resources)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	138
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	139	level <Number> 3D level relative to superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	140
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	141	margin <Number> convenient margin
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	142
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	143	innerClipRect <Rectangle> convenient inner clip (minus margin)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	144
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	145	shadowColor <Color> color used to draw 3D shadowed edges
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	146
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	147	lightColor <Color> color used to draw 3D lighted edges
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	148
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	149	bitGravity <nil \| Symbol> gravity of contents (if device supports it)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	150
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	151	viewGravity <nil \| Symbol> gravity of view (if device supports it)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	152
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	153	controller <nil \| Controller> the controller (if any)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	154
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	155	windowGroup <WindowGroup> the windowGroup
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	156
135 cf8e46015072 . claus parents: diff changeset	157
cf8e46015072 . claus parents: diff changeset	158
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	159	[Class variables:]
135 cf8e46015072 . claus parents: diff changeset	160
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	161	Grey <Color> the color grey - its used so often
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	162
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	163	ViewSpacing <Number> preferred spacing between views; 1mm
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	164
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	165	CentPoint <Point> 100 @ 100 - its used so often
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	166
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	167	StyleSheet <ResourcePack> contains all view-style specifics
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	168
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	169	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	170	<Boolean> the keyboard focus to the view which was
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	171	active when the box was opened.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	172	If false (the default), it is left to
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	173	window manager to assign a new focus.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	174	If running on olwm/olvwm (which requires an
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	175	explicit click to reassign a focus), it is
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	176	better to turn this on in a private.rc file.
135 cf8e46015072 . claus parents: diff changeset	177
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	178	[styleSheet parameters:]
135 cf8e46015072 . claus parents: diff changeset	179
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	180	popupShadow <Boolean> if true, popupViews show a shadow below
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	181
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	182	popupLevel <nil \| Integer> 3D level
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	183
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	184	borderWidth <nil \| Integer> borderWidth (ignored in 3D styles)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	185
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	186	borderColor <nil \| Color> borderColor (ignored in 3D styles)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	187
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	188	viewBackground <nil \| Color> views background
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	189
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	190	shadowColor <nil \| Color> color for shadow edges (ignored in 2D styles)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	191
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	192	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	193
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	194	font <nil \| Font> font to use
135 cf8e46015072 . claus parents: diff changeset	195
cf8e46015072 . claus parents: diff changeset	196
cf8e46015072 . claus parents: diff changeset	197	TODO:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	198	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	199	and insets; replace by a single object which defines the size
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	200	(mhmh - ST-80 seems to call this LayoutFrame ?)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	201	-> be prepared for a change here in the near future and ONLY use
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	202	access methods to get those instance variables' values
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	203
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	204	get rid of 3D level & margin, move it to extra wrappers
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	205	(although this will make view setup more complicated, it will remove
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	206	complexity from the internals of view. Also, it will allow for more
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	207	varieties of borders.)
151 8123ec03c52f . claus parents: 145 diff changeset	208
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	209	add components (could also call them gadgets or lightweight views)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	210	- views are expensive in terms of X resources. This would make all
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	211	framing/edge and panel helper views become cheap ST objects, instead
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	212	of views.
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	213
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	214
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	215	[see also:]
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	216	StandardSystemView DialogBox
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	217	WindowGroup WindowEvent
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	218	Layout
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	219	( introduction to view programming :html: programming/viewintro.html )
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	220
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	221	[author:]
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	222	Claus Gittinger
135 cf8e46015072 . claus parents: diff changeset	223	"
151 8123ec03c52f . claus parents: 145 diff changeset	224	!
8123ec03c52f . claus parents: 145 diff changeset	225
8123ec03c52f . claus parents: 145 diff changeset	226	examples
8123ec03c52f . claus parents: 145 diff changeset	227	"
8123ec03c52f . claus parents: 145 diff changeset	228	(all examples below use different viewBackgrounds,
8123ec03c52f . claus parents: 145 diff changeset	229	to make the individual subviews visible)
8123ec03c52f . claus parents: 145 diff changeset	230
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	231	a subView in a topView:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	232	[exBegin]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	233	\|top v\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	234
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	235	top := StandardSystemView new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	236	v := View new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	237	v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	238	top addSubView:v.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	239	top open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	240	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	241
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	242
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	243	the same, a bit more compact:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	244	[exBegin]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	245	\|top v\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	246
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	247	top := StandardSystemView new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	248	v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	249	top open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	250	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	251
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	252
151 8123ec03c52f . claus parents: 145 diff changeset	253	fixed position/size:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	254	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	255	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	256
8123ec03c52f . claus parents: 145 diff changeset	257	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	258	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	259
8123ec03c52f . claus parents: 145 diff changeset	260	v1 := View origin:10@10
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	261	corner:50@50
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	262	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	263	v2 := View origin:60@10
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	264	corner:150@100
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	265	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	266
8123ec03c52f . claus parents: 145 diff changeset	267	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	268	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	269
8123ec03c52f . claus parents: 145 diff changeset	270	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	271	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	272
8123ec03c52f . claus parents: 145 diff changeset	273	same, using ST-80 way of bulding up view hierarchies
8123ec03c52f . claus parents: 145 diff changeset	274	(recommended, if you plan to port applications later)
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	275	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	276	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	277
8123ec03c52f . claus parents: 145 diff changeset	278	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	279	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	280
8123ec03c52f . claus parents: 145 diff changeset	281	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	282	v1 origin:10@10 corner:50@50.
8123ec03c52f . claus parents: 145 diff changeset	283
8123ec03c52f . claus parents: 145 diff changeset	284	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	285	v2 origin:60@10 corner:150@100.
8123ec03c52f . claus parents: 145 diff changeset	286
8123ec03c52f . claus parents: 145 diff changeset	287	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	288	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	289
8123ec03c52f . claus parents: 145 diff changeset	290	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	291	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	292
8123ec03c52f . claus parents: 145 diff changeset	293	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	294	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	295
8123ec03c52f . claus parents: 145 diff changeset	296	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	297	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	298
8123ec03c52f . claus parents: 145 diff changeset	299	fixed origin, variable size:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	300	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	301	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	302
8123ec03c52f . claus parents: 145 diff changeset	303	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	304	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	305
8123ec03c52f . claus parents: 145 diff changeset	306	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	307	v1 origin:10@10 corner:50@0.5.
8123ec03c52f . claus parents: 145 diff changeset	308
8123ec03c52f . claus parents: 145 diff changeset	309	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	310	v2 origin:60@10 corner:150@0.5.
8123ec03c52f . claus parents: 145 diff changeset	311
8123ec03c52f . claus parents: 145 diff changeset	312	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	313	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	314
8123ec03c52f . claus parents: 145 diff changeset	315	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	316	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	317
8123ec03c52f . claus parents: 145 diff changeset	318	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	319	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	320
8123ec03c52f . claus parents: 145 diff changeset	321	fixed origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	322	bottomInset for constant distance from bottom:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	323	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	324	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	325
8123ec03c52f . claus parents: 145 diff changeset	326	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	327	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	328
8123ec03c52f . claus parents: 145 diff changeset	329	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	330	v1 origin:10@10 corner:50@1.0.
8123ec03c52f . claus parents: 145 diff changeset	331	v1 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	332
8123ec03c52f . claus parents: 145 diff changeset	333	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	334	v2 origin:60@10 corner:150@1.0.
8123ec03c52f . claus parents: 145 diff changeset	335	v2 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	336
8123ec03c52f . claus parents: 145 diff changeset	337	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	338	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	339
8123ec03c52f . claus parents: 145 diff changeset	340	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	341	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	342
8123ec03c52f . claus parents: 145 diff changeset	343	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	344	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	345
8123ec03c52f . claus parents: 145 diff changeset	346	variable origin, variable size,
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	347	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	348	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	349
8123ec03c52f . claus parents: 145 diff changeset	350	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	351	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	352
8123ec03c52f . claus parents: 145 diff changeset	353	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	354	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	355
8123ec03c52f . claus parents: 145 diff changeset	356	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	357	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	358
8123ec03c52f . claus parents: 145 diff changeset	359	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	360	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	361
8123ec03c52f . claus parents: 145 diff changeset	362	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	363	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	364
8123ec03c52f . claus parents: 145 diff changeset	365	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	366	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	367
8123ec03c52f . claus parents: 145 diff changeset	368	variable origin, variable size,
8123ec03c52f . claus parents: 145 diff changeset	369	insets for some constant distance
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	370	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	371	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	372
8123ec03c52f . claus parents: 145 diff changeset	373	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	374	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	375
8123ec03c52f . claus parents: 145 diff changeset	376	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	377	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	378	v1 rightInset:5.
8123ec03c52f . claus parents: 145 diff changeset	379
8123ec03c52f . claus parents: 145 diff changeset	380	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	381	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	382	v2 leftInset:5.
8123ec03c52f . claus parents: 145 diff changeset	383
8123ec03c52f . claus parents: 145 diff changeset	384	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	385	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	386
8123ec03c52f . claus parents: 145 diff changeset	387	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	388	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	389
8123ec03c52f . claus parents: 145 diff changeset	390	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	391	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	392
8123ec03c52f . claus parents: 145 diff changeset	393	using layout objects (ST-80 style):
8123ec03c52f . claus parents: 145 diff changeset	394	fully specifying the frame
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	395	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	396	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	397
8123ec03c52f . claus parents: 145 diff changeset	398	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	399	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	400
8123ec03c52f . claus parents: 145 diff changeset	401	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	402	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	403
8123ec03c52f . claus parents: 145 diff changeset	404	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	405	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	406
8123ec03c52f . claus parents: 145 diff changeset	407	top add:v1 in:(LayoutFrame new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	408	leftFraction:0.25;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	409	rightFraction:0.75;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	410	topFraction:0.0;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	411	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	412	top add:v2 in:(LayoutFrame new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	413	leftFraction:0.5;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	414	rightFraction:1.0;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	415	topFraction:0.5;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	416	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	417
8123ec03c52f . claus parents: 145 diff changeset	418	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	419	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	420
8123ec03c52f . claus parents: 145 diff changeset	421	another one, with offsets:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	422	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	423	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	424
8123ec03c52f . claus parents: 145 diff changeset	425	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	426	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	427
8123ec03c52f . claus parents: 145 diff changeset	428	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	429	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	430
8123ec03c52f . claus parents: 145 diff changeset	431	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	432	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	433
8123ec03c52f . claus parents: 145 diff changeset	434	top add:v1 in:(LayoutFrame new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	435	leftFraction:0.0 offset:10;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	436	rightFraction:1.0 offset:-10;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	437	topFraction:0.0 offset:10;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	438	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	439	top add:v2 in:(LayoutFrame new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	440	leftFraction:0.0 offset:30;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	441	rightFraction:1.0 offset:-30;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	442	topFraction:0.5 offset:10;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	443	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	444
8123ec03c52f . claus parents: 145 diff changeset	445	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	446	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	447
8123ec03c52f . claus parents: 145 diff changeset	448	specifying origin only. Extent is views preferred
8123ec03c52f . claus parents: 145 diff changeset	449	(notice, that plain views have some defaultExtent of 100@100)
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	450	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	451	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	452
8123ec03c52f . claus parents: 145 diff changeset	453	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	454	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	455
8123ec03c52f . claus parents: 145 diff changeset	456	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	457	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	458
8123ec03c52f . claus parents: 145 diff changeset	459	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	460	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	461
8123ec03c52f . claus parents: 145 diff changeset	462	top add:v1 in:(LayoutOrigin new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	463	leftFraction:0.25;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	464	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	465	top add:v2 in:(LayoutOrigin new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	466	leftFraction:0.5;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	467	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	468
8123ec03c52f . claus parents: 145 diff changeset	469	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	470	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	471
8123ec03c52f . claus parents: 145 diff changeset	472	same example, using buttons which compute their preferredBounds:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	473	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	474	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	475
8123ec03c52f . claus parents: 145 diff changeset	476	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	477	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	478
8123ec03c52f . claus parents: 145 diff changeset	479	v1 := Button label:'foo'.
8123ec03c52f . claus parents: 145 diff changeset	480	v2 := Button label:'a very long buttonLabel'.
8123ec03c52f . claus parents: 145 diff changeset	481
8123ec03c52f . claus parents: 145 diff changeset	482	v1 backgroundColor:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	483	v2 backgroundColor:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	484
8123ec03c52f . claus parents: 145 diff changeset	485	top add:v1 in:(LayoutOrigin new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	486	leftFraction:0.25;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	487	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	488	top add:v2 in:(LayoutOrigin new
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	489	leftFraction:0.5;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	490	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	491
8123ec03c52f . claus parents: 145 diff changeset	492	top open
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	493	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	494	"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	497	layoutComputation
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	498	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	499	Due to historic reasons, there are 2 mechanisms to resize a view:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	500	- (old, to be eliminated mechanism)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	501	based upon info found in
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	502	relativeOrigin / relativeCorner / relativeExtent
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	503	originRule / cornerRule / extentRule
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	504
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	505	- (new, will migrate to that one)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	506	letting a layoutObject compute things
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	507
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	508	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	509	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	510	geometry is desired.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	511	However, having 6 instance variables in every view creates some overhead,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	512	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	513	relative-sized).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	514	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	515	to use layoutObjects.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	516	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	517	existing interfaces will (silently) create layoutObjects as appropriate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	518	However, you should remove all direct accesses to the above mentioned
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	519	instance variables, to be prepared for that change.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	520
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	521	Notice, that a view recomputes its size whenever its superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	522	changes size. This is done via:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	523	sizeChanged
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	524	-> allSubviews: superViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	525
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	526	If the geometry computation as performed in superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	527	is not powerful enough for your application, you can either:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	528	- redefine superViewChangedSize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	529	- create a special layoutObject which computes a new layout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	530	"
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	popupMenus
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	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	536	definition:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	537
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	538	- static menus
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	539
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	540	- dynamic menus from the view
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	541
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	542	- dynamic menus from the model / menuHolder
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	543
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	544
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	545	static menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	546	------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	547
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	548	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	549	has a constant menu which never changes.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	550	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	551	The menu is defined with:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	552
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	553	someView middleButtonMenu:<aPopUpMenu>
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	554
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	555	Compatibility note:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	556	static menus should no longer be used - their operation
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	557	is incompatible with ST-80 and ST/X's dynamic menus.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	558	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	559	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	560	(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	561
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	562	example:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	563	\|top v1 v2\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	564
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	565	top := StandardSystemView new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	566	top extent:300@300.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	567
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	568	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	569	v1 viewBackground:Color red.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	570
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	571	v2 := View origin:0.5@0.0 corner:1.0@1.0 in:top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	572	v2 viewBackground:Color yellow.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	573
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	574	v1 middleButtonMenu:(
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	575	PopUpMenu
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	576	labels:#('foo' 'bar')
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	577	selectors:#(foo bar)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	578	receiver:v1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	579	).
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	580
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	581	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	582
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	583
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	584
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	585	dynamic menus
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
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	588	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	589	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	590	(i.e. it may be different from the model).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	591	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	592	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	593
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	594	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	595	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	596	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	597	by textViews.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	598
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	599	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	600	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	601	- so the textView still performs the copy-function correctly
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	602	(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	603	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	604	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	605	(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	606
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	607	\|top v1 v2 holder\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	608
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	609	holder := Plug new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	610	holder respondTo:#menu1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	611	with:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	612	v1 menuMessage:#otherMenu1.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	613	PopUpMenu
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	614	labels:#('foo' 'bar')
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	615	selectors:#(foo bar).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	616	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	617	holder respondTo:#otherMenu1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	618	with:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	619	v1 menuMessage:#menu1.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	620	PopUpMenu
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	621	labels:#('other foo' 'other bar')
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	622	selectors:#(foo bar).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	623	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	624	holder respondTo:#menu2
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	625	with:[ PopUpMenu
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	626	labels:#('copy' 'bar2')
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	627	selectors:#(copySelection bar2)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	628	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	629
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	630	top := StandardSystemView new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	631	top extent:300@300.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	632
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	633	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	634	v1 viewBackground:Color red.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	635
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	636	v2 := TextView origin:0.5@0.0 corner:1.0@1.0 in:top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	637	v2 contents:'pop me up'.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	638
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	639	v1 model:holder; menuMessage:#menu1.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	640	v2 menuHolder:holder; menuMessage:#menu2.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	641
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	642	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	643
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	644	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	645	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	646	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	647	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	648
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	649	example:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	650	(Notice: the executor understands the #copySelection message - therefore, the
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	651	views built-in copy is NOT performed
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	652	- it could be forwarded to the view, though.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	653	This could be useful to intercept/filter things).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	654
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	655	\|top v menuProvider menuExecutor \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	656
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	657	menuProvider := Plug new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	658	menuProvider respondTo:#menu
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	659	with:[ PopUpMenu
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	660	labels:#('copy' 'foo')
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	661	selectors:#(copySelection foo)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	662	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	663
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	664	menuExecutor := Plug new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	665	menuExecutor respondTo:#copySelection
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	666	with:[Transcript showCR:'copy function'].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	667	menuExecutor respondTo:#foo
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	668	with:[Transcript showCR:'foo function'].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	669
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	670	top := StandardSystemView new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	671	top extent:300@300.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	672
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	673	v := TextView origin:0.0@0.0 corner:1.0@1.0 in:top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	674	v contents:'pop me up'.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	675
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	676	v menuHolder:menuProvider; menuMessage:#menu.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	677	v menuPerformer:menuExecutor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	678
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	679	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	680	"
135 cf8e46015072 . claus parents: diff changeset	681	! !
cf8e46015072 . claus parents: diff changeset	682
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	683	!SimpleView class methodsFor:'initialization'!
135 cf8e46015072 . claus parents: diff changeset	684
cf8e46015072 . claus parents: diff changeset	685	initialize
cf8e46015072 . claus parents: diff changeset	686	DefaultStyle isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	687	Font initialize.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	688	Form initialize.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	689	Color initialize.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	690
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	691	self == SimpleView ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	692	Smalltalk addDependent:self "/ to get language changes
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	693	]
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	694	].
365 347a478d8cf5 default returnFocus to false Claus Gittinger <cg@exept.de> parents: 364 diff changeset	695	ReturnFocusWhenClosingModalBoxes := false.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	696
3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	697	"Modified: 18.5.1996 / 16:56:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	698	!
cf8e46015072 . claus parents: diff changeset	699
cf8e46015072 . claus parents: diff changeset	700	postAutoload
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	701	(Screen notNil and:[Screen current notNil]) ifTrue:[
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	702	self updateStyleCache.
62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	703	]
135 cf8e46015072 . claus parents: diff changeset	704	! !
cf8e46015072 . claus parents: diff changeset	705
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	706	!SimpleView class methodsFor:'instance creation'!
135 cf8e46015072 . claus parents: diff changeset	707
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	708	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	709	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	710
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	711	^ self origin:nil extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	712	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	713	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	714
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	715	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	716	"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	717
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	718	^ self origin:nil extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	719	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	720	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	721
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	722	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	723	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	724
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	725	^ self origin:nil extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	726	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	727	!
cf8e46015072 . claus parents: diff changeset	728
cf8e46015072 . claus parents: diff changeset	729	in:aView
cf8e46015072 . claus parents: diff changeset	730	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	731	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	732	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	733	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	734	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	735	it will come up as a topview."
135 cf8e46015072 . claus parents: diff changeset	736
cf8e46015072 . claus parents: diff changeset	737	\|newView\|
cf8e46015072 . claus parents: diff changeset	738
cf8e46015072 . claus parents: diff changeset	739	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	740	aView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	741	newView device:(aView graphicsDevice).
2302 9525834a6be7 manual bg-pixmap drawing on devices which do not support them (win32) Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	742	"/ newView container:aView.
135 cf8e46015072 . claus parents: diff changeset	743	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	744	newView device:Screen current
135 cf8e46015072 . claus parents: diff changeset	745	].
cf8e46015072 . claus parents: diff changeset	746	newView initialize.
cf8e46015072 . claus parents: diff changeset	747	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	748	^ newView
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	749
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	750	"Modified: 28.5.1996 / 20:24:58 / cg"
135 cf8e46015072 . claus parents: diff changeset	751	!
cf8e46015072 . claus parents: diff changeset	752
140 0db355079dc4 . claus parents: 138 diff changeset	753	label:label
0db355079dc4 . claus parents: 138 diff changeset	754	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	755
cf8e46015072 . claus parents: diff changeset	756	^ self origin:nil extent:nil borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	757	font:nil label:label in:nil
140 0db355079dc4 . claus parents: 138 diff changeset	758	!
0db355079dc4 . claus parents: 138 diff changeset	759
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	760	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	761	"create a new view as subview of aView with given label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	762
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	763	^ self origin:nil extent:nil borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	764	font:nil label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	765	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	766
1393 0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	767	model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	768	"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	769	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	770	subclasses may."
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	771
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	772	^ self new model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	773
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	774	"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	775	"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	776	!
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	777
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	778	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	779	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	780
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	781	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	782	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	783	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	784	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	785	^ self new model:aModel.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	786	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	787
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	788	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	789	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	790	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	791	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	792
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	793	\|device\|
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	anotherView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	796	device := anotherView graphicsDevice.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	797	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	798	device := Screen current.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	799	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	800	^ self onDevice:device
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	801
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	802	"Modified: 28.5.1996 / 20:25:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	803	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	804
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	805	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	806	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	807
140 0db355079dc4 . claus parents: 138 diff changeset	808	^ self origin:origin corner:corner borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	809	font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	810	!
cf8e46015072 . claus parents: diff changeset	811
cf8e46015072 . claus parents: diff changeset	812	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	813	\|newView\|
cf8e46015072 . claus parents: diff changeset	814
cf8e46015072 . claus parents: diff changeset	815	aView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	816	newView := self basicNew.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	817	newView device:(aView graphicsDevice).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	818	newView initialize.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	819	aView addSubView:newView.
135 cf8e46015072 . claus parents: diff changeset	820	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	821	newView := self onDevice:Screen current
135 cf8e46015072 . claus parents: diff changeset	822	].
cf8e46015072 . claus parents: diff changeset	823	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	824	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	825	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	826	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	827	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	828	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	829
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	830	"Modified: 28.5.1996 / 20:25:15 / cg"
135 cf8e46015072 . claus parents: diff changeset	831	!
cf8e46015072 . claus parents: diff changeset	832
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	833	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	834	"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	835
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	836	^ self origin:origin corner:corner borderWidth:bw
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	837	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	838	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	839
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	840	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	841	"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	842
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	843	^ self origin:origin corner:corner borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	844	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	845	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	846
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	847	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	848	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	849
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	850	^ self origin:origin extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	851	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	852	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	853
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	854	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	855	"create a new view with given origin, extent and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	856
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	857	^ self origin:origin extent:extent borderWidth:bw
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	858	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	859	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	860
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	861	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	862	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	863
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	864	aView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	865	newView := self basicNew.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	866	newView device:(aView graphicsDevice).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	867	newView initialize.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	868	aView addSubView:newView.
140 0db355079dc4 . claus parents: 138 diff changeset	869	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	870	newView := self onDevice:Screen current
140 0db355079dc4 . claus parents: 138 diff changeset	871	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	872	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	873	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	874	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	875	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	876	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	877	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	878
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	879	"Modified: 28.5.1996 / 20:25:19 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	882	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	883	"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	884	and borderWidth"
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	^ self origin:origin extent:extent borderWidth:bw
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	887	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	888	!
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	origin:origin extent:extent font:aFont label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	891	^ self origin:origin extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	892	font:nil label:label in:nil
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	895	origin:origin extent:extent font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	896	^ self origin:origin extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	897	font:aFont label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	898	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	899
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	900	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	901	"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	902
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	903	^ self origin:origin extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	904	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	905	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	906
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	907	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	908	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	909
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	910	^ self origin:origin extent:extent borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	911	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	912	!
cf8e46015072 . claus parents: diff changeset	913
cf8e46015072 . claus parents: diff changeset	914	origin:anOrigin extent:anExtent
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	915	label:aLabel icon:aForm
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	916	minExtent:minExtent maxExtent:maxExtent
135 cf8e46015072 . claus parents: diff changeset	917	\|newView\|
cf8e46015072 . claus parents: diff changeset	918
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	919	newView := self onDevice:Screen current.
135 cf8e46015072 . claus parents: diff changeset	920	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	921	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	922	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	923	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	924	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	925	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	926	^ newView
cf8e46015072 . claus parents: diff changeset	927	!
cf8e46015072 . claus parents: diff changeset	928
140 0db355079dc4 . claus parents: 138 diff changeset	929	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	930	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	931
0db355079dc4 . claus parents: 138 diff changeset	932	^ self origin:origin extent:nil borderWidth:nil
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	933	font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	934	! !
cf8e46015072 . claus parents: diff changeset	935
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	936	!SimpleView class methodsFor:'change & update'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	937
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	938	update:something with:aParameter from:changedObject
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	939	something == #Language ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	940	"flush resources on language changes"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	941	self flushAllClassResources
135 cf8e46015072 . claus parents: diff changeset	942	]
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	943
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	944	"Created: 15.6.1996 / 15:23:04 / cg"
135 cf8e46015072 . claus parents: diff changeset	945	! !
cf8e46015072 . claus parents: diff changeset	946
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	947	!SimpleView class methodsFor:'defaults'!
135 cf8e46015072 . claus parents: diff changeset	948
140 0db355079dc4 . claus parents: 138 diff changeset	949	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	950	"return the default extent of my instances.
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	951	The value returned here is usually ignored, and
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	952	the value from preferredExtent taken instead."
140 0db355079dc4 . claus parents: 138 diff changeset	953
0db355079dc4 . claus parents: 138 diff changeset	954	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	955	^ CentPoint
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	956
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	957	"Modified: 22.4.1996 / 23:38:39 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	958	!
0db355079dc4 . claus parents: 138 diff changeset	959
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	960	defaultFont
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	961	\|f\|
0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	962
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	963	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	964
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	965	DefaultFont isNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	966	self == SimpleView ifFalse:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	967	f := self superclass defaultFont.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	968	] ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	969	f := super defaultFont
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	970	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	971	].
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	972
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	973	f notNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	974	DefaultFont := f.
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	975	f := f onDevice:(Screen current).
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	976	f notNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	977	DefaultFont := f.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	978	]
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	979	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	980	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	981
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	982	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	983	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	984
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	985	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	986	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	987
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	988	\|f\|
39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	989
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	990	DefaultFont := aFont.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	991	aFont notNil ifTrue:[
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	992	f := aFont onDevice:(Screen current).
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	993	f notNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	994	DefaultFont := f.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	995	]
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	996	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	997
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	998	"Modified: 18.3.1996 / 12:56:20 / cg"
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	999	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1000
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1001	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1002	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1003
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1004	^ DefaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1005
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1006	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1007	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1008	"
135 cf8e46015072 . claus parents: diff changeset	1009	!
cf8e46015072 . claus parents: diff changeset	1010
cf8e46015072 . claus parents: diff changeset	1011	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	1012	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	1013
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1014	DefaultStyle := aStyle.
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1015	(Screen notNil and:[Screen current notNil]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1016	self readStyleSheetAndUpdateAllStyleCaches.
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1017	].
135 cf8e46015072 . claus parents: diff changeset	1018
cf8e46015072 . claus parents: diff changeset	1019	"
cf8e46015072 . claus parents: diff changeset	1020	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1021	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1022	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1023	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1024	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1025	"
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1026
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1027	"Modified: / 15.9.1998 / 22:05:02 / cg"
135 cf8e46015072 . claus parents: diff changeset	1028	!
cf8e46015072 . claus parents: diff changeset	1029
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1030	defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1031	"return the default view background"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1032
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1033	^ DefaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1034
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1035	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1036	View defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1037	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1038
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1039	"Modified: 13.8.1997 / 19:37:55 / cg"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1040	!
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1041
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1042	readStyleSheet
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1043	"reload the styleSheet."
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1044
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1045	DefaultStyle isNil ifTrue:[^ self].
3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1046
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1047	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1048	StyleSheet fileReadFailed ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1049	('***** WARNING: no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1050	DefaultStyle ~~ #normal ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1051	DefaultStyle := #normal.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1052	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1053
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1054	StyleSheet fileReadFailed ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1055	'***** WARNING: not even a styleSheet for normal-style (using defaults).' errorPrintCR.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1056	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1057	]
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1058	].
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1059
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1060	"Created: / 15.9.1998 / 22:03:06 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1061	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1062
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1063	readStyleSheetAndUpdateAllStyleCaches
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1064	"reload all style caches in all view classes.
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1065	Needed after a style change or when a style file has been changed"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1066
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1067	DefaultStyle notNil ifTrue:[
3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1068	self readStyleSheet.
3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1069	self updateAllStyleCaches
3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1070	]
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1071
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1072	"Created: / 15.9.1998 / 22:03:59 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1073	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1074
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1075	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1076	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1077	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1078
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1079	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1080	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1081
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1082	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1083	"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	1084	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	1085	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	1086	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	1087	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	1088	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	1089	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	1090	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	1091	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	1092	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1093
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1094	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1095
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1096	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1097	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1098	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1099	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1100	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1101
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1102	setDefaultStyle
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1103	\|defStyle\|
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1104
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1105	defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1106	defStyle notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1107	DefaultStyle := defStyle asSymbol.
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1108	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1109	OperatingSystem isMSWINDOWSlike ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1110	DefaultStyle := #mswindows95
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1111	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1112	DefaultStyle := #motif
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1113	]
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1114	].
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1115	!
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1116
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1117	styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1118	"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	1119
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1120	^ StyleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1121
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1122	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1123	View styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1124	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1125
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1126	"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	1127	!
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1128
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1129	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1130	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1131
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1132	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1133	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1134	self updateAllStyleCaches.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1135	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1136
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1137	updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1138	"reload all style caches in all view classes.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1139	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	1140
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1141	(Screen isNil or:[Screen current isNil]) ifTrue:[^ self].
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1142
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1143	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1144	tell all view classes to flush any
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1145	cached style-data
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1146	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1147	self changed:#style.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1148	SimpleView updateStyleCache.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1149	SimpleView allSubclassesDo:[:aClass \|
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1150	aClass defaultFont:nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1151	(aClass class implements:#updateStyleCache) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1152	aClass updateStyleCache
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1153	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1154	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1155
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1156	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1157	View updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1158	"
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1159
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1160	"Modified: / 15.9.1998 / 22:04:15 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1161	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1162
135 cf8e46015072 . claus parents: diff changeset	1163	updateStyleCache
cf8e46015072 . claus parents: diff changeset	1164	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	1165	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	1166	Subclasses should redefine this to load any cached style-values
cf8e46015072 . claus parents: diff changeset	1167	into faster class variables as well. These should NOT do a
cf8e46015072 . claus parents: diff changeset	1168	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	1169	anyway."
cf8e46015072 . claus parents: diff changeset	1170
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1171	<resource: #style (#viewSpacing #font #borderWidth #borderColor
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1172	#viewBackground #shadowColor #lightColor
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1173	#focusColor #focusBorderWidth)>
2292 8efc5272cf0b defaultStyle either from environmane (STX_VIEWSTYLE) Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	1174
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1175	\|bgGrey currentScreen\|
135 cf8e46015072 . claus parents: diff changeset	1176
cf8e46015072 . claus parents: diff changeset	1177	"
cf8e46015072 . claus parents: diff changeset	1178	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	1179	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	1180	"
cf8e46015072 . claus parents: diff changeset	1181	StyleSheet isNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1182	self setDefaultStyle.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1183	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
135 cf8e46015072 . claus parents: diff changeset	1184	].
cf8e46015072 . claus parents: diff changeset	1185
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1186	currentScreen := Screen current.
c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1187
135 cf8e46015072 . claus parents: diff changeset	1188	Grey := StyleSheet viewGrey.
cf8e46015072 . claus parents: diff changeset	1189	Grey isNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1190	Grey := Color grey
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1191	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1192	Grey := Grey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1193
151 8123ec03c52f . claus parents: 145 diff changeset	1194	StyleSheet fileReadFailed ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1195	bgGrey := White
135 cf8e46015072 . claus parents: diff changeset	1196	] ifFalse:[
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1197	currentScreen hasGrayscales ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1198	bgGrey := Grey
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1199	] ifFalse:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1200	bgGrey := White
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1201	]
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1202	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1203	bgGrey := bgGrey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1204
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1205	ViewSpacing := StyleSheet at:#viewSpacing.
135 cf8e46015072 . claus parents: diff changeset	1206	ViewSpacing isNil ifTrue:[
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1207	ViewSpacing := currentScreen defaultStyleValueFor:#viewSpacing.
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1208	].
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1209
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1210	DefaultBorderColor := StyleSheet colorAt:#borderColor.
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1211	DefaultBorderColor isNil ifTrue:[
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1212	DefaultBorderColor := currentScreen defaultStyleValueFor:#borderColor
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1213	].
151 8123ec03c52f . claus parents: 145 diff changeset	1214
8123ec03c52f . claus parents: 145 diff changeset	1215	StyleSheet fileReadFailed ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1216	DefaultBorderWidth := 1.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1217	DefaultShadowColor := Black.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1218	DefaultLightColor := White.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1219	DefaultFocusColor := Black.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1220	DefaultFocusBorderWidth := 2.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1221	DefaultViewBackgroundColor := White.
151 8123ec03c52f . claus parents: 145 diff changeset	1222	] ifFalse:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1223	DefaultBorderWidth := StyleSheet at:#borderWidth default:0.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1224	DefaultViewBackgroundColor := StyleSheet colorAt:#viewBackground default:bgGrey.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1225	DefaultShadowColor := StyleSheet colorAt:#shadowColor.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1226	DefaultLightColor := StyleSheet colorAt:#lightColor.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1227	DefaultFocusColor := StyleSheet colorAt:#focusColor default:Color red.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1228	DefaultFocusBorderWidth := StyleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	1229	].
135 cf8e46015072 . claus parents: diff changeset	1230
526 3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1231	self == SimpleView ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1232	DefaultFont := StyleSheet at:#font.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1233	DefaultFont isNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1234	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1235	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1236	DefaultFont := DefaultFont onDevice:currentScreen.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1237	] ifFalse:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1238	DefaultFont := nil
135 cf8e46015072 . claus parents: diff changeset	1239	].
cf8e46015072 . claus parents: diff changeset	1240
cf8e46015072 . claus parents: diff changeset	1241	DefaultViewBackgroundColor isNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1242	'SimpleView [warning]: bad viewBackground in style - using white' errorPrintCR.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1243	DefaultViewBackgroundColor := White
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1244	].
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1245
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1246	"Modified: / 29.4.1997 / 11:16:52 / dq"
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1247	"Modified: / 8.3.1999 / 01:36:05 / cg"
135 cf8e46015072 . claus parents: diff changeset	1248	!
cf8e46015072 . claus parents: diff changeset	1249
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1250	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1251	"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	1252	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	1253	get a common look"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1255	^ ViewSpacing
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
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1258	!SimpleView class methodsFor:'resources'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1259
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1260	classResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1261	"if not already loaded, get the classes resourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1262	and return it"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1263
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1264	ClassResources isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1265	ClassResources := ResourcePack for:self.
140 0db355079dc4 . claus parents: 138 diff changeset	1266	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1267	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1268	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1269
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1270	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1271	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1272
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1273	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1274	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1275
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1276	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1277	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1278	Needed after a resource file has changed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1279
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1280	ResourcePack flushCachedResourcePacks.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1281	SimpleView flushClassResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1282	SimpleView allSubclasses do:[:aClass \|
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1283	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1284	]
0db355079dc4 . claus parents: 138 diff changeset	1285
0db355079dc4 . claus parents: 138 diff changeset	1286	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1287	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	1288	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1289	"to change the language:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1290	Language := #english.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1291	Smalltalk changed:#Language.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1292	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1293	or:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1294	Language := #german.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1295	Smalltalk changed:#Language.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1296	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1297	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1298	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1299
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1300	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1301	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1302	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1303
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1304	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1305	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1306
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1307	resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1308	^ self classResources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1309
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1310	"Created: / 25.5.1998 / 13:00:30 / cg"
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1311	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1312
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1313	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1314	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1315	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1316
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1317	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1318	self classResources
135 cf8e46015072 . claus parents: diff changeset	1319	! !
cf8e46015072 . claus parents: diff changeset	1320
2935 0d694759ef57 * empty log message * Claus Gittinger <cg@exept.de> parents: 2921 diff changeset	1321	!SimpleView methodsFor:'Compatibility - ST-80'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1322
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1323	bounds
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1324	"ST-80 compatibility: return my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1325
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1326	^ (self origin) corner:(self corner)
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1327
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1328	"Created: 4.6.1996 / 21:23:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1329	"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	1330	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1331
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1332	bounds:aRectangle
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1333	"ST-80 compatibility: change my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1334
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1335	explicitExtent := true.
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1336	self pixelOrigin:aRectangle origin
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1337	corner:aRectangle corner
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1338
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1339	"Created: 4.6.1996 / 21:44:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1340	"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	1341	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1342
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1343	checkForEvents
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1344	"ST-80 compatibility:
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1345	check for any pending events and process them"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1346
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1347	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1348
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1349	"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	1350	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1351
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1352	displayOn:aGC
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1353	"ST-80 compatibility: (re-)display myself"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1354
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1355	self redraw
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1356
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1357	"Created: 4.6.1996 / 21:25:59 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1358	"Modified: 10.1.1997 / 19:46:58 / cg"
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1359	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1360
1432 23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1361	displayPendingInvalidation
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1362	"dummy - for ST-80 compatibility"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1363
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1364	"Created: 6.3.1997 / 15:17:14 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1365	"Modified: 6.3.1997 / 15:17:31 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1366	!
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1367
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1368	isEnabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1369	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1370	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1371	be disabled.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1372	#isEnabled is ST-80's equivalent of #enabled"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1373
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1374	^ self enabled
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1375	!
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1376
2061 25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1377	isOpen
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1378	"ST80 compatibility"
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1379
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1380	^ realized
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1381
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1382
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1383	!
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1384
2159 da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1385	lookPreferences:prefs
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1386	"ignored - but required for some apps"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1387
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1388	"Created: / 19.6.1998 / 00:05:10 / cg"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1389	!
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1390
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1391	newLayout:aLayoutObject
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1392	"set the layout object which controls my geometry.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1393	ST80-compatibility."
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1394
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1395	here layout:aLayoutObject.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1396
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1397	"Created: 3.3.1997 / 18:54:53 / cg"
1427 35214ddde67c checkin from browser ca parents: 1425 diff changeset	1398	!
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1399
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1400	refresh
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1401	self invalidate
151 8123ec03c52f . claus parents: 145 diff changeset	1402	! !
8123ec03c52f . claus parents: 145 diff changeset	1403
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1404	!SimpleView methodsFor:'Compatibility - Squeak'!
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1405
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1406	insetDisplayBox
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1407	"Squeak mimicri: return my bounds"
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1408
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1409	^ 0@0 corner:(self corner)
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1410
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1411	! !
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1412
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1413	!SimpleView methodsFor:'accessing'!
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1414
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1415	keyboardProcessor
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1416	"return my keyboard processor"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1417
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1418	^ nil
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1419
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1420	"Created: / 13.2.1999 / 10:31:39 / cg"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1421	! !
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1422
2549 9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1423	!SimpleView methodsFor:'accessing-behavior'!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1424
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1425	disable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1426	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1427
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1428	self enabled:false
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1429
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1430	"Modified: / 30.3.1999 / 14:47:30 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1431	"Created: / 30.3.1999 / 15:54:11 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1432	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1433
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1434	enable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1435	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1436
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1437	self enabled:true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1438
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1439	"Modified: / 30.3.1999 / 14:47:22 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1440	"Created: / 30.3.1999 / 15:54:16 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1441	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1442
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1443	enabled
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1444	"views are enabled by default"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1445
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1446	^ true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1447
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1448	"Modified: / 30.3.1999 / 16:27:57 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1449	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1450
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1451	enabled:bool
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1452	"this is the basic machanism to enable/disable a view.
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1453	empty in this class; may be redefined by subclasses"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1454
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1455	"Modified: / 30.3.1999 / 14:46:24 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1456	"Created: / 30.3.1999 / 15:54:21 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1457	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1458
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1459	isEnabled:aState
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1460	"ST-80 compatibility; set enabled state
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1461	"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1462	self enabled:aState
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1463
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1464	"Created: / 30.3.1999 / 15:54:29 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1465	! !
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1466
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1467	!SimpleView methodsFor:'accessing-bg & border'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1468
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1469	allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1470	"set the viewBackground to something, a color, image or form,
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1471	in myself and recursively in all of my subviews"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1472
2784 cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1473	viewBackground ~~ something ifTrue:[
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1474	self viewBackground:something.
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1475	shown ifTrue:[
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1476	self invalidate
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1477	].
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1478	].
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1479
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1480	subViews notNil ifTrue:[
2784 cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1481	subViews do:[:v\|
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1482	v allViewBackground:something
cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1483	]
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1484	]
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1485
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1486	"Created: 17.7.1996 / 14:59:08 / cg"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1487	"Modified: 18.7.1996 / 13:34:26 / cg"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1488	!
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1489
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1490	backgroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1491	"return the background color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1492	here, (since there is no contents), the viewBackground is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1493
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1494	^ self viewBackground
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1495
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1496	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1497	"Created: / 18.6.1998 / 15:59:36 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1498	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1499
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1500	backgroundColor:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1501	"set the background color of the contents -
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1502	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	1503
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1504	self viewBackground:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1505
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1506	"Created: 3.5.1997 / 10:26:49 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1507	"Modified: 3.5.1997 / 10:28:04 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1508	!
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1509
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1510	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1511	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1512
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1513	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1514	^ superView borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1515	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1516
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1517	^ borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1518
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1519	"Modified: 5.6.1996 / 14:11:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1520	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1521
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1522	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1523	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1524
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1525	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1526	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1527	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1528	^ superView borderColor:aColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1529	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1530
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1531	(aColor ~~ borderColor) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1532	borderColor := aColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1533	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1534	self setBorderColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1535	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1536	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1537
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1538	"Modified: 5.6.1996 / 14:11:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1539	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1540
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1541	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1542	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1543
2757 e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1544	aForm isNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1545	viewShape := nil.
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1546	drawableId notNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1547	device setWindowBorderShape:nil in:drawableId
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1548	]
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1549	] ifFalse:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1550	viewShape isNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1551	viewShape := ArbitraryViewShape new
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1552	].
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1553	viewShape borderShapeForm:aForm.
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1554	drawableId notNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1555	device setWindowBorderShape:(aForm id) in:drawableId
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1556	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1557	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1558
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1559	"Modified: 18.9.1997 / 11:09:40 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1560	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1561
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1562	borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1563	"return my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1564
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1565	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1566	^ superView borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1567	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1568
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1569	^ borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1570
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1571	"Modified: 5.6.1996 / 14:11:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1572	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1573
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1574	borderWidth:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1575	"set my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1576
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1577	\|bd\|
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1578
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1579	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1580	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1581	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1582	^ superView borderWidth:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1583	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1584
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1585	(aNumber ~~ borderWidth) ifTrue:[
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1586	bd := aNumber.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1587	(device supportsWindowBorder:bd) ifFalse:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1588	bd > 1 ifTrue:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1589	(device supportsWindowBorder:(bd := 1)) ifFalse:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1590	^ self
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1591	].
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1592	]
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1593	].
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1594	borderWidth := bd.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1595	drawableId notNil ifTrue:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1596	device setWindowBorderWidth:aNumber in:drawableId
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1597	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1598	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1599
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1600	"Modified: 5.6.1996 / 14:12:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1601	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1602
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1603	foregroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1604	"return the foreground color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1605	here, (since there is no contents), some default is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1606
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1607	^ Color black
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1608
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1609	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1610	"Created: / 18.6.1998 / 16:57:33 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1611	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1612
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1613	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1614	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1615
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1616	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1617	^ superView level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1618	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1619
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1620	^ level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1621
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1622	"Modified: 5.6.1996 / 14:12:10 / cg"
269 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	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1626	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1627
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1628	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1629
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1630	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1631	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1632	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1633	^ superView level:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1634	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1635
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1636	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1637	self is3D ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1638	level := aNumber.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1639	oldMargin := margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1640	margin := level abs.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1641
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1642	realized ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1643	margin ~~ oldMargin ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1644	(margin > oldMargin) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1645	how := #smaller
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1646	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1647	how := #larger
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1648	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1649	self sizeChanged:how.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1650	self setInnerClip.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1651	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1652	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1653	margin ~~ oldMargin ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1654	self clear.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1655	self redrawX:margin y:margin
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1656	width:width-(margin*2)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1657	height:height-(margin*2)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1658	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1659	self redrawEdges.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1660	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1661	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1662	]
135 cf8e46015072 . claus parents: diff changeset	1663	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1664
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1665	"Modified: 5.6.1996 / 14:12:17 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1666	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1667
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1668	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1669	"set the color to be used for lighted edges (3D only)"
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	lightColor := aColorOrImage
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	margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1675	"return my inner margin - this is usually the level,
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1676	but can be more for some views
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1677	(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	1678
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1679	^ margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1680
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1681	"Modified: 5.6.1996 / 14:37:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1682	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1683
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1684	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1685	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1686
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1687	shadowColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1688	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1689
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1690	viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1691	"set the viewBackground to something, a color, image or form.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1692	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	1693	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	1694	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1695
2584 55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	1696	\|avgColor\|
55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	1697
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1698	"/ debug check only:
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1699	something isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1700	self halt:'invalid viewBackground argument'.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1701	^ self
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1702	].
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1703
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1704	something isColor ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1705	device hasGrayscales ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1706	avgColor := something averageColorIn:(0@0 corner:7@7).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1707
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1708	shadowColor := avgColor darkened "on:device".
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1709	lightColor := avgColor lightened "on:device".
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1710	]
135 cf8e46015072 . claus parents: diff changeset	1711	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1712	super viewBackground:something
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1713
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1714	"Modified: 4.7.1997 / 20:09:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1715	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1716
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1717	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1718	"set the viewShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1719
2757 e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1720	aForm isNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1721	viewShape := nil.
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1722	drawableId notNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1723	device setWindowShape:nil in:drawableId
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1724	]
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1725	] ifFalse:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1726	viewShape isNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1727	viewShape := ArbitraryViewShape new
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1728	].
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1729
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1730	viewShape viewShapeForm:aForm.
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1731	drawableId notNil ifTrue:[
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1732	device setWindowShape:(aForm id) in:drawableId
e26b401eeb0c allow for a shape to be taken away (i.e. no longer a shaped view) Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	1733	]
135 cf8e46015072 . claus parents: diff changeset	1734	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1735
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1736	"Modified: 18.9.1997 / 11:11:04 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1737	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1738
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1739	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1740
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1741	heightOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1742	"return the height of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1743	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1744	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	1745	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	1746	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	1747	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	1748	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	1749	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	1750	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	1751	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	1752	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	1753	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1754
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1755	^ (self innerHeight max:(self maxSubViewBottom)) max:self maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1756
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1757	"Modified: 26.5.1996 / 12:44:21 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1758	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1759
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1760	widthOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1761	"return the width of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1762	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1763	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	1764	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	1765	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	1766	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	1767	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	1768	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	1769	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	1770	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	1771	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	1772	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1773
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1774	^ (self innerWidth max:(self maxSubViewRight)) max:self maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1775
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1776	"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	1777	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1778
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1779	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1780
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1781	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1782	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1783	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1784
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1785	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1786	insets := Array new:4.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1787	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1788	insets atAllPut:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1789
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1790	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1791	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1792	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1793	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1794	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1795	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1796
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1797	"Modified: 19.7.1996 / 17:30:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1798	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1799
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1800	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1801	"return the y position of the actual bottom edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1802
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1803	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1804	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1805
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1806	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1807	"set the corners y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1808
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1809	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1810	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1811
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1812	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1813	"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	1814	negative to the bottom"
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	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1817	^ insets at:4
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1820	bottomInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1821	"set the inset of the bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1822	positive is to the top (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1823	negative to the bottom (becomes larger)"
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	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1826	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1827	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1828	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1829
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1830	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1831	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1832	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1833	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	1834	self containerChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1835	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1836
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1837	"Modified: 19.7.1996 / 17:30:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1838	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1839
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1840	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1841	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1842
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1843	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1844	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1845
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1846	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1847	"move the receiver so that newCenter, aPoint becomes the center point"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1848
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1849	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1850	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1851
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1852	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1853	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1854	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1855	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	1856	Returns the corner point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1857
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1858	\|org newCorner newExt x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1859
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1860	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1861	slowly migrating to use layoutObjects ...
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	layout notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1864	^ (layout rectangleRelativeTo:(superView viewRectangle)
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1865	preferred:[self preferredBounds]) corner rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1866	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1867
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1868	(cornerRule notNil) ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1869	newCorner := cornerRule value.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1870	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1871	allow return of relative values ...
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1872	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1873	x := newCorner x.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1874	y := newCorner y.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1875	x isNil ifTrue:[x := self corner x].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1876	y isNil ifTrue:[y := self corner y].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1877	((x isInteger not) or:[y isInteger not]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1878	newCorner := self cornerFromRelativeCorner:x@y
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1879	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1880	] ifFalse:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1881	(relativeCorner notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1882	newCorner := self cornerFromRelativeCorner:relativeCorner
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1883	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1884	org := self computeOrigin.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1885	(extentRule notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1886	newExt := extentRule value
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1887	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1888	(relativeExtent notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1889	newExt := self extentFromRelativeExtent:relativeExtent
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1890	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1891	newExt := self extent.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1892	]
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1893	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1894	newCorner := org + newExt
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1895	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1896	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1897	^ newCorner
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1898
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	1899	"Modified: 28.2.1997 / 10:33:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1900	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1901
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1902	computeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1903	"compute my extent; if I have a layoutObject, a relative extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1904	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1905	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1906	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1907	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1908	Returns the extent in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1909
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1910	\|newOrg newExt newCorner x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1911
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1912	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1913	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1914	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1915	layout notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1916	^ (layout rectangleRelativeTo:(superView viewRectangle)
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1917	preferred:[self preferredBounds]) extent rounded
135 cf8e46015072 . claus parents: 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	(cornerRule notNil) ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1921	newCorner := cornerRule value.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1922	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1923	allow return of relative values ...
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1924	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1925	x := newCorner x.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1926	y := newCorner y.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1927	x isNil ifTrue:[x := self corner x].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1928	y isNil ifTrue:[y := self corner y].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1929	((x isInteger not) or:[y isInteger not]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1930	newCorner := self cornerFromRelativeCorner:x@y
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1931	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1932	] ifFalse:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1933	(relativeCorner notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1934	newCorner := self cornerFromRelativeCorner:relativeCorner
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1935	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1936	(extentRule notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1937	newExt := extentRule value.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1938	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1939	allow return of relative values ...
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1940	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1941	x := newExt x.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1942	y := newExt y.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1943	x isNil ifTrue:[x := width].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1944	y isNil ifTrue:[y := height].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1945	((x isInteger not) or:[y isInteger not]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1946	newExt := self extentFromRelativeExtent:x@y
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1947	]
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1948	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1949	(relativeExtent notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1950	newExt := self extentFromRelativeExtent:relativeExtent
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1951	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1952	newExt := (width @ height).
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1953	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1954	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1955	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1956	].
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	newCorner notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1959	newOrg := self computeOrigin.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1960	^ newCorner - newOrg.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1961	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1962	^ newExt.
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1965	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1966	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1967	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1968	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	1969	Returns the origin point in device coordinates (pixels)."
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	\|newOrg x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1972
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1973	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1974	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1975	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1976	layout notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1977	^ (layout rectangleRelativeTo:(superView viewRectangle)
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1978	preferred:[self preferredBounds]) origin rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1979	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1980
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1981	(originRule notNil) ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1982	newOrg := originRule value.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1983	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1984	allow return of relative values ...
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1985	"
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1986	x := newOrg x.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1987	y := newOrg y.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1988	x isNil ifTrue:[x := self origin x].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1989	y isNil ifTrue:[y := self origin y].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1990	((x isInteger not) or:[y isInteger not]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1991	newOrg := self originFromRelativeOrigin:x@y.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1992	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1993	] ifFalse:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1994	(relativeOrigin notNil) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1995	newOrg := self originFromRelativeOrigin:relativeOrigin.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1996	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1997	^ (left @ top).
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	1998	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1999	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2000	^ newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2001	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2002
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2003	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2004	"return the lower right corner-point (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2005
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2006	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2007	^ (left + width - 1) @ (top + height - 1)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2008
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2009	"Modified: 31.8.1995 / 16:51:40 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2010	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2011
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2012	corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2013	"set the views corner;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2014	the corner argument may be:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2015	a point
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2016	where integer fields mean 'pixel-values'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2017	and float values mean 'relative-to-superview'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2018	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2019	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2020	Please migrate to use layoutObjects, if possible."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2021
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2022	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2023
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2024	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2025
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2026	corner isBlock ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2027	cornerRule := corner.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2028	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2029	pixelCorner := corner value
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2030	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2031	extentChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2032	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2033	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2034	x := corner x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2035	y := corner y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2036	x isNil ifTrue:[x := self corner x].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2037	y isNil ifTrue:[y := self corner y].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2038	c := x @ y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2039	((x isInteger not) or:[y isInteger not]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2040	relativeCorner := c.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2041	pixelCorner := self cornerFromRelativeCorner.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2042	pixelCorner isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2043	extentChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2044	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2045	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2046	pixelCorner := c
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2047	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2048	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2049
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2050	pixelCorner notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2051	self pixelCorner:pixelCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2052	]
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2053
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2054	"Modified: 15.7.1996 / 09:51:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2055	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2056
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2057	cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2058	"return the corner block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2059
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2060	^ cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2061	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2062
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2063	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2064	"set the views extent;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2065	extent may be:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2066	a point
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2067	where integer fields mean 'pixel-values'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2068	and float values mean 'relative-to-superview'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2069	and nil means 'leave current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2070	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2071	Be careful when using relative extents: rounding errors may
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2072	accumulate. Better use origin/corner.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2073	Best: migrate to use layour objects.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2074
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2075	Notice: this sets the views explicitExtent flag, which prevents it normally
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2076	from resizing itself to its preferredExtent.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2077	See initialExtent: for a variation."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2078
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2079	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2080
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2081	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2082
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2083	extent isBlock ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2084	extentRule := extent.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2085	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2086	pixelExtent := extent value
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2087	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2088	extentChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2089	]
135 cf8e46015072 . claus parents: diff changeset	2090	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2091	w := extent x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2092	h := extent y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2093	w isNil ifTrue:[w := width].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2094	h isNil ifTrue:[h := height].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2095	e := w@h.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2096	((w isInteger not) or:[h isInteger not]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2097	relativeExtent := e.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2098	pixelExtent := self extentFromRelativeExtent.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2099	pixelExtent isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2100	extentChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2101	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2102	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2103	relativeExtent := nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2104	pixelExtent := e
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2105	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2106	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2107	pixelExtent notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2108	self pixelExtent:pixelExtent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2109	]
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2110
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2111	"Modified: 15.7.1996 / 09:51:21 / cg"
269 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
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2114	extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2115	"return the extent block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2116
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2117	^ extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2118	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2119
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2120	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2121	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2122	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2123	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2124	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	2125	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2126
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2127	^ here layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2128	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2129
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2130	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2131	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2132	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2133	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2134	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	2135	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2136
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2137	here layout:aLayoutObject
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2140	height:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2141	"set the views height in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2142
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2143	self extent:(width @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2144	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2145
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2146	heightIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2147	"return my height including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2148	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2149	while #height returns the height as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2151	^ height + (2*borderWidth)
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2154	horizontalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2155	"set the insets of the left/right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2156	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2157
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2158	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2159	insets := Array with:0 with:0 with:0 with:0
135 cf8e46015072 . claus parents: diff changeset	2160	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2161	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2162	insets at:3 put:aNumber.
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	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2165	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2166	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2167	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2168	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2169	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2170
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2171	"Modified: 19.7.1996 / 17:30:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2172	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2173
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2174	initialExtent:extent
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2175	"set the views extent, but dont change its explicitExtent setting.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2176	a variant of #extent."
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2177
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2178	\|expl\|
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2179
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2180	expl := explicitExtent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2181	self extent:extent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2182	explicitExtent := expl
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2183	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2184
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2185	initialHeight:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2186	"set the views height in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2187
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2188	self initialExtent:(width @ aNumber)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2189	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2190
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2191	initialWidth:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2192	"set the views width in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2193
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2194	self initialExtent:(aNumber @ height)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2195	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2196
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2197	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2198	"return the height of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2199
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2200	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2201	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2202	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2203
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2204	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2205	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2206	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2207
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2208	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2209	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2210
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2211	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2212	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2213	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2214	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2215
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2216	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2217	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2218
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2219	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2220	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2221	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2222	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2223
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2224	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2225	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2226
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2227	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2228	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2229
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2230	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2231	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2232	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2233
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2234	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2235	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2236	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2237
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2238	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2239	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2240
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2241	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2242	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2243	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2244
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2245	self allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2246	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2248	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2249	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2250	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2251	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2252	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2253	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2254	since the above listed instance variables will vanish."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2255
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2256	^ layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2257	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2258
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2259	layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2260	"set the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2261	Currently, this is almost nowhere used but views will be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2262	incrementally changed to use this new geometry management."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2263
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2264	layout := aLayoutObject.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2265	superView isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2266	originChanged := cornerChanged := extentChanged := true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2267	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2268	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2269	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2270
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2271	"Modified: 19.9.1995 / 16:17:25 / claus"
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2272	"Modified: 19.7.1996 / 17:30:27 / 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	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2276	"return the x position of the left border (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2277
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2278	^ left
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2281	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2282	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2283
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2284	self origin:(aNumber @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2285	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2286
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2287	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2288	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2289
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2290	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2291	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2292
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2293	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2294	"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	2295	negative to the left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2296
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2297	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2298	^ insets at:1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2299	!
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	leftInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2302	"set the inset of the left edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2303	positive is to the right (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2304	negative to the left (becomes larger)"
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	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2307	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2308	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2309	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2310
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2311	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2312	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2313	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2314	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2315	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2316	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2317
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2318	"Modified: 19.7.1996 / 17:30:30 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2319	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2320
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2321	makeFullyVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2322	"make sure, that the view is fully visible by shifting it
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2323	into the visible screen area if nescessary.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2324	This method will be moved to StandardSystemView ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2325
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2326	\|devBot devRight newTop newLeft\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2327
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2328	newTop := top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2329	newLeft := left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2330
1703 b77cc326916d take usableExtent as max. Claus Gittinger <cg@exept.de> parents: 1702 diff changeset	2331	((top + height) > (devBot := device usableHeight)) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2332	newTop := devBot - height
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2333	].
1703 b77cc326916d take usableExtent as max. Claus Gittinger <cg@exept.de> parents: 1702 diff changeset	2334	((left + width) > (devRight := device usableWidth)) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2335	newLeft := devRight - width
269 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	(newTop < 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2338	newTop := 0.
269 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	(newLeft < 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2341	newLeft := 0
269 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	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2344	self origin:newLeft @ newTop
269 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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2347
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2348	makeRoundViewShapeWithBorder:bw
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2349	"setup my window for a round shaped view;
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2350	this is not supported by all devices"
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2351
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2352	\|extent shapeForm borderForm w h\|
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2353
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2354	device supportsRoundShapedViews ifTrue:[
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2355	].
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2356
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2357	device supportsArbitraryShapedViews ifTrue:[
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2358	extent := self extent.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2359
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2360	w := extent x.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2361	h := extent y.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2362	borderForm := Form width:w height:h.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2363	borderForm fill:(Color colorId:0).
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2364	shapeForm := Form width:w height:h.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2365	shapeForm fill:(Color colorId:0).
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2366
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2367	borderForm foreground:(Color colorId:1).
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2368	borderForm fillArcX:0 y:0
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2369	width:w
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2370	height:h
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2371	from:0
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2372	angle:360.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2373
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2374	shapeForm foreground:(Color colorId:1).
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2375	shapeForm fillArcX:bw y:bw
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2376	width:(w - (bw * 2))
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2377	height:(h - (bw * 2))
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2378	from:0
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2379	angle:360.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2380	self borderShape:borderForm.
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2381	self viewShape:shapeForm
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2382	]
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2383
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2384	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2385
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	2386	maxExtent
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2387	"for compatibility with StdSysView"
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2388
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2389	^ nil
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2390	!
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2391
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	2392	minExtent
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2393	"for compatibility with StdSysView"
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2394
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2395	^ nil
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2396	!
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2397
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2398	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2399	"return the origin (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2400
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2401	^ left@top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2402	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2403
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2404	origin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2405	"set the views origin;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2406	origin may be:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2407	a point
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2408	where integer fields mean 'pixel-values'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2409	and float values mean 'relative-to-superview'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2410	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2411	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2412	Please migrate to use layout objects."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2413
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2414	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2415
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2416	origin isBlock ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2417	originRule := origin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2418	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2419	pixelOrigin := origin value
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2420	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2421	originChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2422	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2423	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2424	o := origin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2425	newLeft := origin x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2426	newTop := origin y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2427	newLeft isNil ifTrue:[newLeft := left].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2428	newTop isNil ifTrue:[newTop := top].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2429	o := newLeft @ newTop.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2430	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2431	relativeOrigin := o.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2432	pixelOrigin := self originFromRelativeOrigin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2433	pixelOrigin isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2434	originChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2435	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2436	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2437	relativeOrigin := nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2438	pixelOrigin := o
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2439	]
269 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	pixelOrigin notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2442	self pixelOrigin:pixelOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2443	].
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2444
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2445	"Modified: 19.4.1996 / 15:12:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2446	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2447
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2448	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2449	"set both origin and extent"
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	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2452
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2453	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2454
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2455	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2456
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2457	origin isBlock ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2458	corner isBlock ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2459	newLeft := origin x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2460	newLeft isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2461	newTop := origin y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2462	newTop isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2463	newRight := corner x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2464	newRight isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2465	newBot := corner y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2466	newBot isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2467	self pixelOrigin:origin corner:corner
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2468	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2469	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2470	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2471	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2472	]
135 cf8e46015072 . claus parents: diff changeset	2473	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2474	self origin:origin.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2475	self corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2476
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2477	"Modified: 15.7.1996 / 09:52:43 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2478	!
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	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2481	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2482
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2483	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2484
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2485	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2486
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2487	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2488
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2489	origin isBlock ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2490	extent isBlock ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2491	newLeft := origin x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2492	newLeft isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2493	newTop := origin y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2494	newTop isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2495	newWidth := extent x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2496	newWidth isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2497	newHeight := extent y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2498	newHeight isInteger ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2499	self pixelOrigin:origin extent:extent
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2500	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2501	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2502	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2503	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2504	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2505	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2506	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2507	self origin:origin
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2508
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2509	"Modified: 15.7.1996 / 09:52:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2510	!
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	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2513	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2514	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2515	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	2516
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2517	\|currentView
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	2518	bw "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2519	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2520	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2521
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2522	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2523	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2524	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2525	[currentView notNil] whileTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2526	(currentView == aView) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2527	^ (sumX @ sumY)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2528	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2529	bw := currentView borderWidth.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2530	sumX := sumX + (currentView left) + bw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2531	sumY := sumY + (currentView top) + bw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2532	currentView := currentView superView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2533	].
729 d2fdca1c2895 eliminated references to RootView Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2534	(aView isNil or:[aView == device rootView]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2535	"return relative to screen ..."
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2536	^ (sumX @ sumY)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2537	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2538	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2539
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2540	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2541	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2542
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2543	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2544	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2545	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	2546	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	2547	top openAndWait.
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2548	Transcript show:'button in top:'; showCR:(sub2 originRelativeTo:top).
cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2549	Transcript show:'button on screen:'; showCR:(sub2 originRelativeTo:nil).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2550	"
2171 df6af7cc7a62 fixed #originRelativeTo: when borderWidth ~~ 0 Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	2551
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	2552	"Modified: / 5.12.1998 / 14:30:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2553	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2554
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2555	originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2556	"return the origin block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2557
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2558	^ originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2559	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2560
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2561	preferredExtent:anExtentPoint
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2562	"override the views own preferredExtent computation,
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2563	and let it prefer the size given by the argument."
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2564
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2565	preferredExtent := anExtentPoint.
1038 fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2566
fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2567	"Modified: 22.8.1996 / 13:41:47 / cg"
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2568	!
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2569
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2570	relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2571	"return the relative corner or nil"
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	^ relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2574	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2575
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2576	relativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2577	"set the relative corner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2578
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2579	relativeCorner := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2580	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2581
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2582	relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2583	"return the relative extent or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2584
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2585	^ relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2586	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2587
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2588	relativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2589	"set the relative extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2590
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2591	relativeExtent := aPoint
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2594	relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2595	"return the relative origin or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2596
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2597	^ relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2598	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2599
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2600	relativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2601	"set the relative origin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2602
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2603	relativeOrigin := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2604	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2605
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2606	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2607	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2608
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2609	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2610
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2611	"Modified: 31.8.1995 / 19:31:10 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2612	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2613
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2614	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2615	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2617	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2618	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2619
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2620	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2621	"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	2622	negative to the right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2623
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2624	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2625	^ insets at:3
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2626	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2627
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2628	rightInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2629	"set the inset of the right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2630	positive is to the left (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2631	negative to the right (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2632
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2633	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2634	insets := Array with:0 with:0 with:0 with:0
269 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	insets at:3 put:aNumber.
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	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2639	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2640	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2641	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2642	self containerChangedSize.
135 cf8e46015072 . claus parents: diff changeset	2643	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2644
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2645	"Modified: 19.7.1996 / 17:30:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2646	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2647
3007 1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2648	setOrigin:aPoint
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2649	"set the origin only"
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2650
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2651	left := aPoint x.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2652	top := aPoint y.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2653	!
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2654
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2655	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2656	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2657	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2658	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	2659	true. Currently, only supported by Labels.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2660	This does NOT prevent the window manager from resizing the view,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2661	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2662	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2663
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2664	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2665	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2666
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2667	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2668	"return the y position of the top border"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2669
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2670	^ top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2671	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2672
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2673	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2674	"set the y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2675
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2676	self origin:(left @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2677	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2678
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2679	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2680	"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	2681	negative to the top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2683	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2684	^ insets at:2
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2685	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2686
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2687	topInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2688	"set the inset of the top edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2689	positive is to the bottom (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2690	negative to the top (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2691
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2692	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2693	insets := Array with:0 with:0 with:0 with:0
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	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2696
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2697	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2698	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2699	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2700	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2701	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2702	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2703
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2704	"Modified: 19.7.1996 / 17:30:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2705	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2706
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2707	verticalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2708	"set the insets of the top/bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2709	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2710
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2711	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2712	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2713	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2714	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2715	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2716
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2717	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2718	"/ drawableId isNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2719	"/ originChanged := true
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2720	"/ ] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2721	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2722	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2723
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2724	"Modified: 19.7.1996 / 17:30:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2725	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2726
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2727	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2728	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2729	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	2730	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2731	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	2732	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2733	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	2734	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	2735	(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	2736
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2737	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2738
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2739	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2740	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2741
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2742	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2743	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2744
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2745	width:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2746	"set the views width in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2747
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2748	self extent:(aNumber @ height)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2749	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2750
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2751	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2752	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2753	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2754	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2755
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2756	^ width + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2757	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2758
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2759	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2760
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2761	components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2762	"return the collection of non-view components"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2763
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2764	^ components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2765
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2766	"Created: 28.5.1996 / 23:59:37 / cg"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2767	!
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	2768
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2769	container
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2770	"return my container"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2771
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2772	^ superView
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2773
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2774	"Created: 5.6.1996 / 01:08:36 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2775	"Modified: 10.1.1997 / 19:47:59 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2776	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	2777
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2778	container:aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2779	"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	2780
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2781	(superView notNil and:[superView ~~ aContainer]) ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	2782	"/ actually, this is worth an exception
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	2783	('View [warning]: ' , self printString , ' already has a container') errorPrintCR.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	2784	superView removeComponent:self.
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	2785	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2786	superView := aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2787
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2788	"Created: 9.5.1996 / 00:40:56 / cg"
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	2789	"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	2790	!
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2791
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2792	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2793	"bring to back"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2794
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2795	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2796	device lowerWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2797
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2798	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2799	Transcript topView lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2800	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2801	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2802
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2803	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2804	"bring to front"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2805
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2806	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2807	device raiseWindow:drawableId
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	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2810	Transcript topView raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2811	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2812	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2814	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2815	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2816
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2817	^ subViews
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2820	subViews:aListOfViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2821	"set the collection of subviews"
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	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	2824	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2825	subViews do:[:view \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2826	view container:self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2827	]
135 cf8e46015072 . claus parents: diff changeset	2828	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2829
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2830	"Modified: 9.5.1996 / 00:42:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	2831	!
cf8e46015072 . claus parents: diff changeset	2832
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2833	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2834	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2835
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2836	^ superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2837	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2838
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2839	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2840	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2841
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2842	self obsoleteMethodWarning:'use #container:'.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2843	self container:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2844
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	2845	"Modified: 9.5.1996 / 00:46:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2846	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2847
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2848	topComponent
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2849	"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	2850	For ST-80 compatibility."
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2851
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2852	^ self topView
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2853
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2854	"Modified: 9.5.1996 / 01:40:24 / cg"
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2855	!
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2856
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2857	topView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2858	"return the topView - thats the one with no superview"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2859
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2860	\|v next\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2861
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2862	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2863	[v notNil] whileTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2864	(next := v container) isNil ifTrue:[^ v].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2865	v := next
135 cf8e46015072 . claus parents: diff changeset	2866	].
cf8e46015072 . claus parents: diff changeset	2867
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2868	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2869
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2870	"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	2871	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2872
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2873	view
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2874	"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	2875	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	2876
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2877	^ self
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2878
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	2879	"Created: 4.6.1996 / 21:32:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2880	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2882	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2883
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2884	menuHolder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2885	"who has the menu ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2886	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2887
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2888	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2889	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2890
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2891	menuMessage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2892	"Return the symbol sent to myself to aquire the menu"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2893
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2894	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2895	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2896
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2897	menuPerformer
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2898	"who should perform the menu actions ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2899	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2900
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2901	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2902	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2903
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2904	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2905	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2906	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2907	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2908	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2909	controller."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2910
2979 e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2911	\|sym menuHolder theMenu\|
269 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	"/ middleButtonMenu notNil ifTrue:[
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	"/ "/ has been assigned a static middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2916	"/ "/ (or a cached menu)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2917	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2918	"/ ^ middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2919	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2920
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2921	menuHolder := self menuHolder.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2923	menuHolder notNil ifTrue:[
2979 e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2924	sym := self menuMessage.
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2925	sym notNil ifTrue:[
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2926	"
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2927	mhmh - for backward compatibility, try to ask
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2928	the model first, then use the views menu.
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2929	"
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2930	(menuHolder respondsTo:sym) ifFalse:[
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2931	(self respondsTo:sym) ifTrue:[
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2932	menuHolder := self
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2933	]
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2934	].
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2935	"
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2936	ask the menuHolder for the menu
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2937	"
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2938	theMenu := menuHolder perform:sym.
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2939	].
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2940	].
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2941
e20a934e717f checkin from browser Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	2942	^ theMenu
135 cf8e46015072 . claus parents: diff changeset	2943	! !
cf8e46015072 . claus parents: diff changeset	2944
cf8e46015072 . claus parents: diff changeset	2945	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	2946
cf8e46015072 . claus parents: diff changeset	2947	bitGravity
cf8e46015072 . claus parents: diff changeset	2948	"return the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2949	when the the view is resized."
cf8e46015072 . claus parents: diff changeset	2950
cf8e46015072 . claus parents: diff changeset	2951	^ bitGravity
cf8e46015072 . claus parents: diff changeset	2952	!
cf8e46015072 . claus parents: diff changeset	2953
cf8e46015072 . claus parents: diff changeset	2954	bitGravity:gravity
cf8e46015072 . claus parents: diff changeset	2955	"set the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	2956	when the view is resized."
cf8e46015072 . claus parents: diff changeset	2957
cf8e46015072 . claus parents: diff changeset	2958	bitGravity ~~ gravity ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2959	bitGravity := gravity.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2960	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2961	device setBitGravity:gravity in:drawableId
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2962	]
135 cf8e46015072 . claus parents: diff changeset	2963	]
cf8e46015072 . claus parents: diff changeset	2964	!
cf8e46015072 . claus parents: diff changeset	2965
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	2966	clippingRectangle:aRectangle
153 c56277fa4865 . claus parents: 151 diff changeset	2967	"set the clipping rectangle for drawing (in logical coordinates);
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	2968	a nil argument turns off clipping (i.e. whole view is drawable).
153 c56277fa4865 . claus parents: 151 diff changeset	2969	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	2970
c56277fa4865 . claus parents: 151 diff changeset	2971	\|x y w h\|
c56277fa4865 . claus parents: 151 diff changeset	2972
c56277fa4865 . claus parents: 151 diff changeset	2973	aRectangle isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2974	clipRect isNil ifTrue:[^ self].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2975	gcId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2976	device noClipIn:drawableId gc:gcId
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2977	]
153 c56277fa4865 . claus parents: 151 diff changeset	2978	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2979	clipRect notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2980	(clipRect = aRectangle) ifTrue:[^ self]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2981	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2982	gcId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2983	x := aRectangle left.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2984	y := aRectangle top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2985	w := aRectangle width.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2986	h := aRectangle height.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2987	transformation notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2988	x := transformation applyToX:x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2989	y := transformation applyToY:y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2990	w := transformation applyScaleX:w.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2991	h := transformation applyScaleY:h.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2992	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2993	(x isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2994	w := w + (x - x truncated).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2995	x := x truncated
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2996	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2997	(y isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2998	h := h + (y - y truncated).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	2999	y := y truncated
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3000	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3001	(w isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3002	w := w truncated + 1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3003	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3004	(h isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3005	h := h truncated + 1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3006	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3007	x < margin ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3008	x := margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3009	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3010	y < margin ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3011	y := margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3012	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3013	x + w - 1 >= (width-margin) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3014	w := width - margin - x
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3015	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3016	y + h - 1 >= (height-margin) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3017	h := height - margin - y
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3018	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3019	device setClipX:x y:y width:w height:h in:drawableId gc:gcId
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3020	]
153 c56277fa4865 . claus parents: 151 diff changeset	3021	].
c56277fa4865 . claus parents: 151 diff changeset	3022	clipRect := aRectangle
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3023
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3024	"Created: 28.5.1996 / 19:50:03 / cg"
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	3025	"Modified: 28.5.1996 / 22:32:15 / cg"
153 c56277fa4865 . claus parents: 151 diff changeset	3026	!
c56277fa4865 . claus parents: 151 diff changeset	3027
c56277fa4865 . claus parents: 151 diff changeset	3028	fullName
c56277fa4865 . claus parents: 151 diff changeset	3029	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	3030
c56277fa4865 . claus parents: 151 diff changeset	3031	superView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3032	^ superView fullName , '.' , name
153 c56277fa4865 . claus parents: 151 diff changeset	3033	].
c56277fa4865 . claus parents: 151 diff changeset	3034	^ name
c56277fa4865 . claus parents: 151 diff changeset	3035	!
c56277fa4865 . claus parents: 151 diff changeset	3036
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3037	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3038	"return my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3039
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3040	^ name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3041	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3042
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3043	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3044	"set my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3045
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3046	name := aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3047	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3048
153 c56277fa4865 . claus parents: 151 diff changeset	3049	processName
c56277fa4865 . claus parents: 151 diff changeset	3050	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	3051
c56277fa4865 . claus parents: 151 diff changeset	3052	^ self name
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3053	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3054
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3055	styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3056	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3057	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3058	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3059
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3060	^ styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3061
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3062	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3063	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3064
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3065	viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3066	"return the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3067	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3068
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3069	^ viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3070	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3071
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3072	viewGravity:gravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3073	"set the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3074	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3075
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3076	viewGravity ~~ gravity ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3077	viewGravity := gravity.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3078	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3079	device setWindowGravity:gravity in:drawableId
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3080	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3081	]
140 0db355079dc4 . claus parents: 138 diff changeset	3082	! !
0db355079dc4 . claus parents: 138 diff changeset	3083
0db355079dc4 . claus parents: 138 diff changeset	3084	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	3085
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3086	application
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3087	"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	3088	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	3089
1751 15381229b2d8 accessing application through superView (not topView) ca parents: 1750 diff changeset	3090	superView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3091	^ superView application
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3092	].
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3093	^ nil
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3094
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	3095	"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	3096	!
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3097
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3098	aspect:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3099	"ST-80 style updating: If a views aspectSymbol is nonNil,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3100	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3101	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3102
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3103	self aspectMessage:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3104	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3105
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3106	client:anApplicationModel
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3107	"release existing components and generate new components from
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3108	the applications windowSpec."
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3109
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3110	^ self client:anApplicationModel spec:#windowSpec
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3111
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3112
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3113	!
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3114
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3115	client:anApplication spec:aWindowSpecOrSelector
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3116	"release existing components and generate new components from
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3117	the applications windowSpec."
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3118
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3119	^ self client:anApplication spec:aWindowSpecOrSelector builder:nil
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3120
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3121	!
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3122
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3123	client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3124	"release existing components and generate new components from
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3125	the given windowSpec, using the given builder."
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3126
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3127	\|builder subSpec\|
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3128
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3129	aWindowSpecOrSpecSymbol isNil ifTrue:[^ self].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3130
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3131	(builder := aBuilder) isNil ifTrue:[
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3132	builder := anApplication perform:#builder
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3133	ifNotUnderstood:[UIBuilder new]
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3134	].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3135
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3136	(subSpec := aWindowSpecOrSpecSymbol) isSymbol ifTrue:[
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3137	anApplication isNil ifTrue:[^ self].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3138	subSpec := anApplication class interfaceSpecFor:aWindowSpecOrSpecSymbol.
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3139	subSpec isNil ifTrue:[
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3140	^ self
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3141	].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3142	].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3143	builder buildFromSpec:subSpec in:self.
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3144	!
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3145
140 0db355079dc4 . claus parents: 138 diff changeset	3146	controller
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3147	"return the controller. For views which implement the controller
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3148	functionality themself, return the receiver itself"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3149
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3150	^ controller ? self
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3151
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3152	"Modified: / 31.10.1997 / 19:58:10 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	3153	!
0db355079dc4 . claus parents: 138 diff changeset	3154
0db355079dc4 . claus parents: 138 diff changeset	3155	controller:aController
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3156	"set the controller - thats the one handling user events"
140 0db355079dc4 . claus parents: 138 diff changeset	3157
0db355079dc4 . claus parents: 138 diff changeset	3158	controller := aController.
0db355079dc4 . claus parents: 138 diff changeset	3159	controller notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3160	controller view:self.
135 cf8e46015072 . claus parents: diff changeset	3161	]
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3162
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3163	"Modified: / 31.10.1997 / 19:58:33 / cg"
135 cf8e46015072 . claus parents: diff changeset	3164	!
cf8e46015072 . claus parents: diff changeset	3165
140 0db355079dc4 . claus parents: 138 diff changeset	3166	model
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3167	"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	3168
135 cf8e46015072 . claus parents: diff changeset	3169	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3170
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3171	"Modified: 5.6.1996 / 14:17:29 / cg"
135 cf8e46015072 . claus parents: diff changeset	3172	!
cf8e46015072 . claus parents: diff changeset	3173
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3174	sensor
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3175	"return the views sensor"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3176
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3177	windowGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3178	^ windowGroup sensor.
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3179	].
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3180	^ nil
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3181
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3182	"Modified: 10.1.1997 / 19:47:13 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3183	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3184
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3185	setController:aController
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3186	"set the controller but do not affect the model/view releationship"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3187
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3188	controller := aController.
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3189
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3190	"Created: 18.7.1996 / 11:43:40 / cg"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3191	!
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3192
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3193	setWindowGroup:aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3194	"set the window group."
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3195
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3196	windowGroup := aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3197
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3198	"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	3199	!
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3200
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3201	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3202	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3203
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3204	^ windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3205	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3206
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3207	windowGroup:newGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3208	"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	3209	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	3210
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3211	windowGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3212	windowGroup removeView:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3213	windowGroup := nil
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3214	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3215	windowGroup := newGroup.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3216	newGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3217	newGroup addView:self.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3218
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3219	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3220	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3221	subViews do:[:aSubview \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3222	aSubview windowGroup:newGroup
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3223	]
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3224	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3225
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3226	"Modified: 20.8.1997 / 13:26:37 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3229	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3230
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3231	maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3232	"return the maximum of all components bottom"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3233
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3234	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3235	^ components inject:0 into:[:maxSoFar :sub
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3236	\| (sub bottom) max:maxSoFar].
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3237
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3238	"Created: 26.5.1996 / 12:44:05 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3239	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3240	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3241
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3242	maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3243	"return the maximum of all components rights"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3244
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3245	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3246	^ components inject:0 into:[:maxSoFar :sub
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3247	\| (sub right) max:maxSoFar].
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3248
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3249	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3250	"Created: 26.5.1996 / 13:02:19 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3251	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3252
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3253	maxSubViewBottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3254	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3255	"/ ^ 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	3256	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3257	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3258
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3259	maxSubViewRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3260	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3261	"/ ^ 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	3262	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3263	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3264
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3265	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3266	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3267
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3268	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3269	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3270	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3271
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3272	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3273	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3274
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3275	\|p\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3276
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3277	p := aPoint negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3278	transformation isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3279	transformation := WindowingTransformation scale:1 translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3280	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3281	transformation translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3282	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3283	clipRect notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3284	self setInnerClip.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3285	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3286	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3287
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3288	viewOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3289	"return the viewOrigin; thats the coordinate of the contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3290	which is shown topLeft in the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3291	(i.e. the origin of the visible part of the contents)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3292
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3293	transformation isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3294	^ 0@0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3295	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3296	^ transformation translation negated
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
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3299	visibleArea
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3300	"return the rectangle that contains the visible part
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3301	of the view in user coordinates."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3302
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3303
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3304	transformation isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3305	^ 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	3306	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3307	^ Rectangle origin:(transformation translation negated)
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3308	extent:((width @ height) scaledBy:(transformation scale)).
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3309
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3310	"Created: 12.7.1996 / 11:57:04 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3311	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3312
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3313	xOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3314	"return the x coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3315	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3316
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3317	^ self viewOrigin x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3318	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3319
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3320	yOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3321	"return the y coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3322	used by scrollBars to compute thumb position within the document."
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	^ self viewOrigin y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3325	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3326
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3327	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3328
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3329	beInvisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3330	"make the view invisible; if my container is visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3331	change visibility immediately;
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3332	otherwise, arrange for the receiver to be not realized,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3333	when the container is made visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3334
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3335	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3336	realized ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3337	(superView isNil "/ I am a topView
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3338	or:[superView realized]) "/ superview already shown
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3339	ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3340	self unmap
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3341	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3342	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3343
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3344	"Modified: 3.4.1997 / 21:20:40 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3345	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3346
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3347	beVisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3348	"make the view visible; if my container is already visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3349	change visibility immediately; otherwise, arrange for the receiver
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3350	to be made visible when the container is made visible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3351	Notice, that the command may not be sent immediately to the display,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3352	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	3353	visibility event arrives from the display.
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3354	Thus, the view may remain logically invisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3355	for a while. (see #beVisibleNow for more on this)"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3356
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3357	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3358	realized ifFalse:[
2886 b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3359	superView isNil "/ I am a topView
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3360	ifTrue:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3361	drawableId isNil ifTrue:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3362	self realize.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3363	] ifFalse:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3364	self remap.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3365	].
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3366	] ifFalse:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3367	superView realized "/ superview already shown
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3368	ifTrue:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3369	self realize
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3370	]
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	3371	].
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3372	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3373
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3374	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3375	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3376
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3377	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3378	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3379	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	3380	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3381
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3382	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3383	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3384	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3385
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3386	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3387	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3388	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3389	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3390
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3391	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3392	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3393
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3394	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3395	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3396
1981 0c3b8ef42df8 Take care of views with nil visibleID in #beVisible Stefan Vogel <sv@exept.de> parents: 1960 diff changeset	3397	"Created: / 22.9.1995 / 15:50:33 / claus"
0c3b8ef42df8 Take care of views with nil visibleID in #beVisible Stefan Vogel <sv@exept.de> parents: 1960 diff changeset	3398	"Modified: / 17.6.1997 / 11:23:00 / cg"
0c3b8ef42df8 Take care of views with nil visibleID in #beVisible Stefan Vogel <sv@exept.de> parents: 1960 diff changeset	3399	"Modified: / 14.1.1998 / 17:33:15 / stefan"
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3400	!
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3401
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3402	beVisibleNow
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3403	"make the view visible immediately.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3404	In contrast to #beVisible, this waits until the view is really
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3405	visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3406
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3407	self beVisible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3408	device sync.
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	3409	"/ realized := true.
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	3410	"/ shown := true.
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3411
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3412	"Created: 3.4.1997 / 21:23:28 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3413	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3414
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3415	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3416	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3417	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3418
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3419	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3420	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3421
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3422	"Modified: 17.6.1997 / 11:19:55 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3423	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3424
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3425	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3426	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3427	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3428
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3429	self obsoleteMethodWarning:'use #beVisible / #beInvisible'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3430	hiddenOnRealize := aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3431
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3432	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3433	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3434
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3435	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3436	"if the argument is true, the receiver view will not
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3437	be mapped (i.e. shown) automatically when the superview is realized.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3438	The hiddenOnRealize flag is useful to create views which are
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3439	to be made visible conditionally or later.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3440	For ST-80 compatibility, please use #beVisible / #beInvisible."
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3441
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3442	hiddenOnRealize := aBoolean
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3443
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3444	"Modified: 17.6.1997 / 11:23:26 / cg"
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3445	!
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3446
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3447	isHiddenOnRealize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3448	"return true, if the receiver will NOT be mapped when
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3449	realized. False otherwise.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3450	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3451	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3452
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3453	^ hiddenOnRealize
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3454
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3455	"Created: 17.6.1997 / 11:21:42 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3456	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3457
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3458	isVisible:aBoolean
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3459	"make the view visible or invisible"
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3460
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3461	aBoolean ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3462	self beVisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3463	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3464	self beInvisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3465	]
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3466
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3467	"Created: / 27.10.1997 / 04:23:04 / cg"
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3468	!
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3469
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3470	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3471	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3472	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3473
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3474	^ shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3475	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3476
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3477	!SimpleView methodsFor:'adding & removing components'!
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	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3480	"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	3481	subComponents."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3482
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3483	self addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3484	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3485
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3486	add:aComponent at:anOrigin
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3487	"for ST-80 compatibility.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3488	add a component at some origin"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3489
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3490	\|l comp\|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3491
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3492	comp := aComponent.
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3493
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3494	"/ (comp isWrapper not
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3495	"/ or:[comp isLayoutWrapper not]) ifTrue:[
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3496	"/ comp := LayoutWrapper on:comp
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3497	"/ ].
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3498
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3499	l := anOrigin asLayout.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3500	comp layout:l.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3501
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3502	self addComponent:comp
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3503
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3504	"Modified: 18.4.1997 / 20:00:20 / cg"
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3505	!
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3506
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3507	add:aComponentOrCollection in:aRectangleOrLayoutFrame
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3508	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3509	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	3510	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3511	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3512
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3513	\|l wrapper\|
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3514
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3515	aComponentOrCollection isCollection ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3516	wrapper := View new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3517	aComponentOrCollection do:[:aComponent \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3518	wrapper add:aComponent
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3519	]
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3520	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3521	wrapper := aComponentOrCollection
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3522	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3523
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	3524	l := aRectangleOrLayoutFrame asLayout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3525
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3526	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3527	"/ aComponent layout:l.
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3528	wrapper geometryLayout:l.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3529
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3530	self addComponent:wrapper.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3531
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3532	^ wrapper
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3533
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3534	"Modified: 17.6.1997 / 18:03:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3535	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3536
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3537	addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3538	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3539	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3540
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3541	aComponent isView ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3542	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3543	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3544	components isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3545	components := OrderedCollection new
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3546	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3547	components add:aComponent.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3548	aComponent container:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3549	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3550	aComponent displayOn:self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3551	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3552	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3553
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3554	"Modified: 13.5.1996 / 21:19:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3555	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3556
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3557	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3558	"add a view to the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3559
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3560	subViews isNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3561	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3562	] ifFalse:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3563	(subViews includesIdentical:newView) ifTrue:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3564	self error:'trying to add a view twice' mayProceed:true.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3565	^ self.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3566	].
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3567	subViews add:newView.
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3568	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3569	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3570
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3571	"Modified: 9.5.1996 / 00:47:16 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3572	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3573
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3574	addSubView:newView after:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3575	"add a view to the collection of subviews after another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3576	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	3577	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3578
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3579	subViews isNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3580	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3581	] ifFalse:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3582	(subViews includesIdentical:newView) ifTrue:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3583	self error:'trying to add a view twice' mayProceed:true.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3584	^ self.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3585	].
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3586	aView isNil ifTrue:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3587	subViews add:newView
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3588	] ifFalse:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3589	subViews add:newView after:aView.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3590	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3591	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3592	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3593
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3594	"Modified: 9.5.1996 / 00:47:20 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3595	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3596
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3597	addSubView:newView before:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3598	"add a view to the collection of subviews before another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3599	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	3600	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3601
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3602	subViews isNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3603	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3604	] ifFalse:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3605	(subViews includesIdentical:newView) ifTrue:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3606	self error:'trying to add a view twice' mayProceed:true.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3607	^ self.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3608	].
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3609	aView isNil ifTrue:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3610	subViews addFirst:newView
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3611	] ifFalse:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3612	subViews add:newView before:aView.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3613	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3614	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3615	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3616
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3617	"Modified: 9.5.1996 / 00:47:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3618	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3619
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3620	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3621	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3622
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3623	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3624	self add:aView in:bounds.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3625	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3626
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3627	addSubViewFirst:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3628	"add a view to the front of the collection of subviews"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3629
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3630	subViews isNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3631	subViews := OrderedCollection with:newView
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3632	] ifFalse:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3633	(subViews includesIdentical:newView) ifTrue:[
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3634	self error:'trying to add a view twice' mayProceed:true.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3635	^ self.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3636	].
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3637	subViews addFirst:newView.
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3638	].
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3639	self setContainerIn:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3640
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3641	"Modified: 9.5.1996 / 00:47:16 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3642	"Created: 6.3.1997 / 18:43:38 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3643	!
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3644
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3645	component:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3646	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3647	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3648
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3649	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3650	aComponent isView ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3651	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3652	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3653	components := OrderedCollection with:aComponent.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3654	aComponent container:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3655
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3656	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3657	aComponent displayOn:self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3658	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3659	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3660
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3661	"Modified: 13.5.1996 / 21:20:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3662	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3663
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3664	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3665	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3666
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3667	subViews notNil ifTrue:[
2920 4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3668	subViews copy do:[:aSubView \|
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3669	aSubView destroy.
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3670	].
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3671
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3672	"/ paranoia ;-)
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3673	subViews size ~~ 0 ifTrue:[
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3674	(self class name , ' >>View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3675	subViews := nil
4f8e6c266f80 More Diag (cg) Stefan Vogel <sv@exept.de> parents: 2919 diff changeset	3676	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3677	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3678
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3679	"Modified: 5.9.1995 / 22:35:36 / claus"
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3680	"Modified: 29.1.1997 / 17:07:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3681	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3683	removeComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3684	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3685	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3686
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3687	aComponent isView ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3688	self removeSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3689	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3690	components isNil ifTrue:[^self].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3691	components remove:aComponent ifAbsent:[].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3692	aComponent parent:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3693	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3694	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3695
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3696	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3697	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3698
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3699	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3700	subViews remove:aView ifAbsent:[nil].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3701	(subViews size == 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3702	subViews := nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3703	]
269 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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3706
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3707	setContainerIn:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3708	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3709
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3710	aView container:self.
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	3711	(aView graphicsDevice ~~ device) ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3712	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3713	') has different device than me (' errorPrint.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3714	self class name errorPrint. ').' errorPrintCR.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	3715	aView device:device
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3716	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3717
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3718	"Created: 9.5.1996 / 00:46:59 / cg"
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	3719	"Modified: 10.1.1997 / 18:06:49 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3722	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3723
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3724	changedPreferredBounds:someArgument
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3725	"tell any dependents, that I have changed my preferred bounds;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3726	Interface is provided mostly provided for ST80 compatibility;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3727	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	3728
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3729	^ self changed:#preferredExtent
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3730
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3731	"Modified: 6.3.1997 / 16:12:02 / cg"
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3732	!
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3733
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3734	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3735	"an update request"
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	aspect == #sizeOfView ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3738	"one of the views we depend on changed its size"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3739	^ self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3740	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3741	^super update:aspect with:aParameter from:changedObject
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3742
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3743	"Modified: 19.7.1996 / 17:30:48 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3744	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3745
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3746	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3747
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3748	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3749	"evaluate some time consuming block, while doing this,
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3750	show a spinning wheel cursor. If those bitmaps are not found,
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3751	fallback to the standard busy cursor.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3752	Experimental."
269 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	\|ok bitmaps cursors mask process oldCursor\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3755
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3756	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3757
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3758	ok := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3759	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3760	collect:[:name \|
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3761	\|f\|
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3762
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3763	f := Image fromFile:('bitmaps/' , name , '.xbm').
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3764	f isNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3765	('SimpleView [warning]: no bitmap file: ' , name , '.xbm') errorPrintCR.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3766	ok := false
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3767	].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3768	f
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3769	].
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3770
787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3771	mask := Image fromFile:'bitmaps/wheelm.xbm'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3772	mask isNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3773	('SimpleView [warning]: no bitmap file: wheelm.xbm') errorPrintCR.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3774	ok := false
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3777	ok ifFalse:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3778	self cursor:Cursor wait.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3779	aBlock valueNowOrOnUnwindDo:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3780	self cursor:oldCursor
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3781	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3782	] ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3783	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3784	maskForm:mask
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3785	hotX:8
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3786	hotY:8) onDevice:device].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3787
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3788	process := [
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3789	Delay waitForSeconds:0.25.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3790	[true] whileTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3791	cursors do:[:curs \|
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3792	self cursor:curs.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3793	Delay waitForSeconds:0.05
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3794	]
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3795	]
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3796	] fork.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3797
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3798	Processor activeProcess priority:7.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3799	aBlock valueNowOrOnUnwindDo:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3800	Processor activeProcess priority:8.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3801	process terminate.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3802	self cursor:oldCursor
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	3803	]
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	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3807	View new realize showBusyWhile:[10 timesRepeat:[3000 factorial]]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3808	"
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	3809
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3810	"Modified: / 31.10.1997 / 19:59:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3811	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3812
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3813	!SimpleView methodsFor:'dependents access'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3814
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3815	addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3816	"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	3817
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3818	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3819
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3820	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3821	[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3822	\|deps\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3823
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3824	deps := dependents.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3825	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3826	"/ store the very first dependent directly in
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3827	"/ the dependents instVar
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3828	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3829	(deps isNil and:[anObject isCollection not]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3830	dependents := anObject
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3831	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3832	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3833	"/ store more dependents in the dependents collection
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3834	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3835	deps isCollection ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3836	deps add:anObject
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3837	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3838	deps == anObject ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3839	dependents := (IdentitySet with:dependents with:anObject)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3840	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3841	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3842	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3843	] valueNowOrOnUnwindDo:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3844	wasBlocked ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3845	OperatingSystem unblockInterrupts
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3846	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3847	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3848
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3849	"Modified: 8.1.1997 / 23:40:30 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3850	"Created: 11.6.1997 / 13:10:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3851	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3852
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3853	dependents
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	3854	"return a Collection of dependents"
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3855
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3856	dependents isNil ifTrue:[^ #()].
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3857	dependents isCollection ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3858	^ dependents
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3859	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3860	^ IdentitySet with:dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3861
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3862	"Created: / 11.6.1997 / 13:10:44 / cg"
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	3863	"Modified: / 26.1.1998 / 11:18:36 / cg"
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3864	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3865
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3866	dependents:aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3867	"set the collection of dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3868
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3869	\|dep\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3870
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3871	aCollection size == 1 ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3872	dep := aCollection first.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3873	dep isCollection ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3874	dependents := aCollection first.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3875	^ self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3876	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3877	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3878	dependents := aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3879
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3880	"Modified: 19.4.1996 / 12:23:05 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3881	"Created: 11.6.1997 / 13:10:47 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3882	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3883
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3884	dependentsDo:aBlock
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3885	"evaluate aBlock for all of my dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3886
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3887	\|deps\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3888
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3889	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3890	deps notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3891	deps isCollection ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3892	deps do:aBlock
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3893	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3894	aBlock value:deps
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3895	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3896	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3897
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3898	"Created: 11.6.1997 / 13:10:51 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3899	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3900
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3901	release
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3902	"remove all dependencies from the receiver"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3903
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3904	dependents := nil
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3905
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3906	"Modified: 19.4.1996 / 10:31:35 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3907	"Created: 11.6.1997 / 13:11:53 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3908	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3909
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3910	removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3911	"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	3912
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3913	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3914
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3915	"/ 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	3916	"/ is possibly accessed from multiple threads.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3917	"/ 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	3918	"/ faster execution.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3919
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3920	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3921	[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3922	\|deps sz dep\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3923
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3924	deps := dependents.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3925	deps notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3926	deps isCollection ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3927	deps remove:anObject ifAbsent:[].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3928	(sz := deps size) == 0 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3929	dependents := nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3930	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3931	sz == 1 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3932	(dep := deps first) isCollection ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3933	dependents := dep
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3934	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3935	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3936	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3937	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3938	deps == anObject ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3939	dependents := nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3940	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3941	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3942	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3943	] valueNowOrOnUnwindDo:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3944	wasBlocked ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3945	OperatingSystem unblockInterrupts
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	3946	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3947	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3948
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3949	"Modified: 8.1.1997 / 23:41:39 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3950	"Created: 11.6.1997 / 13:11:58 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3951	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3952
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3953	!SimpleView methodsFor:'dependents access (non weak)'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3954
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3955	addNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3956	"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	3957	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	3958	forwarded to addDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3959
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3960	^ self addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3961
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3962	"Created: 11.6.1997 / 13:15:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3963	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3964
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3965	interests
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3966	"return a Collection of interests - empty if there is none.
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3967	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	3968
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3969	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3970
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3971	"Modified: / 14.10.1996 / 22:19:58 / stefan"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3972	"Created: / 11.6.1997 / 13:15:44 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3973	"Modified: / 30.1.1998 / 14:07:48 / cg"
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3974	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3975
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3976	nonWeakDependents
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3977	"return a Collection of dependents - empty if there is none.
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3978	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	3979
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3980	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3981
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3982	"Created: / 11.6.1997 / 13:15:48 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	3983	"Modified: / 30.1.1998 / 14:06:55 / cg"
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3984	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3985
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3986	removeNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3987	"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	3988	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	3989	forwarded to removeDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3990
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3991	^ self removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3992
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3993	"Created: 11.6.1997 / 13:15:52 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3994	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	3995
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3996	!SimpleView methodsFor:'drag & drop'!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3997
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	3998	canDrop:aCollectionOfDropObjects
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	3999	"return true, if anObjectOrCollection can be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4000	dropped in the receiver. This method should be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4001	redefined in views which can take objects"
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4002
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4003	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4004
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4005	(app := self application) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4006	^ app canDrop:aCollectionOfDropObjects in:self
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4007	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4008	^ false
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4009
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4010	"Modified: 11.4.1997 / 12:42:13 / cg"
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4011	!
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4012
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4013	drop:aCollectionOfDropObjects at:aPoint
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4014	"drop manager wants to drop.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4015	If I have an application, forward the request.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4016	Otherwise, ignore it. This is only sent, if #canDrop: returned true;
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4017	if you redefined #canDrop: in a subclass, #drop:at: must also be redefined."
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4018
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4019	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4020
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4021	(app := self application) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4022	^ app drop:aCollectionOfDropObjects in:self at:aPoint
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4023	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4024	self subclassResponsibility
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4025
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4026	"Modified: 11.4.1997 / 12:44:34 / cg"
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4027	! !
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4028
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4029	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4030
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4031	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4032	"draw bottom 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4033
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4034	self drawBottomEdgeLevel:level
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4035	shadow:shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4036	light:lightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4037	halfShadow:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4038	halfLight:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4039	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4040	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4041
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4042	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	4043	\|botFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4044	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4045	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4046
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4047	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4048	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4049
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4050	(count < 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4051	botFg := lightColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4052	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4053	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4054	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4055	botFg := halfShadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4056	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4057	botFg := shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4058	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4059	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4060	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4061	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4062
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4063	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4064	0 to:(count - 1) do:[:i \|
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4065	b := height - 1 - i.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4066	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4067	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4068
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4069	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4070	b := height - 1.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4071	super paint:shadowColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4072	super displayDeviceLineFromX:1 y:b toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4073	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4074
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4075	self edgeDrawn:#bottom.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4076
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4077	"Modified: 7.3.1997 / 17:59:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4078	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4079
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4080	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4081	"draw all of my 3D edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4082
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4083	self drawEdgesForX:0 y:0 width:width height:height level:level
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4084	shadow:shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4085	light:lightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4086	halfShadow:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4087	halfLight:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4088	style:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4089	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4090
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4091	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4092	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4093
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4094	self drawEdgesForX:x y:y width:w height:h level:l
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4095	shadow:shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4096	light:lightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4097	halfShadow:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4098	halfLight:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4099	style:nil
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4100	!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4101
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4102	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4103	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4104
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4105	self drawLeftEdgeLevel:level
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4106	shadow:shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4107	light:lightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4108	halfShadow:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4109	halfLight:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4110	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4111	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4112
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4113	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	4114	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4115	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4116
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4117	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4118	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4119
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4120	(count < 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4121	leftFg := shadowColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4122	leftHalfFg := halfShadowColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4123	count := count negated.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4124	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4125	leftFg := lightColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4126	leftHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4127	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4128	leftHalfFg isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4129	leftHalfFg := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4130	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4131
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4132	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4133	paint := leftHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4134	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4135	paint := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4136	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4137	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4138	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4139
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4140	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4141	0 to:(count - 1) do:[:i \|
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4142	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4143	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4144
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4145	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4146	super paint:(device blackColor).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4147	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4148	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4149
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4150	self edgeDrawn:#left.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4151
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4152	"Modified: 7.3.1997 / 17:59:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4153	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4154
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4155	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4156	"draw right 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4157
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4158	self drawRightEdgeLevel:level
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4159	shadow:shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4160	light:lightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4161	halfShadow:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4162	halfLight:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4163	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4164	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4165
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4166	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	4167	\|rightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4168	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4169	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4170
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4171	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4172	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4173
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4174	(count < 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4175	rightFg := lightColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4176	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4177	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4178	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4179	rightFg := halfShadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4180	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4181	rightFg := shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4182	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4183	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4184	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4185	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4186
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4187	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4188	0 to:(count - 1) do:[:i \|
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4189	r := width - 1 - i.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4190	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4191	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4192	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4193	r := width - 1.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4194	super paint:shadowColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4195	super displayDeviceLineFromX:r y:1 toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4196	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4197
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4198	self edgeDrawn:#right.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4199
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4200	"Modified: 7.3.1997 / 18:00:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4201	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4202
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4203	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4204	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4205
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4206	self drawTopEdgeLevel:level
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4207	shadow:shadowColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4208	light:lightColor
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4209	halfShadow:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4210	halfLight:nil
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4211	style:nil.
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4214	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	4215	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4216	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4217
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4218	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4219	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4220
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4221	(count < 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4222	topFg := shadowColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4223	topHalfFg := halfShadowColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4224	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4225	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4226	topFg := lightColor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4227	topHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4228	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4229	topHalfFg isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4230	topHalfFg := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4231	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4232
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4233	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4234	paint := topHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4235	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4236	paint := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4237	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4238	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4239	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4240
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4241	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4242	0 to:(count - 1) do:[:i \|
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4243	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4244	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4245	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4246	super paint:(device blackColor).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4247	super displayDeviceLineFromX:0 y:0 toX:r y:0.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4248	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4249
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4250	self edgeDrawn:#top.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4251
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4252	"Modified: 7.3.1997 / 18:00:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4253	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4255	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4256	"redraw my edges (if any)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4257
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4258	(level ~~ 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4259	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4260	self clippingRectangle:nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4261	self drawEdges.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4262	self deviceClippingRectangle:innerClipRect
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4263	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4264	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4265
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4266	"Modified: / 25.5.1999 / 14:50:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4267	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4268
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4269	!SimpleView methodsFor:'enumerating subviews'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4270
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4271	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4272	"evaluate aBlock for all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4273
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4274	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4275	subViews do:[:aSubview \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4276	aSubview withAllSubViewsDo:aBlock
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4277	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4278	]
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4279
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4280	"Modified: 12.2.1997 / 12:23:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4281	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4282
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4283	changeSequenceOrderFor:aSubView to:anIndex
1984 e34624152bf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	4284	"change a subview's position in the subviews collection.
e34624152bf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	4285	Usually, this only affects the order of components in a panelView.
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4286	"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4287	\|aView\|
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4288
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4289	(subViews notNil and:[subViews size >= anIndex]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4290	aView := subViews remove:aSubView ifAbsent:nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4291
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4292	aView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4293	subViews add:aView beforeIndex:anIndex.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4294	^ true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4295	]
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4296	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4297	^ false
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4298	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4299
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4300	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4301	"evaluate aBlock for the receiver and all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4302
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4303	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4304	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	4305	! !
cf8e46015072 . claus parents: diff changeset	4306
cf8e46015072 . claus parents: diff changeset	4307	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	4308
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4309	alienDrop:aCollectionOfDropObjects
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4310	"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	4311
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4312	\|v\|
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4313
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4314	v := self.
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4315	[v notNil] whileTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4316	(v canDrop:aCollectionOfDropObjects) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4317	v drop:aCollectionOfDropObjects at:nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4318	^ self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4319	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4320	v := v superView
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4321	]
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4322
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4323	"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	4324	!
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4325
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4326	buttonPress:button x:x y:y
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4327	"button was pressed - check my components for a hit."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4328
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4329	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4330	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4331	comp buttonPress:button x:cx y:cy.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4332	^ self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4333	]
140 0db355079dc4 . claus parents: 138 diff changeset	4334	].
0db355079dc4 . claus parents: 138 diff changeset	4335
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4336	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	4337
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4338	"Modified: 8.5.1996 / 23:43:41 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4339	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4340
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4341	buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4342	"button was released - check my components for a hit."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4343
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4344	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4345	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4346	comp buttonRelease:button x:cx y:cy.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4347	^ self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4348	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4349	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4350
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4351	super buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4352
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4353	"Modified: 8.5.1996 / 23:41:58 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4354	"Created: 8.5.1996 / 23:43:25 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	4355	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	4356
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4357	clientMessage:msgType format:msgFormat eventData:msgData
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4358	"a client message - very X-specific and only useful
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4359	for special applications.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4360	Ignored here"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4361
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4362	"Created: 4.4.1997 / 18:56:52 / cg"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4363	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4364
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4365	closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4366	"programmatic close request"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4367
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4368	self destroy
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4369
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4370	"Modified: / 3.8.1998 / 19:50:50 / cg"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4371	!
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4372
140 0db355079dc4 . claus parents: 138 diff changeset	4373	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	4374	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	4375
180 0b3a8658d55e . claus parents: 176 diff changeset	4376	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge p\|
0b3a8658d55e . claus parents: 176 diff changeset	4377
2966 b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4378	left := x.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4379	top := y.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4380
180 0b3a8658d55e . claus parents: 176 diff changeset	4381	(superView isNil
0b3a8658d55e . claus parents: 176 diff changeset	4382	and:[drawableId notNil]) ifTrue:[
2821 8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4383	"/ have to be careful - some window managers (motif) wrap another
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4384	"/ view around and the reported origin is relative to that.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4385	"/ not relative to the screen.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4386	p := device translatePoint:0@0 from:drawableId to:device rootWindowId.
2966 b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4387	p := p + self borderWidth.
2821 8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4388	left := p x.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4389	top := p y.
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	4390	].
1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	4391
140 0db355079dc4 . claus parents: 138 diff changeset	4392	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
2821 8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4393	realized ifFalse:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4394	width := newWidth.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4395	height := newHeight.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4396	extentChanged := true.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4397	^ self
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4398	].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4399
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4400	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4401	how := #smaller
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4402	] ifFalse:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4403	((newWidth >= width) and:[newHeight >= height]) ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4404	how := #larger
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4405	]
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4406	].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4407
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4408	level ~~ 0 ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4409	mustRedrawBottomEdge := newHeight < height.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4410	mustRedrawRightEdge := newWidth < width.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4411	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge]
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4412	] ifFalse:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4413	anyEdge := false
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4414	].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4415
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4416	width := newWidth.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4417	height := newHeight.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4418
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4419	"recompute inner-clip if needed"
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4420	self setInnerClip.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4421
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4422	"
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4423	must first process pending exposes;
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4424	otherwise, those may be drawn at a wrong position
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4425	"
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4426	"/ 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	4427	"/ which is exactly for that reason ...
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4428
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4429	"/ windowGroup notNil ifTrue:[
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4430	"/ windowGroup processExposeEvents
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4431	"/ ].
2821 8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4432	self sizeChanged:how.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4433
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4434	(anyEdge and:[shown]) ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4435	mustRedrawBottomEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4436	self invalidateDeviceRectangle:((0 @ (height-1-margin)) extent:width@margin) repairNow:false.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4437	].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4438	mustRedrawRightEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4439	self invalidateDeviceRectangle:((width-1-margin)@0 extent:margin@height) repairNow:false.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4440	].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4441	"/ OLD code:
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4442	"/ self clippingRectangle:nil.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4443	"/ mustRedrawBottomEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4444	"/ self drawBottomEdge
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4445	"/ ].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4446	"/ mustRedrawRightEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4447	"/ self drawRightEdge
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4448	"/ ].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4449	"/ self deviceClippingRectangle:innerClipRect
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4450	]
140 0db355079dc4 . claus parents: 138 diff changeset	4451	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4452
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4453	"Modified: / 25.5.1999 / 14:47:18 / cg"
138 3167663e38e7 . claus parents: 137 diff changeset	4454	!
3167663e38e7 . claus parents: 137 diff changeset	4455
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4456	containerChangedSize
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4457	"my container has changed size; if I have relative
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4458	origin/extent or blocks to evaluate, do it now .."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4459
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	4460	\|oldWidth oldHeight oldTop oldLeft newExt newOrg r\|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4461
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4462	oldWidth := width.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4463	oldHeight := height.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4464	oldTop := top.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4465	oldLeft := left.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4466
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4467	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4468	slowly migrating to use layoutObjects ...
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4469	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4470	layout isNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4471	newOrg := self computeOrigin.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4472	newExt := self computeExtent.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4473	] ifFalse:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4474	r := (layout rectangleRelativeTo:(superView viewRectangle)
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4475	preferred:[self preferredBounds]).
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4476	newOrg := r origin rounded.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4477	newExt := r extent rounded.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4478	"/ newOrg printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4479	"/ newExt printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4480	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4481
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4482	newOrg notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4483	((newOrg x == oldLeft) and:[newOrg y == oldTop]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4484	newOrg := nil
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4485	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4486	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4487	newExt notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4488	((newExt x == width) and:[newExt y == height]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4489	newExt := nil
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4490	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4491	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4492
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4493	newExt isNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4494	newOrg notNil ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4495	self pixelOrigin:newOrg
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4496	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4497	] ifFalse:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4498	newOrg isNil ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4499	self pixelExtent:newExt
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4500	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4501	self pixelOrigin:newOrg extent:newExt
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	4502	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4503	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4504
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4505	"Modified: 19.7.1996 / 17:32:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4506	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4507
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4508	containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4509	"my container was mapped (became visible).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4510	If I was previously realized, this implies that I myself
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4511	am now mapped as well."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4512
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4513	"/ if I was not previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4514	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4515
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4516	realized ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4517	shown ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4518	"/ old:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4519	"/ shown := true.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4520	"/ subViews notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4521	"/ subViews do:[:v \|
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4522	"/ v containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4523	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4524	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4525
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4526	"/ which is equivalent to:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4527	self mapped.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4528	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4529	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4530
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4531	"Modified: 30.5.1996 / 11:41:02 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4532	"Created: 19.7.1996 / 17:41:10 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4533	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4534
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4535	containerUnmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4536	"my container was unmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4537	- this implies that the recevier is now also unmapped."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4538
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4539	"/ if I was previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4540	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4541
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4542	realized ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4543	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4544	self unmapped
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4545	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4546	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4547
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4548	"Modified: 30.5.1996 / 11:41:25 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4549	"Created: 19.7.1996 / 17:43:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4550	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4551
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4552	coveredBy:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4553	"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	4554	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	4555	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4556
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4557	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4558	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4559
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4560	shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4561	super destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4562	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4563
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4564	dropMessage:dropType data:dropValue
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4565	"a drop from some other view.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4566	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	4567
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4568	\|dropObjects\|
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4569
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4570	dropType == #file ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4571	dropObjects := Array with:(DropObject newFile:dropValue)
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4572	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4573	dropType == #directory ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4574	dropObjects := Array with:(DropObject newFile:dropValue)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4575	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4576	dropType == #files ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4577	dropObjects := (dropValue collect:[:fn \| DropObject newFile:fn])
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4578	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4579	dropType == #text ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4580	dropObjects := Array with:(DropObject newText:dropValue)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4581	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4582	dropObjects := Array with:(DropObject new:dropValue)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4583	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4584	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4585	]
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4586	].
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4587
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4588	self alienDrop:dropObjects
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4589
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4590	"Modified: 6.4.1997 / 14:44:43 / cg"
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4591	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4592
135 cf8e46015072 . claus parents: diff changeset	4593	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	4594	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	4595	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	4596
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4597	\|leftEdge topEdge rightEdge botEdge anyEdge nx ny nw nh dx dy dw dh old\|
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4598
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4599	nw := dw := w.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4600	nh := dh := h.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4601	nx := dx := x.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4602	ny := dy := y.
135 cf8e46015072 . claus parents: diff changeset	4603
cf8e46015072 . claus parents: diff changeset	4604	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	4605
cf8e46015072 . claus parents: diff changeset	4606	"
cf8e46015072 . claus parents: diff changeset	4607	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	4608	"
cf8e46015072 . claus parents: diff changeset	4609	(margin ~~ 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4610	leftEdge := false.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4611	topEdge := false.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4612	rightEdge := false.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4613	botEdge := false.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4614	transformation notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4615	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4616	need device coordinates for this test
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4617	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4618	nx := transformation applyToX:nx.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4619	ny := transformation applyToY:ny.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4620	nw := transformation applyScaleX:nw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4621	nh := transformation applyScaleY:nh.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4622	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4623	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4624	adjust expose rectangle, to exclude the margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4625	Care for rounding errors ...
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4626	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4627	(nx isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4628	old := nx.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4629	nx := nx truncated.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4630	nw := nw + (nx - old).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4631	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4632	(ny isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4633	old := ny.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4634	ny := ny truncated.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4635	nh := nh + (ny - old).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4636	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4637	(nw isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4638	nw := nw truncated + 1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4639	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4640	(nh isMemberOf:SmallInteger) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4641	nh := nh truncated + 1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4642	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4643
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4644	dx := nx.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4645	dy := ny.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4646	dw := nw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4647	dh := nh.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4648
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4649	(nx < margin) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4650	old := nx.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4651	nx := margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4652	nw := nw - (nx - old).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4653	leftEdge := anyEdge := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4654	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4655	((nx + nw - 1) >= (width - margin)) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4656	nw := (width - margin - nx).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4657	rightEdge := anyEdge := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4658	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4659	(ny < margin) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4660	old := ny.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4661	ny := margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4662	nh := nh - (ny - old).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4663	topEdge := anyEdge := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4664	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4665	((ny + nh - 1) >= (height - margin)) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4666	nh := (height - margin - ny).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4667	botEdge := anyEdge := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4668	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4669	transformation notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4670	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4671	need logical coordinates for redraw
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4672	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4673	nx := transformation applyInverseToX:nx.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4674	ny := transformation applyInverseToY:ny.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4675	nw := transformation applyInverseScaleX:nw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4676	nh := transformation applyInverseScaleY:nh.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4677	].
135 cf8e46015072 . claus parents: diff changeset	4678	].
cf8e46015072 . claus parents: diff changeset	4679
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4680	(nw > 0 and:[nh > 0]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4681	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4682	redraw inside area
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4683	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4684	self clippingRectangle:(Rectangle left:nx top:ny width:nw height:nh).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4685
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4686	device supportsAnyViewBackgroundPixmaps ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4687	"/ workaround: non-existing bg-pixmap support (win95)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4688
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4689	viewBackground isImageOrForm ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4690	(device supportsViewBackgroundPixmap:viewBackground) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4691	self fillRectangleWithViewBackgroundX:nx y:ny width:nw height:nh
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4692	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4693	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4694	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4695
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4696	self redrawX:nx y:ny width:nw height:nh.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	4697	].
135 cf8e46015072 . claus parents: diff changeset	4698
cf8e46015072 . claus parents: diff changeset	4699	"
cf8e46015072 . claus parents: diff changeset	4700	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	4701	"
cf8e46015072 . claus parents: diff changeset	4702	anyEdge ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4703	self deviceClippingRectangle:nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4704	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4705	self drawEdges
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4706	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4707	topEdge ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4708	self drawTopEdge
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4709	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4710	leftEdge ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4711	self drawLeftEdge
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4712	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4713	botEdge ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4714	self drawBottomEdge
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4715	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4716	rightEdge ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4717	self drawRightEdge
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4718	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4719	].
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4720	].
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4721	self deviceClippingRectangle:innerClipRect.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4722
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4723	"Modified: / 25.5.1999 / 14:57:38 / cg"
135 cf8e46015072 . claus parents: diff changeset	4724	!
cf8e46015072 . claus parents: diff changeset	4725
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4726	focusIn
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4727	"got keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4728	Nothing done here"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4729
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4732	focusOut
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4733	"lost keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4734	Nothing done here"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4737	hasKeyboardFocus:aBoolean
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4738	"notification from the windowGroup that I got the keyboardFocus."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4739
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4740	delegate notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4741	delegate perform:#hasKeyboardFocus: with:aBoolean ifNotUnderstood:nil
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4742	].
140 0db355079dc4 . claus parents: 138 diff changeset	4743	^ self
0db355079dc4 . claus parents: 138 diff changeset	4744	!
0db355079dc4 . claus parents: 138 diff changeset	4745
0db355079dc4 . claus parents: 138 diff changeset	4746	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	4747	"a key has been pressed. If there are components,
0db355079dc4 . claus parents: 138 diff changeset	4748	pass it to the corresponding one.
0db355079dc4 . claus parents: 138 diff changeset	4749	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	4750
510 c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	4751	<resource: #keyboard ( #Menu ) >
c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	4752
140 0db355079dc4 . claus parents: 138 diff changeset	4753	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4754	components notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4755	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4756	comp keyPress:key x:cx y:cy.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4757	^ self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4758	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4759	].
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4760	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4761
494 cc7765901744 checkin from browser Claus Gittinger <cg@exept.de> parents: 490 diff changeset	4762	key == #Menu ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4763	^ self activateMenu.
135 cf8e46015072 . claus parents: diff changeset	4764	].
cf8e46015072 . claus parents: diff changeset	4765
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4766	x isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4767	"/ already redelegated, but nowhere handled
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4768	superView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4769	superView keyPress:key x:nil y:nil.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4770	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4771	^ self
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4772	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4773
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	4774	superView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4775	superView
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4776	dispatchEvent:#keyPress:x:y:
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4777	arguments:(Array with:key with:0 with:0)
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	4778
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	4779	"/ WindowEvent
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	4780	"/ sendEvent:#keyPress:x:y:
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	4781	"/ arguments:(Array with:key with:0 with:0)
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	4782	"/ view:superView
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	4783	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4784	super keyPress:key x:x y:y
135 cf8e46015072 . claus parents: diff changeset	4785	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	4786
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	4787	"Modified: / 20.5.1998 / 22:55:08 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4788	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4789
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4790	keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4791	"a key has been released. If there are components,
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4792	pass it to the corresponding one.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4793	Otherwise, do whatever my superclass would do."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4794
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4795	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4796	components notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4797	self componentsContainingX:x y:y do:[:comp :cx :cy \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4798	comp keyRelease:key x:cx y:cy.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4799	^ self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4800	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4801	].
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4802	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4803
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4804	super keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4805
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4806	"Modified: 8.5.1996 / 23:44:36 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4807	"Created: 8.5.1996 / 23:45:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	4808	!
cf8e46015072 . claus parents: diff changeset	4809
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4810	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4811	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4812	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4814	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4815	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4816
2886 b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4817	realized := true.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4818	shown := true.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4819	...
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4820
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4821	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4822	realized and shortly after unrealized - before the mapped event
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4823	arrived. This lead to realized being set to true even thought the
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4824	view was not.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4825	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	4826	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4827
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4828	realized ifTrue:[
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	4829
2886 b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4830	"/ currently, the 'shown ifFalse:' optimization is
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4831	"/ not ok, since 'shown' is also modified by visibilityChanges.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4832	"/ Also, when remapped, X11 only sends a mapped event for the topView.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4833	"/ Therefore, synthetically generate those #superViewMapped messages
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4834	"/ in any case.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4835
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4836	shown := true.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4837	"
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4838	backed views will not get expose events - have
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4839	to force a redraw here to get things drawn into
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4840	backing store.
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4841	"
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4842	backed ifTrue:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4843	self redrawX:0 y:0 width:width height:height
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4844	].
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4845
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4846	"/ tell my subViews ...
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4847	subViews notNil ifTrue:[
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4848	subViews do:[:v \| v mapped
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4849	"/ v shown ifFalse:[
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4850	"/ v mapped
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4851	"/ ]
2886 b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4852	]
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4853	].
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	4854	self changed:#visibility.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4855	]
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4856
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	4857	"Modified: 25.2.1997 / 22:41:34 / 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
2733 5af2417bc450 pass x/y with mouseWheel event Claus Gittinger <cg@exept.de> parents: 2727 diff changeset	4860	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	4861	"the mouseWheel was turned - handle as a scroll operation.
ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	4862	Specialized application windows may redefine this for any other
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4863	operation.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4864	Here, we scroll some amount which depends upon the views contents height
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4865	(but never too much);
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4866	if shift is pressed, always scroll a single scroll-step;
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4867	if ctrl is pressed, always scroll one page."
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4868
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4869	\|hCont pageScroll amountToScroll sensor factor\|
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4870
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4871	amountToScroll := self verticalScrollStep.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4872	pageScroll := false.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4873
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4874	(sensor := self sensor) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4875	sensor ctrlDown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4876	pageScroll := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4877	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4878	].
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4879
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4880	pageScroll ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4881	(sensor isNil or:[sensor shiftDown]) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4882	hCont := self heightOfContents.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4883	hCont > (self innerHeight * 3) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4884	factor := (hCont // self innerHeight) min:4.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4885	amountToScroll := amountToScroll * factor.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4886	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4887	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4888	].
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	4889
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4890	amount > 0 ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4891	pageScroll ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4892	self pageUp
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4893	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4894	self scrollUp:amountToScroll
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4895	]
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4896	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4897	pageScroll ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4898	self pageDown
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4899	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4900	self scrollDown:amountToScroll
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4901	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4902	].
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4903
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	4904	"Modified: / 21.5.1999 / 19:58:42 / cg"
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4905	!
01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4906
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4907	pointerEnter:state x:x y:y
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4908	"got mouse pointer.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4909	Nothing done here"
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4910
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4911	"Modified: 25.2.1997 / 23:43:21 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4912	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4913
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4914	pointerLeave:state
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4915	"got mouse pointer.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	4916	Nothing done here"
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4917
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4918	"Modified: 25.2.1997 / 23:43:17 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4919	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	4920
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4921	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4922	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4923	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4924	nothing done here"
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	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4927	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4928
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4929	saveAndTerminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4930	"window manager wants me to save and go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4931	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4932	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4933	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4934	to prepare for restart."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4935
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4936	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4937
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4938	"Modified: / 3.8.1998 / 19:51:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4939	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4940
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4941	sizeChanged:how
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4942	"tell subviews if I change size.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4943	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	4944	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4945
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4946	\|subViews\|
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4947
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4948	(subViews := self subViews) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4949	(how isNil "false"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4950	or:[how == #smaller]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4951	subViews do:[:view \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4952	view notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4953	view containerChangedSize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4954	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4955	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4956	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4957	"doing it reverse speeds up resizing - usually subviews
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4958	are created from top-left to bottom-right; therefore
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4959	bottom-right views will be moved/resized first, then top-left ones;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4960	this avoids multiple redraws of subviews"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4961
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4962	subViews reverseDo:[:view \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4963	view notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4964	view containerChangedSize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4965	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4966	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4967	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4968	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4969
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4970	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4971	(how isNil "false"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4972	or:[how == #smaller]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4973	components do:[:view \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4974	view containerChangedSize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4975	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4976	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4977	"doing it reverse speeds up resizing - usually subviews
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4978	are created from top-left to bottom-right; therefore
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4979	bottom-right views will be moved/resized first, then top-left ones;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4980	this avoids multiple redraws of subviews"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4981
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4982	components reverseDo:[:view \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4983	view containerChangedSize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4984	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4985	]
135 cf8e46015072 . claus parents: diff changeset	4986	].
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	4987
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4988	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	4989
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4990	superView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	4991	superView subViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4992	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4993
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	4994	"Modified: / 2.4.1998 / 13:59:59 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4995	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4996
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4997	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	4998	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4999	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5000	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5001
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5002	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5003
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5004	"Created: 22.9.1995 / 14:44:59 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5005	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5006
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5007	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5008	"window manager wants me to go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5009	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5010	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5011	Can be redefined in subclasses to do whatever cleanup is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5012	required."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5013
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5014	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5015
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5016	"Modified: / 3.8.1998 / 19:51:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5017	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5018
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5019	unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5020	"the view has been unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5021	(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	5022	or due to unmapping of my parentView)."
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5023
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5024	"/ 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	5025	"/ my subviews (they remember this in the shown instVar)
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5026
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5027	"/ currently, the 'shown ifTrue:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5028	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5029	"/ 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	5030	"/ Therefore, synthetically generate those #superViewUnmapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5031	"/ in any case.
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5032
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5033	shown := false.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5034	subViews notNil ifTrue:[
2886 b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	5035	subViews do:[:v \|
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	5036	v containerUnmapped
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	5037	].
b8db9af1f330 checkin from browser tm parents: 2829 diff changeset	5038	self changed:#visibility.
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5039	]
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5040
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5041	"Modified: 25.2.1997 / 22:40:52 / cg"
135 cf8e46015072 . claus parents: diff changeset	5042	!
cf8e46015072 . claus parents: diff changeset	5043
cf8e46015072 . claus parents: diff changeset	5044	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	5045	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	5046	action - i.e. window manager rearranged things).
cf8e46015072 . claus parents: diff changeset	5047	Using this knowledge avoids useless redraw in obsucred views."
cf8e46015072 . claus parents: diff changeset	5048
cf8e46015072 . claus parents: diff changeset	5049	how == #fullyObscured ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5050	shown := false
135 cf8e46015072 . claus parents: diff changeset	5051	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5052	shown := true.
135 cf8e46015072 . claus parents: diff changeset	5053	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5054	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5055
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5056	!SimpleView methodsFor:'event simulation'!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5057
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5058	pushEvent:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5059	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5060	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5061	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5062	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	5063
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5064	^ self pushEvent:aSelector withArguments:#()
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5065
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5066	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5067	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5068
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5069	v := View new openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5070	v fill:Color red.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5071	v pushEvent:#redraw
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5072	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5073
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5074	"Modified: / 10.6.1998 / 17:28:40 / cg"
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5075	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5076
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5077	pushEvent:aSelector with:arg
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5078	"push some 1-arg messageSend into my event queue -
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5079	I will perform the corresponding method when its time
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5080	to handle events (useful to update low-prio views from
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5081	a higher prio process, to avoid blocking in the high prio one)"
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5082
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5083	^ self pushEvent:aSelector withArguments:(Array with:arg)
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5084
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5085	"Created: / 10.6.1998 / 17:27:17 / cg"
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5086	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5087
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5088	pushEvent:aSelector with:arg1 with:arg2
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5089	"push some 1-arg messageSend into my event queue -
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5090	I will perform the corresponding method when its time
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5091	to handle events (useful to update low-prio views from
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5092	a higher prio process, to avoid blocking in the high prio one)"
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5093
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5094	^ self pushEvent:aSelector withArguments:(Array with:arg1 with:arg2)
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5095
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5096	"Created: / 10.6.1998 / 17:27:41 / cg"
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5097	!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5098
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5099	pushEvent:aSelector withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5100	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5101	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5102	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5103	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	5104
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5105	\|sensor\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5106
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5107	(sensor := self sensor) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5108	sensor pushUserEvent:aSelector for:self withArguments:args
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5109	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5110	self perform:aSelector withArguments:args
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5111	]
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5112
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5113	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5114	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5115
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5116	v := (Button label:'hello') openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5117	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5118	v pushEvent:#buttonPress:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5119	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5120	v pushEvent:#buttonRelease:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5121	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5122
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5123	"Modified: / 10.6.1998 / 17:28:16 / cg"
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5124	! !
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5125
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5126	!SimpleView methodsFor:'focus handling'!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5127
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5128	requestFocus
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5129	"request focus from my windowGroup;
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5130	typically, this is invoked when the mouse pointer enters a
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5131	widget. The request may or may not be ignored by the wGroup
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5132	(it will be ignored, if an explicit focus-change is currently
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5133	active - i.e. if the user tabbed into a widget)"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5134
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5135	windowGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5136	^ windowGroup focusRequestFrom:self
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5137	].
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5138	^ true
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5139	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5140
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5141	showFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5142	"highlight myself somehow to tell user that I have the focus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5143	If explicit is true, the focus came via focusStepping (i.e. tabbing);
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5144	if false, it came via the window manager (i.e. pointer entering).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5145	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5146
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5147	\|delta clrId bd\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5148
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5149	explicit ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5150	(drawableId notNil and:[superView notNil]) ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5151	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5152	(device supportsWindowBorder:(bd := DefaultFocusBorderWidth)) ifFalse:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5153	(device supportsWindowBorder:(bd := 1)) ifFalse:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5154	bd := 0.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5155	]
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5156	].
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5157	delta := bd - borderWidth.
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5158	delta ~~ 0 ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5159	device moveWindow:drawableId x:left-delta y:top-delta.
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5160	device setWindowBorderWidth:bd in:drawableId.
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5161	].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5162
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5163	clrId := (DefaultFocusColor onDevice:device) colorId.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5164	clrId isNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5165	clrId := device blackpixel
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5166	].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5167	device setWindowBorderColor:clrId in:drawableId.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5168	]
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5169	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5170	] ifFalse:[
2560 a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	5171	"/ superView notNil ifTrue:[
a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	5172	"/ superView showFocus:explicit
a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	5173	"/ ]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5174	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5175
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5176	"Modified: / 17.9.1998 / 15:08:34 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5177	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5178
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5179	showNoFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5180	"undo the effect of showFocus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5181	Explicit tells if the focus came via focusStepping (i.e. tabbing)
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5182	or via the window manager (i.e. pointer entering).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5183	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5184
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5185	\|delta bd\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5186
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5187	explicit ifTrue:[
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5188	(drawableId notNil and:[superView notNil]) ifTrue:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5189	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5190	(device supportsWindowBorder:(bd := borderWidth)) ifFalse:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5191	(device supportsWindowBorder:(bd := 1)) ifFalse:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5192	bd := 0.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5193	]
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5194	].
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5195	delta := DefaultFocusBorderWidth - bd.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5196	delta ~~ 0 ifTrue:[
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5197	device setWindowBorderWidth:bd in:drawableId.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5198	device moveWindow:drawableId x:left y:top.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5199	].
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5200	self setBorderColor.
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5201	]
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5202	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5203	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5204
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5205	"Modified: / 17.9.1998 / 15:08:02 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5206	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5207
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5208	wantsFocusWithButtonPress
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5209	"views which do not like to take the keyboard focus
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5210	with buttonPress can do so by redefining this
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5211	to return false"
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5212
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5213	^ true
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5214	!
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5215
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5216	wantsFocusWithPointerEnter
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5217	"views which like to take the keyboard focus
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5218	when the pointer enters can do so by redefining this
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5219	to return true"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5220
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5221	^ false
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5222	! !
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5223
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5224	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5225
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5226	contentsChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5227	"this one is sent, whenever contents changes size -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5228	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5229
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5230	self changed:#sizeOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5231	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5232
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5233	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5234	"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	5235	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5236
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5237	self changed:#originOfContents with:delta.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5238	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5239	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5240	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5241	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5242	"/ ]
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5245	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5246	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5247	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5248	(for example to hide cursor before scroll)"
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	^ self
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
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5253	!SimpleView methodsFor:'initialize / release'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5255	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5256	^ nil "/ Controller
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5257	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5258
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5259	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	5260	"return the default extent of my instances."
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	5261
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5262	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5263
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5264	"Created: 1.3.1996 / 19:20:46 / cg"
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	5265	"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	5266	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5267
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5268	destroy
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5269	"unmap & destroy - make me invisible, destroy subviews then
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5270	make me unknown to the device"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5271
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5272	realized ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5273	self unmap.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5274	"/ "make it go away immediately
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5275	"/ - also, this hides the subview killing"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5276	"/
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5277	"/ device synchronizeOutput.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5278
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5279	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5280	shown := false.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5281
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5282	"/ controller notNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5283	"/ controller release.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5284	"/ controller := nil.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5285	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5286
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5287	subViews notNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5288	self destroySubViews.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5289	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5290	superView notNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5291	superView removeSubView:self.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5292	superView := nil
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5293	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5294	super destroy.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5295
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5296	"/ superView isNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5297	"/ device flush
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5298	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5299
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5300	controller notNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5301	controller release.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5302	controller := nil.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5303	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5304
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5305	windowGroup notNil ifTrue:[
2921 186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5306	windowGroup removeView:self.
186f581aaaec error if adding a subview twice Stefan Vogel <sv@exept.de> parents: 2920 diff changeset	5307	windowGroup := nil
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5308	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5309
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5310	"Modified: / 3.5.1996 / 23:49:24 / stefan"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5311	"Modified: / 18.2.1999 / 22:16:09 / cg"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5312	!
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5313
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5314	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5315	"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	5316	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5317
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5318	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5319	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5320
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5321	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5322	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5323
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5324	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5325
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5326	borderWidth := DefaultBorderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5327	borderWidth isNil ifTrue:[borderWidth := 1].
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	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5330
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5331	DefaultLightColor notNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5332	lightColor := DefaultLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5333	] ifFalse:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5334	device hasGrayscales ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5335	DefaultLightColor := lightColor := viewBackground lightened.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5336	] ifFalse:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5337	"
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5338	this seems strange: on B&W screens, we create the light color
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5339	darker than normal viewBackground (White) -
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5340	to make the boundary of the view visible
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5341	"
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5342	lightColor := Color gray:50
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5343	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5344	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5345	DefaultShadowColor notNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5346	shadowColor := DefaultShadowColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5347	] ifFalse:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5348	shadowColor := Black
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5349	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5350
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5351	lightColor := lightColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5352	shadowColor := shadowColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5353	borderColor := DefaultBorderColor.
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	5354	font := self class defaultFont.
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	5355	font := font onDevice:device.
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	5356
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	5357	"Modified: 28.5.1996 / 21:13:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5358	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5359
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5360	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5361	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5362
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5363	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5364	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5365	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5366	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5367	StyleSheet isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5368	DefaultStyle isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5369	"/ the very-very first time (no styleSheet yet)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5370	View setDefaultStyle. "/ View defaultStyle:#normal.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5371	View defaultStyle:DefaultStyle.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5372	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5373	self class updateStyleCache
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5374	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5375
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5376	styleSheet := StyleSheet.
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5377
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5378	"Modified: 25.7.1996 / 22:00:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5379	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5380
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5381	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5382	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5383	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5384	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5385	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	5386	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	5387	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	5388	(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	5389	leave the state and contents as-is)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5390
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5391	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5392
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5393	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5394
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	5395	font := self class defaultFont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5396
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5397	shown := hiddenOnRealize := realized := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5398
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5399	"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	5400	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5401
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5402	myClass := self class.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5403	name := myClass name "asString" asLowercaseFirst.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5404	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5405
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5406	level := borderWidth := margin := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5407
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5408	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5409
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5410	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5411	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5412	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5413	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5414
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5415	originChanged := extentChanged := false.
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	5416	bitGravity := #NorthWest. "/ nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5417	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5418
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5419	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5420	controllerClass notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5421	controller := controllerClass new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5422	controller view:self.
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5423	].
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5424
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5425	"Modified: / 1.10.1998 / 14:31:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5426	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5427
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5428	initializeMiddleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5429	"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	5430	first created; usually redefined in subclasses; default here is no menu.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5431	Notice, that static middleButtonmenus are a historic thing in ST/X;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5432	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	5433
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5434	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5435	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5436
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5437	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5438	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5439	windowGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5440	windowGroup reinitialize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5441	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5442	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5443
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5444	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5445	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5446
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5447	\|t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5448
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5449	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5450	drawableId notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5451	"force a change"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5452	t := borderWidth. borderWidth := nil. self borderWidth:t.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5453	t := viewBackground. viewBackground := nil. self viewBackground:t.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5454	self clear. self invalidate.
2357 29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	5455	].
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	5456
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	5457	"Modified: / 18.9.1998 / 21:15:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5458	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5459
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5460	reinitialize
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	5461	"this is called right after snapIn"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5462
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	5463	\|myController sv\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5464
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5465	"if I have already been reinited - return"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5466	drawableId notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5467	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5468	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5469
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5470	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5471	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5472	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5473	superView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5474	(sv := superView view) id isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5475	sv reinitialize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5476	]
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	5477	].
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	5478
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	5479	"reinit cursor"
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	5480	self initCursor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5481
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5482	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5483	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5484	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5485
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5486	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5487	realized ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5488	"only remap if I have a superview - otherwise, I might be
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5489	a hidden iconView or menu ..."
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5490	superView notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5491	"/ shown ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5492	device
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5493	mapView:self id:drawableId iconified:false
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5494	atX:left y:top width:width height:height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5495	minExtent:(self minExtent) maxExtent:(self maxExtent)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5496	"/ ].
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5497	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5498	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5499
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5500	"restore controller"
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	5501	controller := myController.
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	5502
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	5503	"Modified: / 6.5.1999 / 13:11:07 / cg"
135 cf8e46015072 . claus parents: diff changeset	5504	! !
cf8e46015072 . claus parents: diff changeset	5505
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5506	!SimpleView methodsFor:'menu handling'!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5507
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5508	activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5509	"activate my menu.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5510	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	5511	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	5512	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	5513	Otherwise, the follwing steps are performed:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5514
2816 e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5515	- ask the receiver for the menu (via #yellowButtonMenu)
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5516	- ask the receiver for the menuPerformer.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5517	- startUp the menu - it is supposed to return an actionSelector
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5518	- if the menuPerformer responds to the selector,
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5519	send it to the performer;
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5520	otherwise send it to the view (the receiver)
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5521	This is funny, it allows additional menuItems to be added
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5522	AND still get the views copy/cut/paste functionality.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5523	Without this, you had to redefine and forward all of those
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5524	messages in the performer."
2489 f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	5525
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	5526	\|menu menuPerformer actionSelector prevReceiver wg\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5527
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5528	middleButtonMenu isNil ifTrue:[
2816 e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5529	"
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5530	try ST-80 style menus first:
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5531	if there is a model, and a menuMessage is defined,
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5532	ask model for the menu and launch that if non-nil.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5533	"
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5534	menu := self yellowButtonMenu.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5535	menu notNil ifTrue:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5536
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5537	"/ could be a spec ...
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5538	menu isArray ifTrue:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5539	menu := menu decodeAsLiteralArray
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5540	].
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5541
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5542	"
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5543	got one, launch the menu. It is supposed
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5544	to return an actionSelector.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5545	"
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5546	menuPerformer := self menuPerformer value.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5547
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5548	"
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5549	a temporary kludge:
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5550	pass myself as receiver, the menuPerformer as performer;
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5551	the menu will send its messages to either the
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5552	menuPerformer or me (its receiver).
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5553	This allows for the ST-80 behavior, where some messages
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5554	go to the model, others to the view
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5555	(copy/cut/paste).
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5556	"
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5557	(prevReceiver := menu receiver) isNil ifTrue:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5558	"/ kludge for oldStyle menus (MenuView/PopUpMenu)
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5559	"/ not req'd for real Menus
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5560
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5561	(menu respondsTo:#menuPerformer:) ifTrue:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5562	menu receiver:self. "/ really ?
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5563	menu menuPerformer:menuPerformer.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5564	] ifFalse:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5565	"/ new style menu
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5566	menu receiver:menuPerformer.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5567	]
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5568	].
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5569
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5570	"/
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5571	"/ startup the menu - this returns a selector
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5572	"/
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5573	actionSelector := menu startUp.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5574
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5575	"/ before doing anything else, redraw expose area from
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5576	"/ the menu (in case the action changes my state)
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5577	(wg := self windowGroup) notNil ifTrue:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5578	wg processExposeEvents.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5579	].
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5580
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5581	actionSelector notNil ifTrue:[
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5582	self dispatchMenuSelection:actionSelector.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5583	].
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5584
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5585	menu receiver:prevReceiver.
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5586
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5587	^ self
e01cf1974c07 activateMenu menuPerformer added value tm parents: 2802 diff changeset	5588	].
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5589	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5590
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5591	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5592	"/ old style static menu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5593	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5594	super activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5595
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5596	"Created: / 1.3.1996 / 13:24:18 / cg"
2246 8666105a8750 care for menuPerformer, when using newStyle menu in Claus Gittinger <cg@exept.de> parents: 2243 diff changeset	5597	"Modified: / 14.8.1998 / 18:09:31 / cg"
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5598	!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5599
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5600	dispatchMenuSelection:menuSelection
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5601	"dispatch a menu message.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5602	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	5603
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	5604	\|actionSelector actionArg1 actionArg2 app menuPerformer\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5605
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5606	actionSelector := menuSelection.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5607
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5608	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5609	mhmh - kludge for selectors with argument
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5610	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5611	(menuSelection isMemberOf:Array) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5612	actionArg1 := menuSelection at:2.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5613	actionSelector := menuSelection at:1.
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5614	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5615
1839 7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	5616	menuPerformer := self menuPerformer.
7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	5617
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5618	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5619	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	5620	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	5621	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	5622	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5623	actionSelector isSymbol ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5624	(menuPerformer respondsTo:actionSelector) ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5625	((app := self application) respondsTo:actionSelector) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5626	menuPerformer := app.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5627	actionArg1 := self model.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5628	actionArg2 := self controller.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5629	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5630	(self respondsTo:actionSelector) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5631	menuPerformer := self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5632	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5633	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5634	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5635	actionSelector numArgs ~~ 0 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5636	actionSelector numArgs ~~ 1 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5637	menuPerformer perform:actionSelector with:actionArg1 with:actionArg2
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5638	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5639	menuPerformer perform:actionSelector with:actionArg1
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5640	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5641	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5642	menuPerformer perform:actionSelector
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5643	]
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5644	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5645
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	5646	"Created: / 20.6.1997 / 11:47:42 / cg"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	5647	"Modified: / 1.11.1997 / 13:45:23 / cg"
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5648	! !
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	5649
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5650	!SimpleView methodsFor:'misc'!
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5651
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5652	grabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5653	"grab the pointer - that is: report all motion events relative to
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5654	myself, even if moved out of myself."
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5655
2583 0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5656	self grabPointerWithCursor:nil
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5657	!
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5658
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5659	grabPointerWithCursor:aCursorOrNil
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5660	"grab the pointer - that is: report all motion events relative to
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5661	myself, even if moved out of myself.
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5662	Show aCursor if the aargument is not nil."
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5663
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5664	\|sensor cursorId\|
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5665
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5666	"/ (sensor := self sensor) notNil ifTrue:[
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5667	"/ "/ make certain all X events have been received
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5668	"/ device sync.
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5669	"/ "/ now all events have been received.
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5670	"/ "/ now, flush all pointer events
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5671	"/ sensor flushMotionEventsFor:nil
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5672	"/ ].
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5673
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5674	aCursorOrNil notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5675	cursorId := (aCursorOrNil onDevice:device) id.
2583 0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5676	].
0f2e785bf844 checkin from browser Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	5677	device grabPointerIn:drawableId withCursor:cursorId
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5678	!
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5679
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5680	ungrabPointer
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5681	"ungrab the pointer"
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5682
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5683	\|sensor\|
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5684
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5685	(sensor := self sensor) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5686	"/ make certain all X events have been received
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5687	device sync.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5688	"/ now all events have been received.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5689	"/ now, flush all pointer events
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5690	sensor flushMotionEventsFor:self
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5691	].
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5692
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5693	device ungrabPointer.
f010a521d10d grab and ungrab ca parents: 1726 diff changeset	5694
1028 658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5695	! !
658c983e4af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	5696
140 0db355079dc4 . claus parents: 138 diff changeset	5697	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	5698
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5699	componentsContainingX:x y:y do:aBlock
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5700	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5701	components do:[:aComponent \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5702	\|thisFrame\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5703
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5704	thisFrame := aComponent bounds.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5705	(thisFrame containsPointX:x y:y) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5706	aBlock value:aComponent
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5707	value:x - thisFrame left
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5708	value:y - thisFrame top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5709	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5710	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5711	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5712
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5713	"Created: 8.5.1996 / 23:40:59 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5714	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5715
140 0db355079dc4 . claus parents: 138 diff changeset	5716	computeInnerClip
0db355079dc4 . claus parents: 138 diff changeset	5717	"compute, but do not set the inside clip-area"
0db355079dc4 . claus parents: 138 diff changeset	5718
0db355079dc4 . claus parents: 138 diff changeset	5719	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	5720
0db355079dc4 . claus parents: 138 diff changeset	5721	(margin ~~ 0) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5722	m2 := margin + margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5723	nX := nY := margin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5724	nW := width - m2.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5725	nH := height - m2.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5726	"/ transformation notNil ifTrue:[
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5727	"/ nX := transformation applyInverseToX:nX.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5728	"/ nY := transformation applyInverseToY:nY.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5729	"/ nW := transformation applyInverseScaleX:nW.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5730	"/ nH := transformation applyInverseScaleY:nH.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5731	"/ ].
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5732	innerClipRect := Rectangle
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5733	left:nX
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5734	top:nY
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5735	width:nW
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5736	height:nH
140 0db355079dc4 . claus parents: 138 diff changeset	5737	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5738	"no clipping"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5739	innerClipRect := nil
140 0db355079dc4 . claus parents: 138 diff changeset	5740	]
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5741
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5742	"Modified: / 22.5.1999 / 16:50:58 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	5743	!
0db355079dc4 . claus parents: 138 diff changeset	5744
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5745	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5746	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5747
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5748	^ self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5749	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5750
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5751	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5752	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5753
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5754	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5755
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5756	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5757
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5758	bw := borderWidth ? 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5759	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5760	bw == 0 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5761	^ p
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5762	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5763	^ (p x - bw) @ (p y - bw)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5764	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5765	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5766	b := (insets at:4) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5767
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5768	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5769	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5770	"/ r := rightInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5771	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5772	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5773	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5774	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5775	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5776	^ (p x - r) @ (p y - b)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5777	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5778	^ p
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5779
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5780	"Modified: / 1.10.1998 / 13:21:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5781	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5782
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5783	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5784	"compute & return pixel extent from relativeExtent"
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	^ self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5787	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5788
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5789	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5790	"compute & return pixel extent from relativeExtent, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5791
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5792	\|rel newX newY inRect bw2 i\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5793
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5794	superView isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5795	inRect := 0@0 extent:device extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5796	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5797	inRect := superView viewRectangle.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5798	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5799
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5800	bw2 := borderWidth * 2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5801
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5802	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5803	rel isInteger ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5804	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5805	(borderWidth ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5806	newX := newX - borderWidth
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5807	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5808	] ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5809	newX := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5810	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5811
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5812	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5813	rel isInteger ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5814	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5815	(borderWidth ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5816	newY := newY - borderWidth
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5817	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5818	] ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5819	newY := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5820	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5821
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5822	insets notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5823	i := insets at:1. "top"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5824	(i ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5825	newX := newX - i
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5826	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5827	i := insets at:3. "left"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5828	(i ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5829	newX := newX - i
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5830	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5831	i := insets at:2. "right"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5832	(i ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5833	newY := newY - i
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5834	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5835	i := insets at:4. "bottom"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5836	(i ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5837	newY := newY - i
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5838	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5839	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5840	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5841	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5842
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5843	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5844	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5845
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5846	^ self originFromRelativeOrigin:relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5847	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5848
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5849	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5850	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5851
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5852	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5853
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5854	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5855
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5856	insets isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5857	^ p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5858	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5859	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5860	t := insets at:2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5861
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5862	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5863	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5864	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5865	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5866	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5867	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5868	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5869	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5870	^ (p x + l) @ (p y + t)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5871	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5872	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5873	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5874
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5875	pixelCorner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5876	"set the views corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5877
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5878	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5879
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5880	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5881	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5882	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5883
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5884	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5885	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5886
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5887	pixelExtent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5888	"set the views extent in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5889
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5890	self pixelOrigin:(left @ top) extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5891	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5892
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5893	pixelOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5894	"return the views origin in pixels. For subviews. the origin is relative
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5895	to the superviews top-left. For topViews, its the screen origin."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5896
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5897	^ self computeOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5898	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5899
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5900	pixelOrigin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5901	"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	5902	to the superviews top-left. For topViews, its the screen origin."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5903
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5904	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5905
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5906	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5907	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5908	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5909	top := newTop.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5910	left := newLeft.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5911
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5912	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5913	if the receiver is visible, or is a topView, perform the
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5914	operation right away - otherwise, simply remember that the
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5915	origin has changed - will tell the display once we get realized
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5916	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5917	"/ (shown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5918	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5919
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5920	"/ no, have to do it if drawableId is there
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5921	"/ (otherwise, we could not move unmapped views around ...
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5922	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5923	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5924	device moveWindow:drawableId x:left y:top
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5925	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5926	originChanged := true
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	5927	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5928	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5929	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5930
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5931	pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5932	"set the views origin and corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5933
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5934	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5935
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5936	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5937	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5938	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5940	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5941	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5942
140 0db355079dc4 . claus parents: 138 diff changeset	5943	pixelOrigin:origin extent:extent
0db355079dc4 . claus parents: 138 diff changeset	5944	"set the views origin and extent in pixels"
0db355079dc4 . claus parents: 138 diff changeset	5945
0db355079dc4 . claus parents: 138 diff changeset	5946	\|newLeft newTop newWidth newHeight how
0db355079dc4 . claus parents: 138 diff changeset	5947	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
0db355079dc4 . claus parents: 138 diff changeset	5948	mustRepaintRight sameOrigin oldWidth oldHeight\|
0db355079dc4 . claus parents: 138 diff changeset	5949
0db355079dc4 . claus parents: 138 diff changeset	5950	newLeft := origin x.
0db355079dc4 . claus parents: 138 diff changeset	5951	newTop := origin y.
0db355079dc4 . claus parents: 138 diff changeset	5952	sameOrigin := ((newTop == top) and:[newLeft == left]).
0db355079dc4 . claus parents: 138 diff changeset	5953
0db355079dc4 . claus parents: 138 diff changeset	5954	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	5955	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	5956
0db355079dc4 . claus parents: 138 diff changeset	5957	"
0db355079dc4 . claus parents: 138 diff changeset	5958	X complains badly if you try to create/resize a view with
0db355079dc4 . claus parents: 138 diff changeset	5959	a dimension <= 0 ... (although I think that 0 maks sense ...)
0db355079dc4 . claus parents: 138 diff changeset	5960	"
0db355079dc4 . claus parents: 138 diff changeset	5961	newWidth < 1 ifTrue:[
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5962	newWidth := 1.
140 0db355079dc4 . claus parents: 138 diff changeset	5963	].
0db355079dc4 . claus parents: 138 diff changeset	5964	newHeight < 1 ifTrue:[
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5965	newHeight := 1
140 0db355079dc4 . claus parents: 138 diff changeset	5966	].
0db355079dc4 . claus parents: 138 diff changeset	5967
0db355079dc4 . claus parents: 138 diff changeset	5968	((newWidth == width) and:[newHeight == height]) ifTrue:[
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5969	sameOrigin ifTrue:[^ self].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5970	^ self pixelOrigin:origin
140 0db355079dc4 . claus parents: 138 diff changeset	5971	].
0db355079dc4 . claus parents: 138 diff changeset	5972	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	5973	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	5974
0db355079dc4 . claus parents: 138 diff changeset	5975	"/ shown ifTrue:[ "4-nov-94 actually correct,"
0db355079dc4 . claus parents: 138 diff changeset	5976	drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5977	mustRedrawBottomEdge := (level ~~ 0) and:[newHeight < height].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5978	mustRedrawRightEdge := (level ~~ 0) and:[newWidth < width].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5979
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5980	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5981	how := #smaller
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5982	] ifFalse:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5983	((newHeight >= height) and:[newWidth >= width]) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5984	how := #larger
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5985	]
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5986	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5987
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5988	mustRepaintRight := false.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5989	mustRepaintBottom := false.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5990
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5991	oldWidth := width.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5992	oldHeight := height.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5993
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5994	shown ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5995	(level ~~ 0) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5996	"clear the old edges"
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5997
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5998	newWidth > width ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5999	self clippingRectangle:nil.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6000	self paint:viewBackground.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6001	self fillDeviceRectangleX:(width - margin)
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6002	y:0
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6003	width:margin
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6004	height:height.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6005	mustRepaintRight := true.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6006	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6007	newHeight > height ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6008	self clippingRectangle:nil.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6009	self paint:viewBackground.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6010	self fillDeviceRectangleX:0
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6011	y:(height - margin)
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6012	width:width
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6013	height:margin.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6014	mustRepaintBottom := true.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6015	]
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6016	]
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6017	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6018
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6019	width := newWidth.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6020	height := newHeight.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6021
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6022	self setInnerClip.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6023
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6024	"if view becomes smaller, send sizeChanged first"
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6025	(how == #smaller) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6026	self sizeChanged:how
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6027	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6028
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6029	"have to tell X, when extent of view is changed"
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6030	sameOrigin ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6031	device resizeWindow:drawableId width:width height:height.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6032
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6033	] ifFalse:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6034	"claus: some xservers seem to do better when resizing
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6035	first ...."
140 0db355079dc4 . claus parents: 138 diff changeset	6036	"
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6037	(how == #smaller) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6038	device resizeWindow:drawableId width:width height:height.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6039	device moveWindow:drawableId x:left y:top
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6040	] ifFalse:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6041	device moveResizeWindow:drawableId x:left y:top width:width height:height
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6042	].
140 0db355079dc4 . claus parents: 138 diff changeset	6043	"
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6044	device moveResizeWindow:drawableId x:left y:top
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6045	width:width height:height.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6046	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6047
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6048	"if view becomes bigger, send sizeChanged after"
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6049	(how ~~ #smaller) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6050	self sizeChanged:how
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6051	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6052
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6053	shown ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6054	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6055	self deviceClippingRectangle:nil.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6056	mustRedrawBottomEdge ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6057	self drawBottomEdge
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6058	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6059	mustRedrawRightEdge ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6060	self drawRightEdge
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6061	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6062	self deviceClippingRectangle:innerClipRect
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6063	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6064	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6065
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6066	mustRepaintRight ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6067	self invalidateDeviceRectangle:(((oldWidth - margin) @ 0)
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6068	extent:margin@height)
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6069	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6070	"/ self redrawDeviceX:(oldWidth - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6071	"/ y:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6072	"/ width:margin
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6073	"/ height:height.
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6074	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6075	mustRepaintBottom ifTrue:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6076	self invalidateDeviceRectangle:((0 @ (oldHeight - margin))
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6077	extent:width@margin)
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6078	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6079	"/ self redrawDeviceX:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6080	"/ y:(oldHeight - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6081	"/ width:width
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6082	"/ height:margin.
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6083	].
140 0db355079dc4 . claus parents: 138 diff changeset	6084	] ifFalse:[
2960 9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6085	"otherwise memorize the need for a sizeChanged message"
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6086
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6087	width := newWidth.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6088	height := newHeight.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6089	sameOrigin ifFalse:[
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6090	originChanged := true.
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6091	].
9c8cb25496fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	6092	extentChanged := true
140 0db355079dc4 . claus parents: 138 diff changeset	6093	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	6094
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6095	"Modified: / 25.5.1999 / 14:49:56 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6096	!
0db355079dc4 . claus parents: 138 diff changeset	6097
0db355079dc4 . claus parents: 138 diff changeset	6098	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	6099	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	6100
0db355079dc4 . claus parents: 138 diff changeset	6101	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	6102
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6103	bw := borderWidth ? 0.
140 0db355079dc4 . claus parents: 138 diff changeset	6104
0db355079dc4 . claus parents: 138 diff changeset	6105	superView isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6106	superWidth := device width + bw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6107	superHeight := device height + bw.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6108	superLeft := superTop := 0.
140 0db355079dc4 . claus parents: 138 diff changeset	6109	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6110	inRect := superView viewRectangle.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6111	superWidth := inRect width.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6112	superHeight := inRect height.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6113	superLeft := inRect left.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6114	superTop := inRect top.
140 0db355079dc4 . claus parents: 138 diff changeset	6115	].
0db355079dc4 . claus parents: 138 diff changeset	6116
0db355079dc4 . claus parents: 138 diff changeset	6117	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	6118	rel isInteger ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6119	newX := rel
140 0db355079dc4 . claus parents: 138 diff changeset	6120	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6121	newX := (rel * superWidth) asInteger + superLeft.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6122	(bw ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6123	rel ~= 1.0 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6124	newX := newX - bw
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6125	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6126	]
140 0db355079dc4 . claus parents: 138 diff changeset	6127	].
0db355079dc4 . claus parents: 138 diff changeset	6128
0db355079dc4 . claus parents: 138 diff changeset	6129	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	6130	rel isInteger ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6131	newY := rel
140 0db355079dc4 . claus parents: 138 diff changeset	6132	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6133	newY := (rel * superHeight) asInteger + superTop.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6134	(bw ~~ 0) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6135	rel ~= 1.0 ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6136	newY := newY - bw
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6137	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6138	]
140 0db355079dc4 . claus parents: 138 diff changeset	6139	].
0db355079dc4 . claus parents: 138 diff changeset	6140	^ newX @ newY
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6141
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6142	"Modified: / 1.10.1998 / 13:21:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6143	!
0db355079dc4 . claus parents: 138 diff changeset	6144
0db355079dc4 . claus parents: 138 diff changeset	6145	setBorderColor
0db355079dc4 . claus parents: 138 diff changeset	6146	"set my borderColor"
0db355079dc4 . claus parents: 138 diff changeset	6147
0db355079dc4 . claus parents: 138 diff changeset	6148	\|id dither\|
0db355079dc4 . claus parents: 138 diff changeset	6149
0db355079dc4 . claus parents: 138 diff changeset	6150	drawableId notNil ifTrue:[
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6151	borderColor := borderColor onDevice:device.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6152	id := borderColor colorId.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6153	id notNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6154	device setWindowBorderColor:id in:drawableId
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6155	] ifFalse:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6156	dither := borderColor ditherForm.
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6157	dither notNil ifTrue:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6158	device setWindowBorderPixmap:(dither id) in:drawableId
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6159	] ifFalse:[
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6160	'SimpleView [warning]: bad borderColor' errorPrintCR
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6161	]
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6162	]
135 cf8e46015072 . claus parents: diff changeset	6163	]
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	6164
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	6165	"Modified: 10.1.1997 / 18:06:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	6166	!
cf8e46015072 . claus parents: diff changeset	6167
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6168	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6169	"compute, and set the inside clip-area"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6170
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6171	self computeInnerClip.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6172	self deviceClippingRectangle:innerClipRect.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6173
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6174	"Modified: / 25.5.1999 / 14:45:53 / cg"
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6175	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6176
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6177	setViewShape
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6178	\|form\|
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6179
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6180	(form := viewShape borderShapeForm) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6181	device setWindowBorderShape:(form id) in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6182	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6183	(form := viewShape viewShapeForm) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6184	device setWindowShape:(form id) in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6185	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6186
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6187	"Created: 18.9.1997 / 11:09:00 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6188	! !
0db355079dc4 . claus parents: 138 diff changeset	6189
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6190	!SimpleView methodsFor:'queries'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6191
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6192	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6193	"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	6194	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	6195	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6196
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6197	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6198	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6199
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6200	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6201	"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	6202	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6203	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	6204	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6205
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6206	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6207	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6208
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6209	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6210	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6211
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6212	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6213	^ delegate delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6214	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6215
1748 24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6216	focusSequence
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6217	"return nil - for compatibility with StdSysView & SubCanvas.
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6218	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	6219	focusSequence may redefine this to return a list of their components."
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6220
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6221	^ nil
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6222	!
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	6223
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6224	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6225	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6226	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6227	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6228
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6229	\|focusView delegate\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6230
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6231	windowGroup isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6232
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6233	(focusView := windowGroup focusView) == self ifTrue:[^ true].
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6234
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6235	focusView notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6236	"mhmh - is there a delegation to me ?"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6237	(delegate := focusView delegate) notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6238	delegate == self ifTrue:[^ true].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6239	^ delegate delegatesTo:self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6240	]
135 cf8e46015072 . claus parents: diff changeset	6241	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6242	^ false
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
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6245	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6246	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6247	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6248
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6249	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6250	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	6251
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	6252	isBorderedWrapper
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	6253	^ false
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	6254
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	6255	"Created: 5.6.1996 / 14:11:15 / cg"
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	6256	!
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	6257
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6258	isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6259	"return true, if I am a (direct or indirect) component of aViewOrComponent"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6260
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6261	aViewOrComponent == self isNil ifTrue:[^ true].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6262	superView isNil ifTrue:[^ false].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6263	superView == aViewOrComponent ifTrue:[^ true].
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6264	^ superView isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6265
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6266	"Created: 5.6.1996 / 14:23:57 / cg"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6267	"Modified: 5.6.1996 / 14:26:14 / cg"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6268	!
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6269
2496 f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6270	isDefault
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6271	"return true, if I am a default widget;
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6272	Used with autoAccept. Currently only default buttons are supposed to return
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6273	true here"
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6274
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6275	^ false
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6276	!
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	6277
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	6278	isExternalTopView
2454 f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	6279	"return true, if this is an external topView - always false here"
f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	6280
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	6281	^ false
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	6282
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	6283
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	6284	!
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	6285
497 5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6286	isInputField
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6287	"return true, if the receiver is some kind of input view,
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6288	i.e. it should (can) be part of an enterGroup.
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6289	Return false here, this is redefined in EnterField."
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6290
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6291	^ false
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6292
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6293	"Created: 4.3.1996 / 11:34:07 / cg"
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6294	!
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	6295
2410 050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	6296	isJavaView
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	6297	^ false
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	6298
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	6299	"Created: / 4.12.1998 / 14:10:06 / cg"
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	6300	!
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	6301
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6302	isKeyboardConsumer
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	6303	"return true, if the receiver is a keyboard consumer;
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6304	i.e. it can handle (non-shortkey) keyboard input,
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6305	keyboardConsumer are potential candidates for getting the keyboard
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6306	focus initially within dialogBoxes, or when the focus-follows-pointer
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6307	mode is off.
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6308	Return false here, this is redefined in EditTextView and EditField."
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6309
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6310	^ false
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	6311
2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	6312	"Modified: / 22.5.1999 / 16:19:27 / cg"
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6313	!
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	6314
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6315	isLayoutWrapper
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6316	^ false
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6317
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6318	"Created: 19.7.1996 / 17:51:04 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6319	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6320
2161 46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6321	isScrollWrapper
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6322	^ false
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6323
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6324	"Created: / 5.6.1996 / 14:11:15 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6325	"Modified: / 20.6.1998 / 14:15:29 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6326	!
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	6327
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6328	isSubViewOf:aView
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6329	"return true, if I am a (direct or indirect) subview of aView"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6330
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6331	self obsoleteMethodWarning:'use #isComponentOf:'.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6332	^ self isComponentOf:aView.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6333
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	6334	"Modified: 5.6.1996 / 14:25:35 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6335	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6336
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6337	isWrapper
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6338	^ false
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6339
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6340	"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	6341	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6342
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6343	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6344	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6345
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	6346	^ 0@0 extent:(self preferredExtent)
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	6347
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	6348	"Modified: 19.7.1996 / 20:41:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6349	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6350
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6351	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6352	"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	6353	If the preferredExtent has been set, that one is returned.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6354	Otherwise, if there are any components, a rectangle enclosing them
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6355	is returned. Otherwise, the actual extent is returned."
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6356
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	6357	\|maxX maxY\|
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6358
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	6359	"/ If I have an explicit preferredExtent ..
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	6360
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6361	preferredExtent notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6362	^ preferredExtent
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6363	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6364
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6365	"/ mhmh - if I have subViews, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6366	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6367
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6368	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6369	maxX := maxY := 0.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6370	subViews do:[:aSubView \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6371	\|org corn\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6372
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6373	org := aSubView computeOrigin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6374	corn := org + aSubView preferredExtent.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6375	maxX := maxX max:corn x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6376	maxY := maxY max:corn y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6377	]
140 0db355079dc4 . claus parents: 138 diff changeset	6378	].
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6379
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6380	"/ mhmh - if I have components, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6381	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6382
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6383	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6384	maxX isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6385	maxX := maxY := 0.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6386	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6387	components do:[:aComponent \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6388	\|bounds org corn\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6389
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6390	bounds := aComponent preferredBounds.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6391	corn := bounds corner.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6392	maxX := maxX max:corn x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6393	maxY := maxY max:corn y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6394	]
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6395	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6396
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6397	"/ nothing found - return the actual size
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6398
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6399	maxX isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6400	^ self extent.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6401	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6402
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6403	^ maxX @ maxY.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	6404
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	6405	"Modified: 19.7.1996 / 20:43:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6406	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6407
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6408	reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6409	"return true, if the receiver is realized and all containers
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6410	are realized."
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6411
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6412	realized ifFalse:[^ false].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6413	superView isNil ifTrue:[^ true].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6414	^ superView reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6415
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6416
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6417	!
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	6418
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	6419	resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	6420	^ resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	6421
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	6422	"Created: / 25.5.1998 / 13:00:02 / cg"
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	6423	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	6424
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6425	sizeFixed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6426	"return true, if this vew wants its size to remain unchanged.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6427	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	6428
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6429	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6430
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6431	"Created: 17.9.1995 / 20:29:20 / claus"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6432	! !
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6433
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6434	!SimpleView methodsFor:'queries - events'!
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6435
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6436	buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6437	"return true, if a button motion event is pending.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6438	Normally, you dont want to use this, since no polling is needed
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6439	(not even for mouse-tracking).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6440	Actually, its a historical leftover"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6441
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6442	windowGroup notNil ifTrue:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6443	^ windowGroup sensor hasButtonMotionEventFor:self
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6444	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6445	^ super buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6446
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6447	"Modified: 1.11.1996 / 17:04:38 / cg"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6448	! !
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	6449
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6450	!SimpleView methodsFor:'queries - internal'!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6451
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6452	nativeWindowType
1702 ba153bb6400b * empty log message * Claus Gittinger <cg@exept.de> parents: 1699 diff changeset	6453	"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	6454	(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	6455
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6456	^ nil
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6457	!
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6458
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6459	specClass
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6460	"fallback - heuristics to get a specClass for some viewClass.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6461	Based upon my className, look for a corresponding Spec-class.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6462	If there is none, return ArbiraryComponentSpec as a fallBack"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6463
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6464	\|myClass myName cls\|
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6465
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6466	((myClass := self class) == View
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6467	or:[myClass == SimpleView]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6468	^ ViewSpec "/ CompositeSpecCollection
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6469	].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6470
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6471	"/ try: appending 'Spec' to my classes name
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	6472
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6473	myName := self class name.
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6474	cls := Smalltalk classNamed:(myName , 'Spec').
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6475	cls notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6476	cls isLoaded ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6477	cls autoload
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6478	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6479	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6480	].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6481
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6482	(myName endsWith:'View') ifTrue:[
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6483	"/ "/ try name without 'View'
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6484	"/ cls := Smalltalk classNamed:(myName copyWithoutLast:4).
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6485	"/ (cls notNil and:[cls isLoaded not]) ifTrue:[
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6486	"/ cls autoload
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6487	"/ ].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6488	"/ (cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6489
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6490	"/ try with 'View' replaced by 'Spec'
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6491	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6492	cls notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6493	cls isLoaded ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6494	cls autoload
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6495	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6496	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6497	]
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6498	].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6499
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6500	"/ fallBack for all others
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6501	^ ArbitraryComponentSpec
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6502
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6503	"/ self error:'no spec class (subclassResponsibility)'
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6504
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6505	"
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6506	FramedBox new specClass
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	6507	"
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	6508
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6509	"Modified: / 31.10.1997 / 19:44:55 / cg"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6510	!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6511
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6512	windowStyle
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6513	"return a symbol describing my style"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6514
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6515	self isPopUpView ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6516	^ #popUp
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6517	].
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6518
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6519	^ #normal
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6520
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6521	"Created: 2.5.1997 / 14:29:48 / cg"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	6522	"Modified: 2.5.1997 / 14:30:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6523	! !
0db355079dc4 . claus parents: 138 diff changeset	6524
0db355079dc4 . claus parents: 138 diff changeset	6525	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	6526
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6527	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6528	"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	6529	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	6530
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6531	drawableId isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6532	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6533	make certain that superview is created also
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6534	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6535	superView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6536	superView view create.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6537
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6538	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6539	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6540	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6541	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6542	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6543	"/ ]
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6544	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6545	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6546	"/ if the display is not already dispatching events,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6547	"/ this starts the event process.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6548	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6549	device startDispatch
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6550	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6551
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6552	cursor notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6553	cursor := cursor onDevice:device.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6554	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6555
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6556	explicitExtent ~~ true ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6557	self resize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6558	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6559
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6560	self physicalCreate.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6561
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6562	viewBackground notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6563	self setViewBackground
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6564	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6565
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6566	self initializeMiddleButtonMenu.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6567	self initEvents.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6568
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6569	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6570	this is the first create,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6571	force sizechange messages to be sent to the view
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6572	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6573	extentChanged := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6574	originChanged := true
151 8123ec03c52f . claus parents: 145 diff changeset	6575	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6576
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	6577	"Modified: 28.3.1997 / 13:50:17 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	6578	!
8123ec03c52f . claus parents: 145 diff changeset	6579
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6580	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6581	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6582
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6583	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6584	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6585	subViews do:[:subView \| subView createWithAllSubViews]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6586	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6587	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6588
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6589	fetchDeviceResources
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6590	"fetch all device specific resources. This is invoked,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6591	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	6592	time, to allocate device specific colors, fonts, bitmaps etc.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6593	The view may keep those in instance variables, to avoid reallocating
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6594	those with every redraw.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6595	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	6596	but possibly slower, since resources are reallocated over and over.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6597	If you redefine this method, make certain that 'super fetchDeviceResources'
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6598	is always sent."
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6599
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6600	shadowColor notNil ifTrue:[shadowColor := shadowColor onDevice:device].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6601	lightColor notNil ifTrue:[lightColor := lightColor onDevice:device].
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6602
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6603	"Created: 13.1.1997 / 21:51:59 / cg"
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6604	!
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6605
140 0db355079dc4 . claus parents: 138 diff changeset	6606	fixSize
0db355079dc4 . claus parents: 138 diff changeset	6607	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	6608	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	6609	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	6610	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	6611	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	6612
151 8123ec03c52f . claus parents: 145 diff changeset	6613	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	6614
8123ec03c52f . claus parents: 145 diff changeset	6615	"
8123ec03c52f . claus parents: 145 diff changeset	6616	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	6617	"
8123ec03c52f . claus parents: 145 diff changeset	6618	layout notNil ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6619	(originChanged or:[extentChanged or:[cornerChanged]]) ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6620	r := (layout rectangleRelativeTo:(superView viewRectangle)
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6621	preferred:[self preferredBounds]).
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6622	org := r origin rounded.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6623	ext := r extent rounded.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6624	self pixelOrigin:org extent:ext.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6625	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6626	^ self.
151 8123ec03c52f . claus parents: 145 diff changeset	6627	].
8123ec03c52f . claus parents: 145 diff changeset	6628
140 0db355079dc4 . claus parents: 138 diff changeset	6629	"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	6630	"/ extentChanged ifTrue:[
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6631	"/ self sizeChanged:nil.
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6632	"/ extentChanged := false
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6633	"/ ].
140 0db355079dc4 . claus parents: 138 diff changeset	6634
0db355079dc4 . claus parents: 138 diff changeset	6635	originChanged ifTrue:[
0db355079dc4 . claus parents: 138 diff changeset	6636	"/ org := self computeOrigin.
0db355079dc4 . claus parents: 138 diff changeset	6637	"/ self pixelOrigin:org.
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6638	originRule notNil ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6639	self pixelOrigin:self computeOrigin
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6640	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6641	relativeOrigin notNil ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6642	self originFromRelativeOrigin:relativeOrigin
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6643	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6644	shown ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6645	device moveWindow:drawableId x:left y:top.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6646	] ifFalse:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6647	self pixelOrigin:left@top
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6648	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6649	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6650	].
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	6651	originChanged := false
140 0db355079dc4 . claus parents: 138 diff changeset	6652	]
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6653
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	6654	"Modified: 18.6.1996 / 21:44:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6655	!
0db355079dc4 . claus parents: 138 diff changeset	6656
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6657	hide
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6658	"only useful with modal views: hide the view and return control
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6659	back to the suspended main view. Ignored for non-modal views."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6660
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	6661	\|masterGroup\|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6662
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6663	realized ifFalse:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6664	windowGroup isNil ifTrue:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6665	windowGroup isModal ifFalse:[^ self].
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	6666	masterGroup := windowGroup previousGroup.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6667
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6668	windowGroup notNil ifTrue:[windowGroup focusView:nil].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6669
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6670	self unmap.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6671	device flush.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	6672
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	6673	masterGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6674	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6675	this is a kludge for IRIS and others which do not provide backingstore:
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6676	when we hide a modalbox (such as a searchbox) which covered
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6677	a scrollbar, the scrollbars bitblt-method will copy from the
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6678	not-yet redrawn area - effectively clearing the scroller.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6679	We need a short delay here, since at this time, the expose event has
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6680	not yet arrived.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6681	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6682	Delay waitForSeconds:0.05.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6683	masterGroup processExposeEvents
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	6684	].
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	6685
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	6686	"/ WindowGroup leaveSignal raise.
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	6687	"/ "/ not reached
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	6688	"/ ^ self
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6689	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6690
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6691	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6692	"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	6693	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6694
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6695	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6696	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	6697
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6698	map
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6699	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6700	For topViews, the windowManager will choose (or ask for) the
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	6701	views position on the screen.
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	6702	Notice:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6703	Actually, this method is only valid for topViews;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6704	however, it is defined here to allow things like 'Button new realize'"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6705
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6706	self mapAt:nil iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6707
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6708	"Modified: 24.7.1997 / 13:44:25 / cg"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6709	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6710
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6711	mapAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6712	"make the view visible on the screen.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6713	For topViews, if aPoint is nonNil, the views origin is located there
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	6714	(unless you have a dictator as windowManager ;-)
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	6715	Notice:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6716	Actually, this method is only valid for topViews;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6717	however, it is defined here to allow things like 'Button new realize'"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6718
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6719	self mapAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6720
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6721	"Modified: 24.7.1997 / 13:45:02 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6722	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6723
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6724	mapAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6725	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6726	For topViews, if aPoint is nonNil, the views origin is located there
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6727	(unless you have a dictator as windowManager ;-).
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	6728	If the iconified argument is true, the window is created as icon initially.
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	6729	Notice:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6730	Actually, this method is only valid for topViews;
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6731	however, it is defined here to allow things like 'Button new realize'"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6732
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6733	\|subs\|
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	6734
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6735	realized ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6736	drawableId isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6737	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6738	first time ?
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6739	yes, realize (implies a map)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6740	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6741	self realizeKeepingGroup:false at:aPoint iconified:iconified
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6742	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6743	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6744	no, map only
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6745	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6746	realized := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6747	aPoint isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6748	iconified ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6749	device
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6750	mapView:self id:drawableId iconified:iconified
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6751	atX:0 y:0
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6752	width:width height:height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6753	minExtent:(self minExtent) maxExtent:(self maxExtent).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6754	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6755	device mapWindow:drawableId.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6756	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6757	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6758	left := aPoint x.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6759	top := aPoint y.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6760	device
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6761	mapView:self id:drawableId iconified:iconified
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6762	atX:left y:top
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6763	width:width height:height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6764	minExtent:(self minExtent) maxExtent:(self maxExtent).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6765	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6766
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6767	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6768	"/ implies that all realized subviews
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6769	"/ are now also mapped
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6770	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6771	"/ not needed for topViews - the mapped event does exactly the same
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6772	"/ however, X does not generate mapped events for non-topViews
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6773	"/ when a view gets deiconified.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6774
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6775	superView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6776	(subs := self subViews) notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6777	subs do:[:v \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6778	v shown ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6779	v mapped
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6780	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6781	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6782	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6783	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6784	].
140 0db355079dc4 . claus parents: 138 diff changeset	6785	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	6786
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	6787	"Modified: 23.8.1996 / 14:53:55 / stefan"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6788	"Created: 24.7.1997 / 13:43:23 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6789	"Modified: 24.7.1997 / 13:46:21 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6790	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6791
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6792	mapIconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6793	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6794	For topViews, the view is created in iconified state"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6795
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6796	self mapAt:nil iconified:true
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6797
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6798	"Modified: 24.7.1997 / 13:44:25 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6799	"Created: 24.7.1997 / 13:47:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6800	!
0db355079dc4 . claus parents: 138 diff changeset	6801
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6802	physicalCreate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6803	"common code for create & recreate:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6804	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6805
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6806	\|sv org ret isInputOnly\|
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6807
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6808	sv := superView isNil ifTrue:[superView] ifFalse:[superView view].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6809
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6810	"/ give global eventListeners a chance to intercept windowCreation
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6811	"/ and provide another origin (by payching my origin via setOrigin:).
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6812	WindowSensor preViewCreateNotification:self.
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6813
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6814	org := (left @ top).
d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6815
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	6816	isInputOnly := self isInputOnly.
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	6817
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6818	drawableId := device
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6819	createWindowFor:self
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6820	type:nil
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6821	origin:org
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6822	extent:(width @ height)
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6823	minExtent:nil
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6824	maxExtent:nil
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6825	borderWidth:borderWidth
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6826	subViewOf:sv
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6827	style:(self windowStyle)
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6828	inputOnly:isInputOnly
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6829	label:nil
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6830	owner:nil
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6831	icon:nil iconMask:nil
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6832	iconView:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6833
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6834	Lobby registerChange:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6835
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6836	"/ if there is a global eventListener,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6837	"/ give it a chance to track views
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6838
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6839	"/ give global listeners a chance to track views
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6840	WindowSensor postViewCreateNotification:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	6841
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6842	extentChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6843	originChanged := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6844
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	6845	(borderColor notNil and:[borderColor ~= Black]) ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6846	isInputOnly ifFalse:[
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	6847	"/ borderColor := borderColor on:device.
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6848	self setBorderColor
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6849	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6850	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6851	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6852	device setWindowGravity:viewGravity in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6853	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6854	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6855	isInputOnly ifFalse:[
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6856	device setBitGravity:bitGravity in:drawableId
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6857	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6858	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6859	viewShape notNil ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6860	self setViewShape
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	(backed notNil and:[backed ~~ false]) ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6863	device setBackingStore:backed in:drawableId
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	saveUnder ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6866	device setSaveUnder:true in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	6867	].
1960 aa9ef6e21f15 * empty log message * Claus Gittinger <cg@exept.de> parents: 1943 diff changeset	6868	cursor notNil ifTrue:[
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	6869	self setCursor
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	6870	].
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	6871
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	6872	"Modified: / 9.4.1998 / 20:18:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6873	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6874
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6875	postRealize
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6876	"invoked after a view was realized.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6877	Can be redefined in subclasses to perform delayed actions."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6878
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6879	"/ nothing done here
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6880
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6881	"Created: 24.7.1997 / 14:35:36 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6882	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	6883
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6884	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6885	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6886	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6887	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6888
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6889	self realizeKeepingGroup:false at:nil iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6890
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6891	"Modified: 24.7.1997 / 13:14:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6892	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6893
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6894	realizeAllSubViews
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6895	"realize all my subviews - but not myself."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6896
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6897	subViews notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6898	subViews do:[:subView \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6899	subView realize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6900	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6901	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6902	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6903	components do:[:component \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6904	component realize
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6905	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6906	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6907
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6908	"Modified: 5.9.1995 / 23:30:47 / claus"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6909	"Modified: 13.1.1997 / 21:25:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6910	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6911
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6912	realizeAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6913	"realize - make visible;
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6914	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	6915	visible rearranging of windows on the screen"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6916
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6917	self realizeKeepingGroup:false at:aPoint iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6918
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6919	"Modified: 24.7.1997 / 13:14:28 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6920	"Created: 24.7.1997 / 13:21:04 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6921	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6922
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6923	realizeInGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6924	"special realize - leave windowgroup as is;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6925	This allows a view to be realized in any windowgroup;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6926	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	6927	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	6928
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6929	windowGroup isForModalSubview:true.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6930	"/ self realize.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6931
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6932	self realizeKeepingGroup:true at:nil iconified:false
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6933
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6934	"Modified: 20.8.1997 / 14:56:20 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6935	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6936
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6937	realizeKeepingGroup:keepGroupAsIs at:position iconified:iconified
151 8123ec03c52f . claus parents: 145 diff changeset	6938	"common helper for realize and realizeInGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6939	Create the view; if the keepGroupAsIs argument is not true,
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6940	assign my windowGroup."
140 0db355079dc4 . claus parents: 138 diff changeset	6941
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6942	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	6943
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6944	"/ fetch device colors, to avoid reallocation at redraw time
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6945	self fetchDeviceResources.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	6946
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	6947	drawableId isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6948	self create.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6949	drawableId isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6950	('SimpleView [warning]: could not create view: ' , self class name) errorPrintCR.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6951	^ self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6952	]
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	6953	].
140 0db355079dc4 . claus parents: 138 diff changeset	6954
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	6955	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6956
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6957	(windowGroup notNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6958	and:[superView isNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	6959	and:[windowGroup isForModalSubview]]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6960	keep := true.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6961	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6962	keep := keepGroupAsIs
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6963	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6964
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	6965	keep ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6966	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6967	put myself into superviews windowgroup if there is a superview
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6968	This is the default behavior, which may be suppressed by
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6969	passing true as keepGroupAsIs-argument.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6970	(it may be useful to assign a separate windowGroup to
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6971	a childView to have it execute independent of the parent
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6972	-> an example is found in the fileBrowsers kill-button)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6973	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6974	superView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6975	superGroup := superView windowGroup.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6976	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6977	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6978	mhmh - seems that the windowgroup has changed ....
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6979	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	6980	"/ 'oops - wgroup change on realize' printNL.
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6981	groupChange := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6982
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6983	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6984	"/ recursively change the windowGroup of
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6985	"/ myself and all of my children
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6986	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6987	self windowGroup:superGroup.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6988	] ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6989	windowGroup isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6990	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6991	"/ only change the group of myself -
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6992	"/ subviews will fetch it when realized.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6993	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6994	windowGroup := superGroup.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6995	superGroup notNil ifTrue:[superGroup addView:self].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6996	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6997	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	6998	].
140 0db355079dc4 . claus parents: 138 diff changeset	6999	].
0db355079dc4 . claus parents: 138 diff changeset	7000
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	7001	(originChanged or:[extentChanged]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7002	self fixSize.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7003	self sizeChanged:nil. "/ new 29-aug-1995
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7004	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7005	position notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7006	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	7007	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	7008
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	7009	(subViews notNil or:[components notNil]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7010	(realized not or:[groupChange]) ifTrue:[
2558 9639b8a1c166 do not realize children if inVisible. tm parents: 2549 diff changeset	7011	hiddenOnRealize ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7012	self realizeAllSubViews.
2558 9639b8a1c166 do not realize children if inVisible. tm parents: 2549 diff changeset	7013	].
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7014	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7015	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	7016
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7017	iconified ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7018	realized ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7019	self mapIconified
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7020	]
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7021	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7022	hiddenOnRealize ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7023	self setInnerClip.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7024
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7025	realized ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7026	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7027	now, make the view visible
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7028	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7029	self mapAt:position
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7030	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7031	]
140 0db355079dc4 . claus parents: 138 diff changeset	7032	].
0db355079dc4 . claus parents: 138 diff changeset	7033
0db355079dc4 . claus parents: 138 diff changeset	7034	controller notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7035	controller startUp
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7036	].
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7037
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7038	self postRealize
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7039
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	7040	"Modified: / 23.8.1996 / 15:07:16 / stefan"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	7041	"Created: / 24.7.1997 / 13:10:17 / cg"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	7042	"Modified: / 27.7.1998 / 20:01:02 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7043	!
0db355079dc4 . claus parents: 138 diff changeset	7044
0db355079dc4 . claus parents: 138 diff changeset	7045	recreate
0db355079dc4 . claus parents: 138 diff changeset	7046	"recreate (i.e. tell X about me) after a snapin"
0db355079dc4 . claus parents: 138 diff changeset	7047
0db355079dc4 . claus parents: 138 diff changeset	7048	drawableId isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7049	super recreate.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7050	self physicalCreate.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7051
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7052	viewBackground notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7053	self setViewBackground
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7054	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7055
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7056	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7057	XXX has to be changed: eventmasks are device specific -
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7058	XXX will not allow restart on another Workstation-type.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7059	XXX event masks must become symbolic
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7060	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7061	device setEventMask:eventMask in:drawableId
140 0db355079dc4 . claus parents: 138 diff changeset	7062	]
0db355079dc4 . claus parents: 138 diff changeset	7063	!
0db355079dc4 . claus parents: 138 diff changeset	7064
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7065	remap
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7066	"make the view visible on the screen at its previous position.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7067	In contrast to map, this asks the windowManager to show the view
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7068	immediately (instead of asking for a frame). However, some windowManagers
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7069	are known to ignore this ..."
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7070
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7071	realized ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7072	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7073	now, make the view visible
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7074	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7075	realized := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7076	device
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7077	mapView:self id:drawableId iconified:false
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7078	atX:left y:top width:width height:height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7079	minExtent:(self minExtent) maxExtent:(self maxExtent)
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7080	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7081
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7082	"Created: 8.5.1996 / 09:33:06 / cg"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	7083	"Modified: 25.2.1997 / 22:44:33 / cg"
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7084	!
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7085
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7086	rerealize
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7087	"rerealize at old position in (a possibly different) windowGroup."
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7088
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7089	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7090
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7091	self rerealizeInGroup:windowGroup.
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7092
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7093	"Created: 7.11.1996 / 16:27:09 / cg"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7094	"Modified: 13.1.1997 / 21:53:18 / cg"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7095	!
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	7096
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7097	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7098	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7099
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7100	drawableId isNil ifTrue:[self create].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7101	drawableId notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7102	aWindowGroup ~~ windowGroup ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7103	windowGroup notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7104	windowGroup removeView:self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7105	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7106	windowGroup := aWindowGroup.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7107	aWindowGroup addTopView:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7108	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7109	self remap.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7110	]
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	7111
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	7112	"Modified: 3.5.1996 / 23:59:30 / stefan"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	7113	"Modified: 28.7.1997 / 18:53:01 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7114	!
0db355079dc4 . claus parents: 138 diff changeset	7115
0db355079dc4 . claus parents: 138 diff changeset	7116	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	7117	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	7118
0db355079dc4 . claus parents: 138 diff changeset	7119	drawableId notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7120	realized := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7121	self realizeAllSubViews.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7122	device
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7123	mapView:self id:drawableId iconified:false
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7124	atX:left y:top width:width height:height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7125	minExtent:(self minExtent) maxExtent:(self maxExtent)
140 0db355079dc4 . claus parents: 138 diff changeset	7126	]
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	7127
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	7128	"Modified: 28.1.1997 / 17:59:28 / cg"
180 0b3a8658d55e . claus parents: 176 diff changeset	7129	!
0b3a8658d55e . claus parents: 176 diff changeset	7130
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7131	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7132	"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	7133	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	7134	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	7135
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	7136	explicitExtent ~~ true ifTrue:[
2917 5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	7137	layout isNil ifTrue:[
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	7138	self extent:(self preferredExtent).
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	7139	explicitExtent := false.
5d060db4ea81 Speedup Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	7140	].
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	7141	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	7142
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	7143	"Modified: 15.7.1996 / 11:20:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7144	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7145
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7146	unmap
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	7147	"unmap the view - the view stays created (but invisible), and can be remapped again later."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7148
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7149	realized ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7150	realized := false.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7151	drawableId notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7152	device unmapWindow:drawableId
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7153	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7154
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7155	"/ cg: used to clear shown here,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7156	"/ but this is not correct with X, where the
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7157	"/ unmap is an asyncronous operation.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7158	"/ (must wait for unmapped event to clear shown)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7159
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7160	shown := false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7161	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	7162
4c49bdd5b80f . claus parents: 189 diff changeset	7163	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7164	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7165
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7166	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7167	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7168
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7169	sub := View
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7170	origin:0.2@0.2
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7171	corner:0.8@0.8
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7172	in:top.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7173
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7174	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7175	sub hiddenOnRealize:true.
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	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7178	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7179	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7180	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7181	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7182	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7183	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7184	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	7185	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	7186
2465 193a96bd94d7 clear shown when unmapped notification arrives Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	7187	"Modified: / 22.2.1999 / 20:10:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7188	!
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	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7191	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7192
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	7193	self obsoleteMethodWarning:'use unmap'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7194	self unmap.
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	7195
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	7196	"Modified: 4.5.1996 / 00:07:48 / stefan"
151 8123ec03c52f . claus parents: 145 diff changeset	7197	! !
8123ec03c52f . claus parents: 145 diff changeset	7198
8123ec03c52f . claus parents: 145 diff changeset	7199	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	7200
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7201	flash
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7202	"flash the view - fill it black, then white, finally
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7203	redraw completely.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7204	Can be used to wakeup the user :-)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7205	when problem or warning conditions arise.
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	7206	Someone may redefine this to flash its contents (instead of black/white)."
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7207
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7208	self fill:Black.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7209	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7210	self fill:White.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7211	Delay waitForSeconds:0.1.
2173 0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	7212	self fill:viewBackground.
0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	7213	"/ self clear.
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7214	self invalidate
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7215
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7216	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7217	\|v\|
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7218
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7219	v := View new openAndWait.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7220	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7221	v flash.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7222	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7223	v destroy
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7224	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7225
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	7226	"Modified: / 16.7.1998 / 18:46:48 / cg"
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7227	!
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	7228
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7229	invalidate
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7230	"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	7231	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	7232	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	7233	multiple damage rectangles into single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7234	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	7235	intil the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7236
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7237	\|sensor\|
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7238
2489 f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	7239	"/ not needed - event queue does it anyway
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	7240	"/ (sensor := self sensor) notNil ifTrue:[
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	7241	"/ sensor flushExposeEventsFor:self.
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	7242	"/ ].
2451 c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	7243	self
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7244	invalidateDeviceRectangle:(Rectangle
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7245	left:0
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7246	top:0
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7247	width:width
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7248	height:height)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7249	repairNow:false
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	7250
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	7251	"Modified: / 9.11.1998 / 21:04:16 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7252	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7253
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7254	invalidate:aRectangle
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7255	"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	7256	This is preferable to calling redraw directly,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7257	in that the drawing is done by the views process itself,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7258	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	7259	single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7260	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	7261	intil the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7262
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	7263	self invalidate:aRectangle repairNow:false
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	7264
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	7265	"Modified: / 9.11.1998 / 21:03:14 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7266	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7267
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7268	invalidate:aRectangle repairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7269	"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	7270	and (if repairNow is true), force the receiver to repair all of its
2451 c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	7271	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	7272	The given rectangle is in logical coordinate space."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7273
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	7274	\|sensor r\|
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7275
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	7276	(sensor := self sensor) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7277	r := aRectangle.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7278	transformation notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7279	r := transformation applyTo:r.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7280	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7281	sensor addDamage:r view:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7282	(shown and:[doRepair]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7283	self repairDamage
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7284	]
1851 6a6225647696 fixes for expose-event-lost after re-map Claus Gittinger <cg@exept.de> parents: 1839 diff changeset	7285	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7286	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7287	self redrawX:aRectangle left y:aRectangle top
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7288	width:aRectangle width height:aRectangle height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7289	].
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7290	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7291
2395 93846300ef6f oops Claus Gittinger <cg@exept.de> parents: 2394 diff changeset	7292	"Modified: / 10.11.1998 / 01:55:03 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7293	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7294
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7295	invalidateDeviceRectangle:aRectangle repairNow:doRepair
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7296	"add a damage to redraw part of the receiver, to its input event queue.
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7297	and (if repairNow is true), force the receiver to repair all of its
2451 c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	7298	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	7299	The given rectangle is in device coordinate space."
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7300
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7301	\|sensor\|
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7302
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7303	(sensor := self sensor) notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7304	sensor addDamage:aRectangle view:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7305	(shown and:[doRepair]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7306	self repairDamage
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7307	]
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7308	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7309	shown ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7310	self redrawDeviceX:aRectangle left y:aRectangle top
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7311	width:aRectangle width height:aRectangle height
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7312	].
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7313	]
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7314
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7315	"Modified: / 10.11.1998 / 01:55:03 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7316	"Created: / 10.11.1998 / 19:02:01 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7317	!
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	7318
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7319	invalidateRepairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7320	"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	7321	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	7322	damaged areas right now."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7323
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7324	self
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7325	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7326	repairNow:doRepair
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7327
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7328	"Created: 19.4.1997 / 11:58:04 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7329	"Modified: 19.4.1997 / 12:00:00 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7330	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	7331
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7332	redraw
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	7333	"redraw myself completely - this is sent by redrawX:y:width:height:
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	7334	as a fallback.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	7335	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	7336	updating regions but instead update everything."
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	7337
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	7338	"Modified: 29.5.1996 / 18:02:52 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7339	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7340
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7341	redraw:aRectangle
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7342	"redraw a part of the view immediately."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7343
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7344	self
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7345	redrawX:(aRectangle left)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7346	y:(aRectangle top)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7347	width:(aRectangle width)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7348	height:(aRectangle height)
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7349
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7350	"Modified: 19.4.1997 / 11:54:23 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7351	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7352
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7353	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7354	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7355	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7356	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7357	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7358
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7359	\|lx ly lw lh\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7360
2822 b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7361	transformation isNil ifTrue:[
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7362	lx := x.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7363	ly := y.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7364	lw := w.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7365	lh := h.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7366	] ifFalse:[
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7367	lx := transformation applyInverseToX:x.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7368	ly := transformation applyInverseToY:y.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7369	lw := transformation applyInverseScaleX:w.
b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	7370	lh := transformation applyInverseScaleY:h.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7371	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7372	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7373	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7374
151 8123ec03c52f . claus parents: 145 diff changeset	7375	redrawX:x y:y width:w height:h
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7376	"redraw part of myself immediately, given logical coordinates
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7377	(if transformation is nonNil)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7378	The default here is to redraw everything
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7379	- subclasses usually redefine this, adding more intelligence"
151 8123ec03c52f . claus parents: 145 diff changeset	7380
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7381	\|area oldClip\|
151 8123ec03c52f . claus parents: 145 diff changeset	7382
8123ec03c52f . claus parents: 145 diff changeset	7383	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	7384
8123ec03c52f . claus parents: 145 diff changeset	7385	area := Rectangle left:x top:y width:w height:h.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7386	oldClip := clipRect.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7387	self clippingRectangle:area.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7388
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7389	components notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7390	self clearRectangleX:x y:y width:w height:h.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7391	components do:[:aComponent \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7392	\|thisFrame is\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7393
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7394	thisFrame := aComponent bounds.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7395	(thisFrame intersects:area) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7396	aComponent displayOn:self
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7397	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7398	]
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7399	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7400	"/ redraw everything - a fallBack for lazy views.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7401	self redraw
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7402	].
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7403
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7404	self clippingRectangle:oldClip.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	7405
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7406	"Modified: 19.4.1997 / 11:55:08 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7407	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7408
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7409	repairDamage
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7410	"force the receiver to repair all of its
2095 7aaac9675f97 checkin from browser ca parents: 2094 diff changeset	7411	damaged areas right now."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7412
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7413	\|wg\|
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7414
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7415	shown ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7416	(wg := self windowGroup) notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7417	"/ wg processRealExposeEventsFor:self. "/ this ignores map/unmap
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7418	wg processExposeEventsFor:self. "/ this handles map/unmap
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7419	]
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7420	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	7421
2138 1800e9b5afe3 also handle map/unmap events in repairDamage. Claus Gittinger <cg@exept.de> parents: 2130 diff changeset	7422	"Created: / 19.4.1997 / 12:01:13 / cg"
2406 8f6f579901ac checkin from browser Claus Gittinger <cg@exept.de> parents: 2405 diff changeset	7423	"Modified: / 3.12.1998 / 14:02:06 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	7424	!
8123ec03c52f . claus parents: 145 diff changeset	7425
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7426	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7427	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7428	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7429
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7430	^ self
135 cf8e46015072 . claus parents: diff changeset	7431	!
cf8e46015072 . claus parents: diff changeset	7432
cf8e46015072 . claus parents: diff changeset	7433	showPassive
cf8e46015072 . claus parents: diff changeset	7434	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	7435	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	7436
cf8e46015072 . claus parents: diff changeset	7437	^ self
cf8e46015072 . claus parents: diff changeset	7438	! !
cf8e46015072 . claus parents: diff changeset	7439
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7440	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7441
2559 6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7442	halfPageDown
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7443	"scroll down half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7444	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7445	self scrollDown:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7446
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7447
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7448	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7449
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7450	halfPageUp
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7451	"scroll up half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7452	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7453	self scrollUp:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7454
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7455	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	7456
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7457	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7458	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7459	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7460
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7461	^ (device horizontalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7462	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7463
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7464	pageDown
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7465	self scrollDown:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7466
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7467	"Created: 13.9.1996 / 14:06:54 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7468	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7469
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7470	pageUp
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7471	self scrollUp:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7472
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7473	"Created: 13.9.1996 / 14:07:01 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7474	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7475
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7476	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7477	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7478	scroll-step down button is pressed."
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	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7481	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7482
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7483	scrollDown:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7484	"change origin to scroll down some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7485
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7486	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7487
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7488	nPixels ~~ 0 ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7489	viewOrigin := self viewOrigin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7490	self scrollTo:(viewOrigin x @ (viewOrigin y + nPixels))
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7491	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7492
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7493	"Modified: / 20.8.1996 / 17:34:36 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7494	"Modified: / 21.5.1999 / 15:57:56 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7495	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7496
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7497	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7498	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7499
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7500	\|orgY\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7501
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7502	orgY := self viewOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7503	^ self scrollTo:(aPixelOffset @ orgY).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7504
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7505	"Modified: 8.7.1996 / 15:34:54 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	7506	!
0db355079dc4 . claus parents: 138 diff changeset	7507
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7508	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7509	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7510
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7511	\|wCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7512
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7513	wCont := self widthOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7514	transformation notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7515	wCont := transformation applyScaleX:wCont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7516	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7517	self scrollHorizontalTo:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7518	((((wCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7519	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7520
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7521	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7522	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7523	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7524
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7525	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7526	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7527
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7528	scrollLeft:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7529	"change origin to scroll left some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7530
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7531	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7532
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7533	nPixels ~~ 0 ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7534	viewOrigin := self viewOrigin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7535	self scrollTo:((viewOrigin x - nPixels) @ viewOrigin y).
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7536	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7537
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7538	"Modified: / 20.8.1996 / 17:35:09 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7539	"Modified: / 21.5.1999 / 15:58:03 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7540	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7541
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7542	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7543	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7544	scroll-step right button is pressed."
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	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7547	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7548
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7549	scrollRight:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7550	"change origin to scroll right some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7551
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7552	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7553
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7554	nPixels ~~ 0 ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7555	viewOrigin := self viewOrigin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7556	self scrollTo:((viewOrigin x + nPixels) @ viewOrigin y)
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7557	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7558
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7559	"Modified: / 20.8.1996 / 17:35:37 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7560	"Modified: / 21.5.1999 / 15:58:08 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7561	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7562
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7563	scrollToBottom
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7564	self scrollTo:0 @ (self heightOfContents - self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7565
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7566	"Created: 13.9.1996 / 14:08:03 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7567	"Modified: 13.9.1996 / 14:09:32 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7568	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7569
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7570	scrollToLeft
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7571	"move viewOrigin to the left"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7572
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7573	self scrollHorizontalTo:0
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7574	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7575
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7576	scrollToPercent:originAsPercent
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7577	"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	7578
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7579	\|wCont hCont percent\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7580
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7581	percent := originAsPercent asPoint.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7582
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7583	wCont := self widthOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7584	hCont := self heightOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7585
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7586	transformation notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7587	wCont := transformation applyScaleX:wCont.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7588	hCont := transformation applyScaleY:hCont.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7589	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7590	self scrollTo:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7591	((((wCont * percent x) / 100.0) + 0.5) asInteger) @
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7592	((((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	7593
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7594	"Created: 5.8.1996 / 12:15:53 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7595	"Modified: 5.8.1996 / 12:42:57 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7596	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7597
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7598	scrollToRight
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7599	"move viewOrigin to the right"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7600
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7601	\|wCont\|
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7602
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7603	wCont := self widthOfContents.
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7604	transformation notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7605	wCont := transformation applyScaleX:wCont.
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7606	].
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7607	self scrollHorizontalTo:((wCont - self innerWidth) max:0)
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7608
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7609	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	7610
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7611	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7612	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7613
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7614	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7615	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7617	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7618	"move viewOrigin to top/left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7619
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7620	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7621	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7622
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7623	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7624	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7625	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7626
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7627	self scrollUp:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7628	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7629
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7630	scrollUp:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7631	"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	7632
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7633	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	7634
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7635	nPixels ~~ 0 ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7636	viewOrigin := self viewOrigin.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7637	self scrollTo:(viewOrigin x @ (viewOrigin y - nPixels)).
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7638	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7639
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7640	"Modified: / 20.8.1996 / 17:36:16 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	7641	"Modified: / 21.5.1999 / 15:58:21 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7642	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7643
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7644	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7645	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7646
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7647	\|orgX\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7648
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7649	orgX := self viewOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7650	^ self scrollTo:(orgX @ aPixelOffset).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7651
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7652	"Modified: 8.7.1996 / 15:35:40 / stefan"
135 cf8e46015072 . claus parents: diff changeset	7653	!
cf8e46015072 . claus parents: diff changeset	7654
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7655	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7656	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7657
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7658	\|hCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7659
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7660	hCont := self heightOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7661	transformation notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7662	hCont := transformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	7663	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7664	self scrollVerticalTo:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7665	((((hCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7666	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7667
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7668	verticalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7669	"return the amount to scroll when stepping up/down.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7670	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7671
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7672	^ (device verticalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7673	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7674
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7675	widthForScrollBetween:yStart and:yEnd
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7676	"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	7677	- 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	7678	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	7679	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	7680	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	7681	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7683	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	7684	! !
cf8e46015072 . claus parents: diff changeset	7685
cf8e46015072 . claus parents: diff changeset	7686	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	7687
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7688	scrollTo:newOrigin
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7689	"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	7690	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	7691	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7692
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7693	^ self scrollTo:newOrigin redraw:true
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7694
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7695	"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	7696	"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	7697	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7698
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7699	scrollTo:newOrigin redraw:doRedraw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7700	"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	7701	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	7702	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7703
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7704	\|dX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7705	dY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7706	orgX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7707	orgY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7708	x y iw ih
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7709	hCont wCont fromX toX fromY toY copyWidth copyHeight
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	7710	redrawX redrawY wg\|
135 cf8e46015072 . claus parents: diff changeset	7711
cf8e46015072 . claus parents: diff changeset	7712	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	7713	wCont := self widthOfContents.
cf8e46015072 . claus parents: diff changeset	7714	transformation isNil ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7715	orgY := orgX := 0
135 cf8e46015072 . claus parents: diff changeset	7716	] ifFalse:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7717	wCont := (transformation applyScaleX:wCont) rounded.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7718	hCont := (transformation applyScaleY:hCont) rounded.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7719	orgY := transformation translation y negated.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7720	orgX := transformation translation x negated
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7721	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7722
135 cf8e46015072 . claus parents: diff changeset	7723	iw := self innerWidth.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7724	ih := self innerHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7725
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7726	"don't scroll outside of displayed area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7727
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7728	x := newOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7729	y := newOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7730
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7731	x + iw > wCont ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7732	x := wCont - iw.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7733	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7734	x < 0 ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7735	x := 0
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7736	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7737	y + ih > hCont ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7738	y := hCont - ih.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7739	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7740	y < 0 ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7741	y := 0.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7742	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7743
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7744	dX := x - orgX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7745	dY := y - orgY.
135 cf8e46015072 . claus parents: diff changeset	7746
1066 bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7747	(dX == 0 and:[dY == 0]) ifTrue:[
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7748	^ self
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7749	].
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	7750
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	7751	(wg := self windowGroup) notNil ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7752	wg processRealExposeEventsFor:self.
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	7753	].
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	7754
135 cf8e46015072 . claus parents: diff changeset	7755	self originWillChange.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	7756	(shown and:[doRedraw]) ifTrue:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7757	copyWidth := iw - dX abs.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7758	copyHeight := ih - dY abs.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7759	((copyWidth > 0) and:[copyHeight > 0]) ifTrue:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7760	"/ some of the currently displayed pixels
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7761	"/ remain visible. Copy them
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7762
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7763	dX < 0 ifTrue:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7764	fromX := margin.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7765	toX := margin - dX.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7766	redrawX := margin
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7767	] ifFalse:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7768	fromX := margin + dX.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7769	toX := margin.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7770	redrawX := margin + copyWidth.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7771	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7772	dY < 0 ifTrue:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7773	fromY := margin.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7774	toY := margin - dY.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7775	redrawY := margin.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7776	] ifFalse:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7777	fromY := margin + dY.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7778	toY := margin.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7779	redrawY := margin + copyHeight.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7780	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7781	self catchExpose.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7782	self setViewOrigin:(x @ y).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7783	self
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7784	copyFrom:self
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7785	x:fromX y:fromY
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7786	toX:toX y:toY
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7787	width:copyWidth
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7788	height:copyHeight
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7789	async:true.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7790
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7791	self setInnerClip.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7792
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7793	"first redraw the rectangle above/below the
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7794	copied area (with full width)."
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7795
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7796	copyHeight < ih ifTrue:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7797	self invalidateDeviceRectangle:((margin@redrawY) extent:(iw@(ih - copyHeight))) repairNow:false.
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7798	"/ self
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7799	"/ redrawDeviceX:margin y:redrawY
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7800	"/ width:iw height:(ih - copyHeight).
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7801	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7802
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7803	"second redraw the rectangle left/right of the
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7804	copied area"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7805
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7806	copyWidth < iw ifTrue:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7807	self invalidateDeviceRectangle:((redrawX@toY) extent:((iw-copyWidth)@copyHeight)) repairNow:false.
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7808	"/ self redrawDeviceX:redrawX y:toY
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7809	"/
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7810	"/ width:iw - copyWidth
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7811	"/ height:copyHeight.
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7812	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7813	self waitForExpose.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7814	] ifFalse:[
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7815	"redraw everything"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7816
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7817	self setViewOrigin:(x @ y).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7818	self invalidateDeviceRectangle:((margin@margin) extent:(iw@ih)) repairNow:false.
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7819	"/ self redrawDeviceX:margin y:margin
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7820	"/ width:iw
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7821	"/ height:ih.
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7822	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7823	] ifFalse:[
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7824	self setViewOrigin:(x @ y).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7825	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7826
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	7827	self originChanged:(dX negated @ dY negated).
6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	7828
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	7829	"Modified: / 5.8.1996 / 11:57:09 / stefan"
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	7830	"Modified: / 1.12.1998 / 22:35:18 / cg"
135 cf8e46015072 . claus parents: diff changeset	7831	! !
cf8e46015072 . claus parents: diff changeset	7832
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7833	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7834
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7835	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7836	"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	7837	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7838	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	7839	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7840	can be opened as a topView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7841	This is redefined in ModalBox, which comes up modal (i.e.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7842	control is under the current process, so that interaction with the
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7843	current group is blocked while the modalBox is active)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7845	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7846
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7847	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7848	View new open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7849	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7850
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7851	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7852	(Button label:'hello') open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7853	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7854
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7855	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7856	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7857	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7858	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7859	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7860	top open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7861	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7862
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7863	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7864	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7865	"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7866
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7867	"Modified: 24.7.1997 / 13:26:42 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7868	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7869
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7870	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7871	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7872	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	7873	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	7874	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7875	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	7876	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	7877	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7879	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7880	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7882	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7883
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7884	\|v\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7885
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7886	v := View new open.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7887	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7888
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7889	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7890
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7891	\|v\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7892
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7893	v := View new openAndWait.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7894	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7895	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7896	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7897
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7898	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7899	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7900
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7901	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7902
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7903	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7904	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7905
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7906	(Button label:'hello') openAt:(100@100)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7907	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7908
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7909	"Modified: 24.7.1997 / 13:26:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7910	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7911
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7912	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7913	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7914
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7915	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7916
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7917	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7918	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7919
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7920	(Button label:'hello') openAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7921	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7922
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7923	"Modified: 24.7.1997 / 13:01:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7924	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7925
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7926	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7927	"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	7928	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	7929	parallel.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7930	Notice:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7931	This entry is for NON-topviews, which want to be served
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7932	autonomous from their real topview.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7933	(see the fileBrowsers kill-button
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7934	when executing unix commands as an example)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7935
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7936	\|wg mainGroup\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7937
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	7938	wg := WindowGroup new.
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	7939	self windowGroup:wg.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7940
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7941	mainGroup := WindowGroup activeGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7942	mainGroup notNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7943	mainGroup := mainGroup mainGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7944	].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7945
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7946	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	7947	wg startupWith:[wg mainGroup:mainGroup. self realizeInGroup].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7948
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7949	"/ wg startupModal:[true] forGroup:mainGroup
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7950	"/ self realizeInGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7951
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7952	"Modified: 20.8.1997 / 17:57:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7953	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7954
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7955	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7956	"special open within another windowGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7957	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	7958	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7959	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7960
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7961	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7962	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7963
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7964	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7965	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7966	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7967	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7968
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7969	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7970	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7971	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	7972	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7973	(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	7974
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7975	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7976
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7977	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7978	the same:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7979	YesNoBox new open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7980
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7981	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7982
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7983	different:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7984	(Button label:'hello') open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7985
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7986	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7987	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7988	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7989
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7990	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7991	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7992	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7993	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	7994	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7995	(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	7996	This makes any interaction with the current window impossible -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7997	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7998
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	7999	\|mainGroup masterGroup\|
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8000
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8001	"/ mainGroup := WindowGroup activeGroup.
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8002	"/ mainGroup notNil ifTrue:[mainGroup := mainGroup mainGroup].
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8003
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8004	masterGroup := WindowGroup activeGroup.
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8005	[masterGroup notNil and:[masterGroup isPopUp]] whileTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8006	masterGroup := masterGroup previousGroup.
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8007	].
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8008	^ self openModal:aBlock inGroup:masterGroup "/ mainGroup.
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8009
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8010	"Created: / 10.12.1995 / 14:06:45 / cg"
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	8011	"Modified: / 9.7.1998 / 01:20:57 / cg"
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8012	!
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8013
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8014	openModal:aBlock inGroup:mainGroup
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8015	"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	8016	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	8017	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	8018	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8019	(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	8020	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	8021	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	8022
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	8023	\|tops mainView mainViewID\|
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	8024
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	8025	self isPopUpView ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8026	ModalBox usingTransientViews ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8027	mainGroup notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8028	(tops := mainGroup topViews) notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8029	tops notEmpty ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8030	mainView := tops first.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8031	mainView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8032	mainViewID := mainView id.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8033	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8034	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8035	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8036	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8037
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8038	mainViewID isNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8039	self origin:(device center - (self extent//2))
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8040	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8041
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8042	drawableId isNil ifTrue:[self create].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8043	device setTransient:drawableId for:mainViewID.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8044	].
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	8045	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	8046
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	8047	self raise.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8048
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8049	Processor activeProcessIsSystemProcess ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8050	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8051	put myself into the modal group, let it handle events for
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8052	me as well. This is only a half way solution, since the view
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8053	is not modal at all ... however, the only situation
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8054	where this happens is with modal boxes popped while in a
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8055	modal browser. You will forgive me for that inconvenience.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8056	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8057	windowGroup := mainGroup.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8058	mainGroup notNil ifTrue:[mainGroup addTopView:self].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8059	self realize
135 cf8e46015072 . claus parents: diff changeset	8060	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8061	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8062	show a stop-cursor in the main group
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8063	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8064	mainGroup notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8065	self isPopUpView ifFalse:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8066	mainGroup showCursor:(Cursor stop).
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8067	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8068	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8069
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8070	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8071	create a new window group and put myself into it
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8072	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8073	windowGroup := WindowGroup new.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8074	windowGroup addTopView:self.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8075
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8076	superView notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8077	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8078	"/ special: this is a modal subview,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8079	"/ prevent the view from reassigning its windowGroup when realized
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8080	"/ (subviews normally place themself into the superviews group)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8081	"/
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8082	windowGroup isForModalSubview:true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8083	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8084
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8085	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8086	go dispatch events in this new group
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8087	(thus current windowgroup is blocked from interaction)
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8088	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8089	AbortSignal handle:[:ex \|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8090	self hide.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8091	ex return.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8092	] do:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8093	[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8094	[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8095	windowGroup startupModal:[realized and:aBlock] forGroup:mainGroup
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8096	] valueOnUnwindDo:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8097	self hide
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8098	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8099	] valueNowOrOnUnwindDo:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8100	mainGroup notNil ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8101	ReturnFocusWhenClosingModalBoxes ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8102	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8103	return input focus to previously active groups top.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8104	This helps with windowmanagers which need an explicit click
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8105	on the view for the focus.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8106	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8107	tops := mainGroup topViews.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8108	(tops notNil and:[tops notEmpty]) ifTrue:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8109	tops first getKeyboardFocus
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8110	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8111	].
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8112
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8113	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8114	restore cursors in the main group & flush its buffered key & mouse events
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8115	"
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8116	mainGroup restoreCursors.
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	8117	"/ mainGroup sensor flushUserEvents.
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8118	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8119	]
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8120	].
135 cf8e46015072 . claus parents: diff changeset	8121	]
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8122
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	8123	"Created: 10.12.1995 / 14:06:14 / cg"
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	8124	"Modified: 20.8.1997 / 15:14:44 / cg"
135 cf8e46015072 . claus parents: diff changeset	8125	!
cf8e46015072 . claus parents: diff changeset	8126
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8127	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8128	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8129	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8130
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8131	self origin:aPoint.
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	8132	drawableId isNil ifTrue:[self create].
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	8133	"/ device setTransient:drawableId for:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8134	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8135
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8136	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8137	View new openModal
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8138	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8139	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8140	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8141	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8142
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8143	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8144	"Modified: 18.9.1995 / 23:32:26 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	8145	"Modified: 28.7.1997 / 18:52:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8146	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8147
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8148	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8149	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8150	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8151
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8152	^ self openModalAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8153
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8154	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8155	View new openModal
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8156	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8157	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8158	View new openModalAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8159	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8160
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8161	"Modified: 24.7.1997 / 13:27:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8162	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8163
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8164	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8165	"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	8166	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	8167	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8168
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8169	self openModelessAt:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8170
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8171	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8172	the same:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8173	(Button label:'hello') open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8174
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8175	(Button label:'hello') openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8176
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8177	different:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8178	YesNoBox new open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8179
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8180	YesNoBox new openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8181	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8182	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8183	(almost) the same:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8184	YesNoBox new open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8185
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8186	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8187
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8188	different:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8189	(Button label:'hello') open
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8190
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8191	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8192	"
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	8193
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8194	"Modified: 24.7.1997 / 13:17:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8195	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8196
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8197	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8198	"open up the view modeless - positions the view
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8199	(i.e. tries to circumvent the window managers positioning)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8200	Notice: some windowManagers seem to ignore this and always
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8201	ask the user to position the view."
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8202
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8203	self openModelessAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8204
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8205	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8206	View new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8207
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8208	View new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8209	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8210
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8211	"Created: 18.9.1995 / 23:21:42 / claus"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8212	"Modified: 24.7.1997 / 13:48:52 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8213	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8214
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8215	openModelessAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8216	"open up the view modeless - positions the view
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8217	(i.e. tries to circumvent the window managers positioning)
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8218	Notice: some windowManagers seem to ignore this and always
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8219	ask the user to position the view."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8220
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8221	\|newGroup\|
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8222
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	8223	drawableId isNil ifTrue:[self create].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8224
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8225	windowGroup isNil ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8226	newGroup := true.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8227	windowGroup := WindowGroup new.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8228	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8229	newGroup := false.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8230	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8231
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8232	windowGroup addTopView:self.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8233	(aPoint isNil and:[iconified not]) ifTrue:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8234	windowGroup startupWith:[self realize].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8235	] ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8236	windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8237	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8238
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8239	newGroup ifFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8240	self realizeInGroup.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8241	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8242
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8243	"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8244	StandardSystemView new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8245
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8246	StandardSystemView new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8247
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8248	StandardSystemView new openModelessAt:100@100 iconified:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8249	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8250
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8251	"Created: 18.9.1995 / 23:21:42 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	8252	"Modified: 28.7.1997 / 18:52:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8253	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8255	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8256	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8257	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8258
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8259	^ self openModelessAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8260
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8261	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8262	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8263
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8264	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8265	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8266
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8267	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8268	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8269
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8270	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8271	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8272	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	8273	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	8274	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8275	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	8276	in doIt expressions), or subsequent views depend on some state of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8277	another view (which is only available once visible),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8278	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	8279	Caveat:
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8280	we poll here for the view to be shown - we need a semaphore
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8281	which is raised by the view in order to do it right."
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8282
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8283	\|wg\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8285	[self shown] whileFalse:[
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8286	Delay waitForSeconds:0.05.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8287	(wg := self windowGroup) ifNotNil:[
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8288	wg processExposeEvents.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8289	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8290	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8291
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8292	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8293	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	8294	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8295
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8296	\|v\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8297
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8298	v := View new open.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8299	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8300
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8301	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8302	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8303
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8304	\|v\|
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8305
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8306	v := View new open.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8307	v waitUntilVisible.
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8308	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8309	"
135 cf8e46015072 . claus parents: diff changeset	8310	! !
cf8e46015072 . claus parents: diff changeset	8311
cf8e46015072 . claus parents: diff changeset	8312	!SimpleView methodsFor:'user notification'!
cf8e46015072 . claus parents: diff changeset	8313
cf8e46015072 . claus parents: diff changeset	8314	warn:aString
cf8e46015072 . claus parents: diff changeset	8315	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	8316	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	8317
151 8123ec03c52f . claus parents: 145 diff changeset	8318	super warn:(resources string:aString) withCRs
135 cf8e46015072 . claus parents: diff changeset	8319	!
cf8e46015072 . claus parents: diff changeset	8320
cf8e46015072 . claus parents: diff changeset	8321	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	8322	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	8323	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	8324
151 8123ec03c52f . claus parents: 145 diff changeset	8325	super warn:(resources string:aString with:argument) withCRs
8123ec03c52f . claus parents: 145 diff changeset	8326	!
8123ec03c52f . claus parents: 145 diff changeset	8327
8123ec03c52f . claus parents: 145 diff changeset	8328	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	8329	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	8330	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	8331
8123ec03c52f . claus parents: 145 diff changeset	8332	super warn:(resources string:aString with:arg1 with:arg2) withCRs
135 cf8e46015072 . claus parents: diff changeset	8333	! !
cf8e46015072 . claus parents: diff changeset	8334
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8335	!SimpleView::ViewShape methodsFor:'queries'!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8336
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8337	isRoundShape
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8338	^ false
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8339	! !
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8340
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	8341	!SimpleView::ArbitraryViewShape methodsFor:'accessing'!
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8342
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8343	borderShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8344	"return the value of the instance variable 'borderShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8345
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8346	^ borderShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8347
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8348	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8349	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8350
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8351	borderShapeForm:something
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8352	"set the value of the instance variable 'borderShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8353
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8354	borderShapeForm := something.
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8355
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8356	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8357	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8358
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8359	viewShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8360	"return the value of the instance variable 'viewShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8361
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8362	^ viewShapeForm
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8363
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8364	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8365	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8366
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8367	viewShapeForm:something
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8368	"set the value of the instance variable 'viewShapeForm' (automatically generated)"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8369
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8370	viewShapeForm := something.
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8371
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8372	"Created: 18.9.1997 / 11:04:29 / cg"
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8373	! !
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8374
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8375	!SimpleView::RoundViewShape methodsFor:'queries'!
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8376
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8377	isRoundShape
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8378	^ true
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8379
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8380
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8381	! !
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	8382
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8383	!SimpleView class methodsFor:'documentation'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8384
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8385	version
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	8386	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.353 1999-10-28 14:57:02 stefan Exp $'
135 cf8e46015072 . claus parents: diff changeset	8387	! !
cf8e46015072 . claus parents: diff changeset	8388	SimpleView initialize!

author	Stefan Vogel <sv@exept.de>
	Thu, 28 Oct 1999 16:57:02 +0200
changeset 3010	ea1a075505b4
parent 3008	81987f198808
child 3055	3a001a72cb9b
permissions	-rw-r--r--