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

135 cf8e46015072 . claus parents: diff changeset	1	"
cf8e46015072 . claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3196 43d42e7c388a MUST invoke #postBuildWith: / #postBuildAsSubcanvasWith:, tm parents: 3191 diff changeset	13	"{ Package: 'stx:libview' }"
43d42e7c388a MUST invoke #postBuildWith: / #postBuildAsSubcanvasWith:, tm parents: 3191 diff changeset	14
727 bf23a306b6f2 renamed PseudoView to DisplaySurface Claus Gittinger <cg@exept.de> parents: 724 diff changeset	15	DisplaySurface subclass:#SimpleView
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	16	instanceVariableNames:'superView subViews components styleSheet resources borderColor
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	17	borderWidth viewShape top left flagBits relativeOrigin
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	18	relativeExtent relativeCorner originRule extentRule cornerRule
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	19	insets layout shown hiddenOnRealize name level margin
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	20	innerClipRect shadowColor lightColor bitGravity viewGravity
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	21	controller windowGroup preferredExtent explicitExtent dependents
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	22	layoutManager visibilityChannel'
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	23	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	24	DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	25	DefaultShadowColor DefaultBorderWidth DefaultFocusColor
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	26	DefaultFocusBorderWidth ReturnFocusWhenClosingModalBoxes
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	27	FlagOriginChanged FlagExtentChanged FlagCornerChanged
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	28	FlagExtentChangedBeforeCreated FlagCanTab
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	29	FlagRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	30	FlagDoNotRequestFocusOnPointerEnter'
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	31	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	32	category:'Views-Basic'
135 cf8e46015072 . claus parents: diff changeset	33	!
cf8e46015072 . claus parents: diff changeset	34
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	35	SimpleView class instanceVariableNames:'ClassResources DefaultFont'
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	36
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	37	"
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	38	No other class instance variables are inherited by this class.
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
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	43	instanceVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	44	classVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	45	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	46	privateIn:SimpleView
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	47	!
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	48
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	49	SimpleView::ViewShape subclass:#RoundViewShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	50	instanceVariableNames:''
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	51	classVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	52	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 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
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	56	SimpleView::ViewShape subclass:#ArbitraryViewShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	57	instanceVariableNames:'viewShapeForm borderShapeForm'
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	58	classVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	59	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	96	superView <View> my superview i.e. the view I am in
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	97
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	98	subViews <Collection> the collection of subviews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	99
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	100	components <Collection> collection of gadgets (will be merged with subViews, soon)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	101
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	102	borderColor <Color> color of border
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	103
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	104	borderWidth <Number> borderWidth in pixels (device dep.)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	105
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	106	viewShape <Form> shape of view & border (if device supports it)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	107
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	108	top <Number> actual top coordinate (pixels) in superview
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	109
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	110	left <Number> actual left coordinate (pixels) in superview
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	111
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	112	extendChanged <Boolean> true if extend changed during setup
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	113
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	114	originChanged <Boolean> true if origin changed during setup
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	115
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	116	relativeOrigin <Number> relative origin in percent within superview
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	117
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	118	relativeExtent <Number> relative extent in percent within superview
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	119
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	120	relativeCorner <Number> relative corner in percent within superview
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	121
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	122	originRule <Block> rule to compute origin if superview changes size
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	123
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	124	extentRule <Block> rule to compute extent if superview changes size
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	125
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	126	cornerRule <Block> rule to compute corner if superview changes size
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	127
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	128	insets <Array> array with top, left, bottom & right insets (or nil)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	129
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	130	layout <LayoutObject> not yet implemented - will replace the above layout
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	131	variables.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	132
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	133	shown <Boolean> true if visible (false if iconified, unmapped or covered)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	134
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	135	hiddenOnRealize <Boolean> dont show automatically when superview is realized
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	136
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	137	name <String> my name (future use for resources)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	138
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	139	level <Number> 3D level relative to superview
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	140
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	141	margin <Number> convenient margin
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	142
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	143	innerClipRect <Rectangle> convenient inner clip (minus margin)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	144
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	145	shadowColor <Color> color used to draw 3D shadowed edges
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	146
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	147	lightColor <Color> color used to draw 3D lighted edges
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	148
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	149	bitGravity <nil \| Symbol> gravity of contents (if device supports it)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	150
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	151	viewGravity <nil \| Symbol> gravity of view (if device supports it)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	152
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	153	controller <nil \| Controller> the controller (if any)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	154
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	161	Grey <Color> the color grey - its used so often
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	162
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	163	ViewSpacing <Number> preferred spacing between views; 1mm
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	164
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	165	CentPoint <Point> 100 @ 100 - its used so often
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	166
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	167	StyleSheet <ResourcePack> contains all view-style specifics
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	168
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	169	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	170	<Boolean> the keyboard focus to the view which was
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	171	active when the box was opened.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	172	If false (the default), it is left to
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	173	window manager to assign a new focus.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	174	If running on olwm/olvwm (which requires an
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	175	explicit click to reassign a focus), it is
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	180	popupShadow <Boolean> if true, popupViews show a shadow below
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	181
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	182	popupLevel <nil \| Integer> 3D level
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	183
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	184	borderWidth <nil \| Integer> borderWidth (ignored in 3D styles)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	185
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	186	borderColor <nil \| Color> borderColor (ignored in 3D styles)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	187
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	188	viewBackground <nil \| Color> views background
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	189
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	190	shadowColor <nil \| Color> color for shadow edges (ignored in 2D styles)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	191
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	192	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	193
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	198	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	199	and insets; replace by a single object which defines the size
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	200	(mhmh - ST-80 seems to call this LayoutFrame ?)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	201	-> be prepared for a change here in the near future and ONLY use
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	202	access methods to get those instance variables' values
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	203
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	204	get rid of 3D level & margin, move it to extra wrappers
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	205	(although this will make view setup more complicated, it will remove
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	206	complexity from the internals of view. Also, it will allow for more
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	207	varieties of borders.)
151 8123ec03c52f . claus parents: 145 diff changeset	208
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	209	add components (could also call them gadgets or lightweight views)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	210	- views are expensive in terms of X resources. This would make all
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	211	framing/edge and panel helper views become cheap ST objects, instead
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:]
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	216	StandardSystemView DialogBox
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	217	WindowGroup WindowEvent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	218	Layout
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:]
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	232	[exBegin]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	233	\|top v\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	234
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	235	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	236	v := View new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	237	v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	238	top addSubView:v.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	239	top open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	244	[exBegin]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	245	\|top v\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	246
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	247	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	248	v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	249	top open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	261	corner:50@50
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	262	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	263	v2 := View origin:60@10
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	264	corner:150@100
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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)
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	297	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	298
8123ec03c52f . claus parents: 145 diff changeset	299	fixed origin, variable size:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	344	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	345
8123ec03c52f . claus parents: 145 diff changeset	346	variable origin, variable size,
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	408	leftFraction:0.25;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	409	rightFraction:0.75;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	410	topFraction:0.0;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	411	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	412	top add:v2 in:(LayoutFrame new
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	413	leftFraction:0.5;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	414	rightFraction:1.0;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	415	topFraction:0.5;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	416	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	417
8123ec03c52f . claus parents: 145 diff changeset	418	top open
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	419	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	420
8123ec03c52f . claus parents: 145 diff changeset	421	another one, with offsets:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	435	leftFraction:0.0 offset:10;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	436	rightFraction:1.0 offset:-10;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	437	topFraction:0.0 offset:10;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	438	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	439	top add:v2 in:(LayoutFrame new
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	440	leftFraction:0.0 offset:30;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	441	rightFraction:1.0 offset:-30;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	442	topFraction:0.5 offset:10;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	443	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	444
8123ec03c52f . claus parents: 145 diff changeset	445	top open
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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)
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	463	leftFraction:0.25;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	464	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	465	top add:v2 in:(LayoutOrigin new
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	466	leftFraction:0.5;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	467	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	468
8123ec03c52f . claus parents: 145 diff changeset	469	top open
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	486	leftFraction:0.25;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	487	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	488	top add:v2 in:(LayoutOrigin new
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	489	leftFraction:0.5;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	490	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	491
8123ec03c52f . claus parents: 145 diff changeset	492	top open
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	500	- (old, to be eliminated mechanism)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	501	based upon info found in
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	502	relativeOrigin / relativeCorner / relativeExtent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	503	originRule / cornerRule / extentRule
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	504
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	505	- (new, will migrate to that one)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	523	sizeChanged
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	528	- redefine superViewChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	538	- static menus
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	539
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	540	- dynamic menus from the view
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	541
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	556	static menus should no longer be used - their operation
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	557	is incompatible with ST-80 and ST/X's dynamic menus.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	563	\|top v1 v2\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	564
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	565	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	566	top extent:300@300.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	567
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	568	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	569	v1 viewBackground:Color red.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	570
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	571	v2 := View origin:0.5@0.0 corner:1.0@1.0 in:top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	572	v2 viewBackground:Color yellow.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	573
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	574	v1 middleButtonMenu:(
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	575	PopUpMenu
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	576	labels:#('foo' 'bar')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	577	selectors:#(foo bar)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	578	receiver:v1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	579	).
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	580
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	607	\|top v1 v2 holder\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	608
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	609	holder := Plug new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	610	holder respondTo:#menu1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	611	with:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	612	v1 menuMessage:#otherMenu1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	613	PopUpMenu
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	614	labels:#('foo' 'bar')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	615	selectors:#(foo bar).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	616	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	617	holder respondTo:#otherMenu1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	618	with:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	619	v1 menuMessage:#menu1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	620	PopUpMenu
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	621	labels:#('other foo' 'other bar')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	622	selectors:#(foo bar).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	623	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	624	holder respondTo:#menu2
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	625	with:[ PopUpMenu
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	626	labels:#('copy' 'bar2')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	627	selectors:#(copySelection bar2)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	628	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	629
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	630	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	631	top extent:300@300.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	632
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	633	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	634	v1 viewBackground:Color red.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	635
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	636	v2 := TextView origin:0.5@0.0 corner:1.0@1.0 in:top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	637	v2 contents:'pop me up'.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	638
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	639	v1 model:holder; menuMessage:#menu1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	640	v2 menuHolder:holder; menuMessage:#menu2.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	641
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	655	\|top v menuProvider menuExecutor \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	656
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	657	menuProvider := Plug new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	658	menuProvider respondTo:#menu
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	659	with:[ PopUpMenu
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	660	labels:#('copy' 'foo')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	661	selectors:#(copySelection foo)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	662	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	663
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	664	menuExecutor := Plug new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	665	menuExecutor respondTo:#copySelection
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	666	with:[Transcript showCR:'copy function'].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	667	menuExecutor respondTo:#foo
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	668	with:[Transcript showCR:'foo function'].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	669
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	670	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	671	top extent:300@300.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	672
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	673	v := TextView origin:0.0@0.0 corner:1.0@1.0 in:top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	674	v contents:'pop me up'.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	675
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	676	v menuHolder:menuProvider; menuMessage:#menu.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	677	v menuPerformer:menuExecutor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	678
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 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:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	687	Font initialize.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	688	Form initialize.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	689	Color initialize.
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	690	].
0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	691	self == SimpleView ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	692	Smalltalk addDependent:self "/ to get language changes
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	693	].
0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 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
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	697	FlagOriginChanged := 2r0000001.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	698	FlagExtentChanged := 2r0000010.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	699	FlagCornerChanged := 2r0000100.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	700
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	701	FlagCanTab := 2r0001000.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	702	FlagExtentChangedBeforeCreated := 2r0010000.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	703	FlagRequestFocusOnPointerEnter := 2r0100000.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	704	FlagDoNotRequestFocusOnPointerEnter := 2r1000000.
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	705
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	706	"Modified: 18.5.1996 / 16:56:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	707	!
cf8e46015072 . claus parents: diff changeset	708
cf8e46015072 . claus parents: diff changeset	709	postAutoload
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	710	(Screen notNil and:[Screen current notNil]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	711	self updateStyleCache.
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	712	]
135 cf8e46015072 . claus parents: diff changeset	713	! !
cf8e46015072 . claus parents: diff changeset	714
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	715	!SimpleView class methodsFor:'instance creation'!
135 cf8e46015072 . claus parents: diff changeset	716
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	717	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	718	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	719
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	720	^ self origin:nil extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	721	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	722	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	723
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	724	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	725	"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	726
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	727	^ self origin:nil extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	728	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	729	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	730
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	731	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	732	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	733
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	734	^ self origin:nil extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	735	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	736	!
cf8e46015072 . claus parents: diff changeset	737
cf8e46015072 . claus parents: diff changeset	738	in:aView
cf8e46015072 . claus parents: diff changeset	739	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	740	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	741	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	742	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	743	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	744	it will come up as a topview."
135 cf8e46015072 . claus parents: diff changeset	745
cf8e46015072 . claus parents: diff changeset	746	\|newView\|
cf8e46015072 . claus parents: diff changeset	747
cf8e46015072 . claus parents: diff changeset	748	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	749	aView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	750	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	751	"/ newView container:aView.
135 cf8e46015072 . claus parents: diff changeset	752	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	753	newView device:Screen current
135 cf8e46015072 . claus parents: diff changeset	754	].
cf8e46015072 . claus parents: diff changeset	755	newView initialize.
cf8e46015072 . claus parents: diff changeset	756	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	757	^ newView
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	758
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	759	"Modified: 28.5.1996 / 20:24:58 / cg"
135 cf8e46015072 . claus parents: diff changeset	760	!
cf8e46015072 . claus parents: diff changeset	761
140 0db355079dc4 . claus parents: 138 diff changeset	762	label:label
0db355079dc4 . claus parents: 138 diff changeset	763	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	764
cf8e46015072 . claus parents: diff changeset	765	^ self origin:nil extent:nil borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	766	font:nil label:label in:nil
140 0db355079dc4 . claus parents: 138 diff changeset	767	!
0db355079dc4 . claus parents: 138 diff changeset	768
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	769	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	770	"create a new view as subview of aView with given label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	772	^ self origin:nil extent:nil borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	773	font:nil label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	774	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	775
1393 0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	776	model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	777	"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	778	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	779	subclasses may."
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	780
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	781	^ self new model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	782
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	783	"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	784	"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	785	!
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	786
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	787	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	788	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	789
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	790	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	791	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	792	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	793	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	794	^ self new model:aModel.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	795	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	796
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	797	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	798	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	799	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	800	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	801
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	802	\|device\|
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	anotherView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	805	device := anotherView graphicsDevice.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	806	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	807	device := Screen current.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	808	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	809	^ self onDevice:device
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	810
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	811	"Modified: 28.5.1996 / 20:25:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	812	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	814	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	815	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	816
140 0db355079dc4 . claus parents: 138 diff changeset	817	^ self origin:origin corner:corner borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	818	font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	819	!
cf8e46015072 . claus parents: diff changeset	820
cf8e46015072 . claus parents: diff changeset	821	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	822	\|newView\|
cf8e46015072 . claus parents: diff changeset	823
cf8e46015072 . claus parents: diff changeset	824	aView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	825	newView := self basicNew.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	826	newView device:(aView graphicsDevice).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	827	newView initialize.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	828	aView addSubView:newView.
135 cf8e46015072 . claus parents: diff changeset	829	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	830	newView := self onDevice:Screen current
135 cf8e46015072 . claus parents: diff changeset	831	].
cf8e46015072 . claus parents: diff changeset	832	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	833	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	834	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	835	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	836	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	837	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	838
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	839	"Modified: 28.5.1996 / 20:25:15 / cg"
135 cf8e46015072 . claus parents: diff changeset	840	!
cf8e46015072 . claus parents: diff changeset	841
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	842	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	843	"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	844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	845	^ self origin:origin corner:corner borderWidth:bw
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	846	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	847	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	848
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	849	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	850	"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	851
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	852	^ self origin:origin corner:corner borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	853	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	854	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	855
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	856	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	857	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	858
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	859	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	860	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	861	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	862
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	863	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	864	"create a new view with given origin, extent and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	865
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	866	^ self origin:origin extent:extent borderWidth:bw
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	867	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	868	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	869
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	870	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	871	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	872
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	873	aView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	874	newView := self basicNew.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	875	newView device:(aView graphicsDevice).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	876	newView initialize.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	877	aView addSubView:newView.
140 0db355079dc4 . claus parents: 138 diff changeset	878	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	879	newView := self onDevice:Screen current
140 0db355079dc4 . claus parents: 138 diff changeset	880	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	881	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	882	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	883	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	884	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	885	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	886	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	887
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	888	"Modified: 28.5.1996 / 20:25:19 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	889	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	890
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	891	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	892	"create a new view as a subview of aView with given origin, extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	893	and borderWidth"
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	^ self origin:origin extent:extent borderWidth:bw
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	896	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	897	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	898
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	899	origin:origin extent:extent font:aFont label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	900	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	901	font:nil label:label in:nil
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	904	origin:origin extent:extent font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	905	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	906	font:aFont label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	907	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	908
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	909	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	910	"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	911
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	912	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	913	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	914	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	915
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	916	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	917	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	918
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	919	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	920	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	921	!
cf8e46015072 . claus parents: diff changeset	922
cf8e46015072 . claus parents: diff changeset	923	origin:anOrigin extent:anExtent
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	924	label:aLabel icon:aForm
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	925	minExtent:minExtent maxExtent:maxExtent
135 cf8e46015072 . claus parents: diff changeset	926	\|newView\|
cf8e46015072 . claus parents: diff changeset	927
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	928	newView := self onDevice:Screen current.
135 cf8e46015072 . claus parents: diff changeset	929	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	930	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	931	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	932	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	933	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	934	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	935	^ newView
cf8e46015072 . claus parents: diff changeset	936	!
cf8e46015072 . claus parents: diff changeset	937
140 0db355079dc4 . claus parents: 138 diff changeset	938	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	939	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	940
0db355079dc4 . claus parents: 138 diff changeset	941	^ self origin:origin extent:nil borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	942	font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	943	! !
cf8e46015072 . claus parents: diff changeset	944
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	945	!SimpleView class methodsFor:'change & update'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	946
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	947	update:something with:aParameter from:changedObject
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	948	changedObject == Smalltalk ifTrue:[
4038 538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	949	(something == #Language or:[something == LanguageTerritory]) ifTrue:[
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	950	"flush resources on language changes"
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	951	self flushAllClassResources.
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	952	self allSubInstancesDo:[:eachView \| eachView languageChanged].
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	953	].
135 cf8e46015072 . claus parents: diff changeset	954	]
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	955
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	956	"Created: 15.6.1996 / 15:23:04 / cg"
135 cf8e46015072 . claus parents: diff changeset	957	! !
cf8e46015072 . claus parents: diff changeset	958
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	959	!SimpleView class methodsFor:'defaults'!
135 cf8e46015072 . claus parents: diff changeset	960
140 0db355079dc4 . claus parents: 138 diff changeset	961	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	962	"return the default extent of my instances.
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	963	The value returned here is usually ignored, and
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	964	the value from preferredExtent taken instead."
140 0db355079dc4 . claus parents: 138 diff changeset	965
0db355079dc4 . claus parents: 138 diff changeset	966	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	967	^ CentPoint
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	968
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	969	"Modified: 22.4.1996 / 23:38:39 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	970	!
0db355079dc4 . claus parents: 138 diff changeset	971
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	972	defaultFont
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	973	\|f\|
0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	974
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	975	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	976
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	977	DefaultFont isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	978	self == SimpleView ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	979	f := self superclass defaultFont.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	980	] ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	981	f := super defaultFont
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	982	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	983	].
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	984
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	985	f notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	986	DefaultFont := f.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	987	f := f onDevice:(Screen current).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	988	f notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	989	DefaultFont := f.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	990	]
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	991	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	992	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	993
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	994	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	995	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	996
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	997	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	998	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	999
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1000	\|f\|
39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1001
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1002	DefaultFont := aFont.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1003	aFont notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1004	f := aFont onDevice:(Screen current).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1005	f notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1006	DefaultFont := f.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1007	]
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1008	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1009
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1010	"Modified: 18.3.1996 / 12:56:20 / cg"
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1011	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1012
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1013	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1014	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1015
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1016	^ DefaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1017
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1018	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1019	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1020	"
135 cf8e46015072 . claus parents: diff changeset	1021	!
cf8e46015072 . claus parents: diff changeset	1022
cf8e46015072 . claus parents: diff changeset	1023	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	1024	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	1025
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1026	DefaultStyle := aStyle.
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1027	(Screen notNil and:[Screen current notNil]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1028	self readStyleSheetAndUpdateAllStyleCaches.
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1029	].
135 cf8e46015072 . claus parents: diff changeset	1030
cf8e46015072 . claus parents: diff changeset	1031	"
cf8e46015072 . claus parents: diff changeset	1032	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1033	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1034	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1035	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1036	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1037	"
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1038
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1039	"Modified: / 15.9.1998 / 22:05:02 / cg"
135 cf8e46015072 . claus parents: diff changeset	1040	!
cf8e46015072 . claus parents: diff changeset	1041
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1042	defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1043	"return the default view background"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1044
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1045	^ DefaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1046
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1047	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1048	View defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1049	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1050
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1051	"Modified: 13.8.1997 / 19:37:55 / cg"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1052	!
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1053
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1054	readStyleSheet
3181 35d4e8a2bebd comment ps parents: 3180 diff changeset	1055	"(re)load the styleSheet."
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1056
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1057	DefaultStyle isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1058	self setDefaultStyle
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1059	].
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1060
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1061	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1062	StyleSheet fileReadFailed ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1063	('SimpleView [warning]: ***** no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1064	DefaultStyle ~~ #normal ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1065	DefaultStyle := #normal.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1066	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1067
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1068	StyleSheet fileReadFailed ifTrue:[
3889 2a57ed08e15f * empty log message * Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	1069	'SimpleView [warning]: not even a styleSheet for normal-style (using ugly defaults).' errorPrintCR.
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1070	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1071	]
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1072	].
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	"Created: / 15.9.1998 / 22:03:06 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1075	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1076
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1077	readStyleSheetAndUpdateAllStyleCaches
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1078	"reload all style caches in all view classes.
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1079	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	1080
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1081	DefaultStyle notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1082	self readStyleSheet.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1083	self updateAllStyleCaches
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1084	]
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1085
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1086	"Created: / 15.9.1998 / 22:03:59 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1087	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1088
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1089	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1090	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1091	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1092
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1093	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1094	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1095
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1096	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1097	"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	1098	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	1099	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	1100	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	1101	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	1102	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	1103	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	1104	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	1105	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	1106	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1107
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1108	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1109
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1110	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1111	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1112	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1113	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1114	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1115
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1116	setDefaultStyle
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1117	\|defStyle\|
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1118
3185 98fd08dcf366 checkin from browser Stefan Vogel <sv@exept.de> parents: 3183 diff changeset	1119	DefaultStyle isNil ifTrue:[
3830 d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1120	defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1121	defStyle notNil ifTrue:[
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1122	DefaultStyle := defStyle asSymbol.
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1123	] ifFalse:[
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1124	(OperatingSystem isMSWINDOWSlike
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1125	or:[OperatingSystem getOSType = #linux]) ifTrue:[
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1126	DefaultStyle := #mswindows95
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1127	] ifFalse:[
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1128	DefaultStyle := #motif
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1129	]
d421b20c5d93 default viewStyle under linux is now also #mswindows95 Claus Gittinger <cg@exept.de> parents: 3821 diff changeset	1130	].
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1131	].
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1132	!
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1133
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1134	styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1135	"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	1136
3923 5e0345a32742 stylesheet access Claus Gittinger <cg@exept.de> parents: 3922 diff changeset	1137	StyleSheet isNil ifTrue:[
3924 758fb7f352f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 3923 diff changeset	1138	self updateAllStyleCaches.
3923 5e0345a32742 stylesheet access Claus Gittinger <cg@exept.de> parents: 3922 diff changeset	1139	].
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1140	^ StyleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1141
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1142	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1143	View styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1144	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1145
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1146	"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	1147	!
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1148
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1149	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1150	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1151
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1152	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1153	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1154	self updateAllStyleCaches.
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	updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1158	"reload all style caches in all view classes.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1159	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	1160
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1161	(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	1162
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1163	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1164	tell all view classes to flush any
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1165	cached style-data
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1166	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1167	self changed:#style.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1168	SimpleView updateStyleCache.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1169	SimpleView allSubclassesDo:[:aClass \|
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1170	aClass defaultFont:nil.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1171	(aClass class includesSelector:#updateStyleCache) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1172	aClass updateStyleCache
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1173	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1174	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1175
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1176	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1177	View updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1178	"
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1179
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1180	"Modified: / 15.9.1998 / 22:04:15 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1181	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1182
135 cf8e46015072 . claus parents: diff changeset	1183	updateStyleCache
cf8e46015072 . claus parents: diff changeset	1184	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	1185	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	1186	Subclasses should redefine this to load any cached style-values
cf8e46015072 . claus parents: diff changeset	1187	into faster class variables as well. These should NOT do a
cf8e46015072 . claus parents: diff changeset	1188	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	1189	anyway."
cf8e46015072 . claus parents: diff changeset	1190
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1191	<resource: #style (#viewSpacing #font #borderWidth #borderColor
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1192	#viewBackground #shadowColor #lightColor
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1193	#focusColor #focusBorderWidth)>
2292 8efc5272cf0b defaultStyle either from environmane (STX_VIEWSTYLE) Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	1194
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1195	\|bgGrey currentScreen\|
135 cf8e46015072 . claus parents: diff changeset	1196
cf8e46015072 . claus parents: diff changeset	1197	"
cf8e46015072 . claus parents: diff changeset	1198	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	1199	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	1200	"
cf8e46015072 . claus parents: diff changeset	1201	StyleSheet isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1202	self setDefaultStyle.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1203	self readStyleSheet.
135 cf8e46015072 . claus parents: diff changeset	1204	].
cf8e46015072 . claus parents: diff changeset	1205
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1206	currentScreen := Screen current.
c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1207
135 cf8e46015072 . claus parents: diff changeset	1208	Grey := StyleSheet viewGrey.
cf8e46015072 . claus parents: diff changeset	1209	Grey isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1210	Grey := Color grey
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1211	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1212	Grey := Grey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1213
151 8123ec03c52f . claus parents: 145 diff changeset	1214	StyleSheet fileReadFailed ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1215	bgGrey := White
135 cf8e46015072 . claus parents: diff changeset	1216	] ifFalse:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1217	currentScreen hasGrayscales ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1218	bgGrey := Grey
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1219	] ifFalse:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1220	bgGrey := White
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1221	]
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1222	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1223	bgGrey := bgGrey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1224
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1225	ViewSpacing := StyleSheet at:#viewSpacing.
135 cf8e46015072 . claus parents: diff changeset	1226	ViewSpacing isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1227	ViewSpacing := currentScreen defaultStyleValueFor:#viewSpacing.
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1228	].
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1229
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1230	DefaultBorderColor := StyleSheet colorAt:#borderColor.
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1231	DefaultBorderColor isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1232	DefaultBorderColor := currentScreen defaultStyleValueFor:#borderColor
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1233	].
151 8123ec03c52f . claus parents: 145 diff changeset	1234
8123ec03c52f . claus parents: 145 diff changeset	1235	StyleSheet fileReadFailed ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1236	DefaultBorderWidth := 1.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1237	DefaultShadowColor := Black.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1238	DefaultLightColor := White.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1239	DefaultFocusColor := Black.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1240	DefaultFocusBorderWidth := 2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1241	DefaultViewBackgroundColor := White.
151 8123ec03c52f . claus parents: 145 diff changeset	1242	] ifFalse:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1243	DefaultBorderWidth := StyleSheet at:#borderWidth default:0.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1244	DefaultViewBackgroundColor := StyleSheet colorAt:#viewBackground default:bgGrey.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1245	DefaultShadowColor := StyleSheet colorAt:#shadowColor.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1246	DefaultLightColor := StyleSheet colorAt:#lightColor.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1247	DefaultFocusColor := StyleSheet colorAt:#focusColor default:Color red.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1248	DefaultFocusBorderWidth := StyleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	1249	].
135 cf8e46015072 . claus parents: diff changeset	1250
526 3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1251	self == SimpleView ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1252	DefaultFont := StyleSheet at:#font.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1253	DefaultFont isNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1254	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1255	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1256	DefaultFont := DefaultFont onDevice:currentScreen.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1257	] ifFalse:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1258	DefaultFont := nil
135 cf8e46015072 . claus parents: diff changeset	1259	].
cf8e46015072 . claus parents: diff changeset	1260
cf8e46015072 . claus parents: diff changeset	1261	DefaultViewBackgroundColor isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1262	'SimpleView [warning]: bad viewBackground in style - using white' errorPrintCR.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1263	DefaultViewBackgroundColor := White
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1264	].
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1265
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1266	"Modified: / 29.4.1997 / 11:16:52 / dq"
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1267	"Modified: / 8.3.1999 / 01:36:05 / cg"
135 cf8e46015072 . claus parents: diff changeset	1268	!
cf8e46015072 . claus parents: diff changeset	1269
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1270	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1271	"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	1272	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	1273	get a common look"
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	^ ViewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1276	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1277
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1278	!SimpleView class methodsFor:'resources'!
269 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	classResources
4091 3995bf25130a classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	1281	"if not already loaded, get the classes resourcePack and return it"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1282
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1283	ClassResources isNil ifTrue:[
4091 3995bf25130a classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	1284	ClassResources := super classResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1285	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1286	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1287	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1288
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1289	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1290	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1291
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1292	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1293	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1294
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1295	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1296	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1297	Needed after a resource file has changed."
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	ResourcePack flushCachedResourcePacks.
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	1300	SimpleView withAllSubclassesDo:[:aClass \|
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1301	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1302	]
0db355079dc4 . claus parents: 138 diff changeset	1303
0db355079dc4 . claus parents: 138 diff changeset	1304	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1305	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	1306	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1307	"to change the language:
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1308	Language := #en.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1309	Smalltalk changed:#Language.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1310	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1311	or:
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1312	Language := #de.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1313	Smalltalk changed:#Language.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1314	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1315	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1316	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1317
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1318	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1319	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1320	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1321
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1322	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1323	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1324
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1325	resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1326	^ self classResources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1327
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1328	"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	1329	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1330
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1331	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1332	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1333	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1334
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1335	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1336	self classResources
135 cf8e46015072 . claus parents: diff changeset	1337	! !
cf8e46015072 . claus parents: diff changeset	1338
3781 9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1339	!SimpleView class methodsFor:'startup'!
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1340
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1341	open
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1342	"create, realize the view - this topview and all its subviews will
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1343	run as a separate process with its own windowGroup"
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1344
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1345	^ self new open
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1346	!
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1347
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1348	openOnXScreenNamed:aScreenName
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1349	"create an instance of the view and open it
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1350	on some X display screen. The argument aScreenName must be
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1351	a valid x-display name (i.e. of the form '<host>:<screenNr>' as in 'foo:0').
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1352	For more info, read the document on multiple display
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1353	support and the documentation of the DeviceWorkstation class."
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1354
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1355	\|newDevice\|
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1356
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1357	[
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1358	newDevice := XWorkstation newDispatchingFor:aScreenName.
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1359	] on:Screen deviceOpenErrorSignal do:[:ex\|
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1360	self warn:'Could not open display: ' , aScreenName.
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1361	^ self
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1362	].
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1363	^ (self onDevice:newDevice) open.
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1364
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1365	"
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1366	FileBrowser openOnXScreenNamed:'bitsy:0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1367	FileBrowser openOnXScreenNamed:':0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1368	View openOnXScreenNamed:'bitsy:0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1369	"
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1370
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1371	"Modified: 13.1.1997 / 20:55:27 / cg"
3781 9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1372	! !
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1373
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	1374	!SimpleView methodsFor:'Compatibility-ST80'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1375
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1376	bounds
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1377	"ST-80 compatibility: return my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1378
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1379	^ (self origin) corner:(self corner)
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1380
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1381	"Created: 4.6.1996 / 21:23:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1382	"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	1383	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1384
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1385	bounds:aRectangle
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1386	"ST-80 compatibility: change my bounds"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1387
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1388	explicitExtent := true.
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	1389	self pixelOrigin:aRectangle origin
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1390	corner:aRectangle corner
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1391
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1392	"Created: 4.6.1996 / 21:44:27 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1393	"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	1394	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1395
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1396	checkForEvents
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1397	"ST-80 compatibility:
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1398	check for any pending events and process them"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1399
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1400	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1401
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1402	"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	1403	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1404
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1405	closeAndUnschedule
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1406	"actually sent to a controller in VW...
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1407	however, #open returns the view in ST/X, so we respond here"
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1408
3316 b9cb3eac524e * empty log message * Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	1409	self topView destroy
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1410	!
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1411
3775 fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1412	displayOn:aGCOrStream
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1413	"ST-80 compatibility: (re-)display myself"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1414
3775 fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1415	"/ what a kludge - Dolphin and Squeak mean: printOn:;
fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1416	"/ ST/X (and some old ST80's) mean: draw-yourself on.
fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1417	(aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[
fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1418	^ super displayOn:aGCOrStream
3774 a85ec40ac028 displayOn: confusion kludge tm parents: 3765 diff changeset	1419	].
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1420	self redraw
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1421
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1422	"Created: 4.6.1996 / 21:25:59 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1423	"Modified: 10.1.1997 / 19:46:58 / cg"
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1424	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1425
1432 23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1426	displayPendingInvalidation
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1427	"dummy - for ST-80 compatibility"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1428
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1429	"Created: 6.3.1997 / 15:17:14 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1430	"Modified: 6.3.1997 / 15:17:31 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1431	!
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1432
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1433	isEnabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1434	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1435	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1436	be disabled.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1437	#isEnabled is ST-80's equivalent of #enabled"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1438
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1439	^ self enabled
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1440	!
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1441
2061 25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1442	isOpen
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1443	"ST80 compatibility"
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1444
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1445	^ realized
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1446
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1447
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1448	!
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1449
2159 da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1450	lookPreferences:prefs
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1451	"ignored - but required for some apps"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1452
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1453	"Created: / 19.6.1998 / 00:05:10 / cg"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1454	!
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1455
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1456	newLayout:aLayoutObject
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1457	"set the layout object which controls my geometry.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1458	ST80-compatibility."
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1459
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1460	here layout:aLayoutObject.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1461
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1462	"Created: 3.3.1997 / 18:54:53 / cg"
1427 35214ddde67c checkin from browser ca parents: 1425 diff changeset	1463	!
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1464
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1465	refresh
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1466	self invalidate
3909 e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1467	!
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1468
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1469	takeKeyboardFocus
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1470	self requestFocus
151 8123ec03c52f . claus parents: 145 diff changeset	1471	! !
8123ec03c52f . claus parents: 145 diff changeset	1472
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	1473	!SimpleView methodsFor:'Compatibility-Squeak'!
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1474
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1475	insetDisplayBox
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1476	"Squeak mimicri: return my bounds"
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1477
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1478	^ 0@0 corner:(self corner)
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1479
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1480	! !
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1481
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1482	!SimpleView methodsFor:'accessing'!
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1483
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1484	keyboardProcessor
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1485	"return my keyboard processor"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1486
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1487	^ nil
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1488
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1489	"Created: / 13.2.1999 / 10:31:39 / cg"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1490	! !
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1491
2549 9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1492	!SimpleView methodsFor:'accessing-behavior'!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1493
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1494	disable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1495	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1496
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1497	self enabled:false
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1498
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1499	"Modified: / 30.3.1999 / 14:47:30 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1500	"Created: / 30.3.1999 / 15:54:11 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1501	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1502
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1503	enable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1504	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1505
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1506	self enabled:true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1507
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1508	"Modified: / 30.3.1999 / 14:47:22 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1509	"Created: / 30.3.1999 / 15:54:16 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1510	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1511
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1512	enabled
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1513	"views are enabled by default"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1514
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1515	^ true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1516
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1517	"Modified: / 30.3.1999 / 16:27:57 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1518	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1519
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1520	enabled:bool
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1521	"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	1522	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	1523
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1524	"Modified: / 30.3.1999 / 14:46:24 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1525	"Created: / 30.3.1999 / 15:54:21 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1526	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1527
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1528	isEnabled:aState
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1529	"ST-80 compatibility; set enabled state
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1530	"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1531	self enabled:aState
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1532
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1533	"Created: / 30.3.1999 / 15:54:29 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1534	! !
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1535
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1536	!SimpleView methodsFor:'accessing-bg & border'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1537
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1538	allSubViewsBackground:something
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1539	"set the viewBackground to something, a color, image or form,
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1540	recursively in all of my subviews"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1541
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1542	subViews notNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1543	subViews do:[:v\|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1544	v allViewBackground:something
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	1545	]
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1546	]
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1547
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1548	"Modified: / 18.7.1996 / 13:34:26 / cg"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1549	"Created: / 31.10.2000 / 13:06:02 / bg"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1550	!
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1551
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1552	allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1553	"set the viewBackground to something, a color, image or form,
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1554	in myself and recursively in all of my subviews"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1555
2784 cd0a37151aba allViewBackground: now implies a redraw Claus Gittinger <cg@exept.de> parents: 2769 diff changeset	1556	viewBackground ~~ something ifTrue:[
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	1557	self viewBackground:something.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	1558	self invalidate
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1559	].
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1560
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1561	self allSubViewsBackground:something
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1562
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1563	"Modified: / 31.10.2000 / 13:06:17 / bg"
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1564	!
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1565
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1566	backgroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1567	"return the background color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1568	here, (since there is no contents), the viewBackground is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1569
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1570	^ self viewBackground
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1571
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1572	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1573	"Created: / 18.6.1998 / 15:59:36 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1574	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1575
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1576	backgroundColor:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1577	"set the background color of the contents -
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1578	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	1579
4192 6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1580	self viewBackground:aColor.
6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1581	shown ifTrue:[
6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1582	self clear; invalidate.
6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1583	].
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1584
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1585	"Created: 3.5.1997 / 10:26:49 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1586	"Modified: 3.5.1997 / 10:28:04 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1587	!
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1588
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1589	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1590	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1591
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1592	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1593	^ superView borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1594	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1595
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1596	^ borderColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1597
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1598	"Modified: 5.6.1996 / 14:11:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1599	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1600
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1601	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1602	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1603
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1604	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1605	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1606	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1607	^ superView borderColor:aColor
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1608	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1609
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1610	(aColor ~~ borderColor) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1611	borderColor := aColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1612	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1613	self setBorderColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1614	]
269 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
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1617	"Modified: 5.6.1996 / 14:11:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1618	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1619
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1620	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1621	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1622
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	1623	aForm isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1624	viewShape := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1625	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1626	device setWindowBorderShape:nil in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1627	]
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	1628	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1629	viewShape isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1630	viewShape := ArbitraryViewShape new
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1631	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1632	viewShape borderShapeForm:aForm.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1633	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1634	device setWindowBorderShape:(aForm id) in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1635	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1636	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1637
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1638	"Modified: 18.9.1997 / 11:09:40 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1639	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1640
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1641	borderWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1642	"return my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1643
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1644	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1645	^ superView borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1646	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1647
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1648	^ borderWidth
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1649
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1650	"Modified: 5.6.1996 / 14:11:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1651	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1652
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1653	borderWidth:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1654	"set my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1655
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1656	\|bd\|
901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	1657
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1658	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1659	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1660	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1661	^ superView borderWidth:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1662	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1663
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1664	(aNumber ~~ borderWidth) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1665	bd := aNumber.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1666	(device supportsWindowBorder:bd) ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1667	bd > 1 ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1668	(device supportsWindowBorder:(bd := 1)) ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1669	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1670	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1671	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1672	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1673	borderWidth := bd.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1674	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1675	device setWindowBorderWidth:aNumber in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1676	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1677	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1678
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1679	"Modified: 5.6.1996 / 14:12:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1680	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1681
4150 9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1682	fillFormWithBorderShape:aForm
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1683	"fill aForm with my borderShape"
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1684
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1685	aForm fillRectangle:(Rectangle origin:self origin corner:self corner).
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1686	!
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1687
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1688	foregroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1689	"return the foreground color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1690	here, (since there is no contents), some default is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1691
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1692	^ Color black
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1693
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1694	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1695	"Created: / 18.6.1998 / 16:57:33 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1696	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1697
3392 70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	1698	foregroundColor:aColor
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	1699	"set the foreground color of the contents -
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	1700	ignored here, since there is no contents."
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	1701	!
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	1702
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1703	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1704	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1705
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1706	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1707	^ superView level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1708	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1709
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1710	^ level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1711
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1712	"Modified: 5.6.1996 / 14:12:10 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1713	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1714
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1715	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1716	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1717
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1718	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1719
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1720	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1721	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1722	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
4069 70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1723	^ superView level:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1724	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1725
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1726	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
4069 70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1727	self is3D ifTrue:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1728	level := aNumber.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1729	oldMargin := margin.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1730	margin := level abs.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1731
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1732	realized ifTrue:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1733	margin ~~ oldMargin ifTrue:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1734	(margin > oldMargin) ifTrue:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1735	how := #smaller
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1736	] ifFalse:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1737	how := #larger
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1738	].
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1739	self sizeChanged:how.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1740	self setInnerClip.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1741	].
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1742	shown ifTrue:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1743	margin ~~ oldMargin ifTrue:[
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1744	self clearView.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1745	self redrawX:margin y:margin
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1746	width:width-(margin*2)
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1747	height:height-(margin*2)
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1748	].
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1749	self redrawEdges.
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1750	]
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1751	]
70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	1752	]
135 cf8e46015072 . claus parents: diff changeset	1753	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1754
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1755	"Modified: 5.6.1996 / 14:12:17 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1756	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1757
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1758	lightColor
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1759	"returb the color to be used for lighted edges (3D only)"
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1760
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1761	^ lightColor
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1762	!
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1763
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1764	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1765	"set the color to be used for lighted edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1766
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1767	lightColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1768	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1769
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1770	margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1771	"return my inner margin - this is usually the level,
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1772	but can be more for some views
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1773	(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	1774
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1775	^ margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1776
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	1777	"Modified: 5.6.1996 / 14:37:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1778	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1779
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1780	shadowColor
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1781	"returb the color to be used for shadowed edges (3D only)"
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1782
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1783	^ shadowColor
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1784	!
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	1785
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1786	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1787	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1788
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1789	shadowColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1790	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1791
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1792	viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1793	"set the viewBackground to something, a color, image or form.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1794	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	1795	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	1796	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1797
2584 55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	1798	\|avgColor\|
55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	1799
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1800	"/ debug check only:
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1801	something isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1802	self error:'invalid viewBackground argument'.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1803	^ self
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1804	].
b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1805
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1806	something isColor ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1807	device hasGrayscales ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1808	avgColor := something averageColorIn:(0@0 corner:7@7).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1809	shadowColor := avgColor darkened "on:device".
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1810	lightColor := avgColor lightened "on:device".
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1811	]
135 cf8e46015072 . claus parents: diff changeset	1812	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1813	super viewBackground:something
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	1814
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	1815	"Modified: 4.7.1997 / 20:09:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1816	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1817
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1818	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1819	"set the viewShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1820
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	1821	aForm isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1822	viewShape := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1823	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1824	device setWindowShape:nil in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1825	]
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	1826	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1827	viewShape isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1828	viewShape := ArbitraryViewShape new
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1829	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1830
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1831	viewShape viewShapeForm:aForm.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1832	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1833	device setWindowShape:(aForm id) in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1834	]
135 cf8e46015072 . claus parents: diff changeset	1835	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1836
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1837	"Modified: 18.9.1997 / 11:11:04 / 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
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1840	!SimpleView methodsFor:'accessing-channels'!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1841
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1842	setupChannel:newChannel for:changeSelector withOld:oldChannel
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1843	"common code to change a channel.
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1844	If changeSelector is non-nil, arrange for it to be sent when
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1845	the channel changes its value; otherwise, arrange for a simple update.
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1846	This is so common, that ist worth a helper method:
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1847	release any old channel (if non-nil),
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1848	arrange for changeSelector (or #update) to be sent for the new channel."
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1849
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1850	\|oldValue\|
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1851
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1852	oldChannel == newChannel ifTrue:[^ self].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1853
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1854	oldChannel notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1855	changeSelector isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1856	oldChannel removeDependent:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1857	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1858	oldChannel retractInterestsFor:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1859	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1860	oldValue := oldChannel value.
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1861	].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1862	newChannel notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1863	changeSelector isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1864	newChannel addDependent:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1865	newChannel value ~~ oldValue ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1866	self update:#value with:nil from:newChannel.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1867	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1868	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1869	newChannel onChangeSend:changeSelector to:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1870	newChannel value ~~ oldValue ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1871	self perform:changeSelector.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1872	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1873	]
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1874	].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1875
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1876	^ newChannel
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1877
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1878	"Modified: / 31.10.1997 / 14:47:21 / cg"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1879	! !
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	1880
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1881	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1882
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1883	heightOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1884	"return the height of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1885	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1886	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	1887	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	1888	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	1889	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	1890	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	1891	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	1892	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	1893	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	1894	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	1895	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1896
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1897	^ (self innerHeight max:(self maxSubViewBottom)) max:self maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1898
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1899	"Modified: 26.5.1996 / 12:44:21 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1900	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1901
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1902	widthOfContents
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1903	"return the width of the contents in logical units
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1904	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1905	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	1906	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	1907	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	1908	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	1909	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	1910	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	1911	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	1912	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	1913	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	1914	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1915
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1916	^ (self innerWidth max:(self maxSubViewRight)) max:self maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1917
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	1918	"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	1919	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	1920
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1921	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1923	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1924	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1925	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1926
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1927	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1928	insets := Array new:4.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1929	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1930	insets atAllPut:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1931
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1932	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1933	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	1934	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1935	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1936	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1937	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1938
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1939	"Modified: 19.7.1996 / 17:30:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1940	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1941
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1942	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1943	"return the y position of the actual bottom edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1944
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1945	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1946	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1947
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1948	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1949	"set the corners y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1950
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1951	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1952	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1953
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1954	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1955	"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	1956	negative to the bottom"
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	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1959	^ insets at:4
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1960	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1961
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1962	bottomInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1963	"set the inset of the bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1964	positive is to the top (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1965	negative to the bottom (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1966
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1967	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1968	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1969	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1970	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1971
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1972	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1973	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	1974	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1975	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1976	self containerChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1977	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1978
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	1979	"Modified: 19.7.1996 / 17:30:22 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1982	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1983	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1984
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1985	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1986	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1987
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1988	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1989	"move the receiver so that newCenter, aPoint becomes the center point"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1990
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1991	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1992	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1993
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1994	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1995	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1996	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1997	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	1998	Returns the corner point in device coordinates (pixels)."
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	\|org newCorner newExt x y\|
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	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2004	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2005	layout notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2006	superView isNil ifTrue:[^ self preferredBounds corner].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2007	^ (layout rectangleRelativeTo:(superView viewRectangle)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2008	preferred:[self preferredBounds]) corner rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2009	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2010
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2011	(cornerRule notNil) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2012	newCorner := cornerRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2013	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2014	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2015	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2016	x := newCorner x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2017	y := newCorner y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2018	x isNil ifTrue:[x := self corner x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2019	y isNil ifTrue:[y := self corner y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2020	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2021	newCorner := self cornerFromRelativeCorner:x@y
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2022	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2023	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2024	(relativeCorner notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2025	newCorner := self cornerFromRelativeCorner:relativeCorner
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2026	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2027	org := self computeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2028	(extentRule notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2029	newExt := extentRule value
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2030	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2031	(relativeExtent notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2032	newExt := self extentFromRelativeExtent:relativeExtent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2033	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2034	newExt := self extent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2035	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2036	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2037	newCorner := org + newExt
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2038	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2039	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2040	^ newCorner
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2041
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2042	"Modified: 28.2.1997 / 10:33:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2043	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2044
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2045	computeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2046	"compute my extent; if I have a layoutObject, a relative extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2047	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2048	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2049	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2050	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2051	Returns the extent in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2052
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2053	\|newOrg newExt newCorner x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2054
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2055	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2056	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2057	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2058	layout notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2059	^ (layout rectangleRelativeTo:(superView viewRectangle)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2060	preferred:[self preferredBounds]) extent rounded
135 cf8e46015072 . claus parents: diff changeset	2061	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2062
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2063	(cornerRule notNil) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2064	newCorner := cornerRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2065	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2066	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2067	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2068	x := newCorner x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2069	y := newCorner y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2070	x isNil ifTrue:[x := self corner x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2071	y isNil ifTrue:[y := self corner y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2072	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2073	newCorner := self cornerFromRelativeCorner:x@y
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2074	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2075	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2076	(relativeCorner notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2077	newCorner := self cornerFromRelativeCorner:relativeCorner
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2078	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2079	(extentRule notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2080	newExt := extentRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2081	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2082	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2083	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2084	x := newExt x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2085	y := newExt y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2086	x isNil ifTrue:[x := width].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2087	y isNil ifTrue:[y := height].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2088	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2089	newExt := self extentFromRelativeExtent:x@y
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2090	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2091	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2092	(relativeExtent notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2093	newExt := self extentFromRelativeExtent:relativeExtent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2094	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2095	newExt := (width @ height).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2096	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2097	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2098	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2099	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2101	newCorner notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2102	newOrg := self computeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2103	^ newCorner - newOrg.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2104	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2105	^ newExt.
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2108	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2109	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2110	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2111	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	2112	Returns the origin point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2113
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2114	\|newOrg x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2115
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2116	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2117	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2118	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2119	layout notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2120	superView isNil ifTrue:[^ 0@0].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2121	^ (layout rectangleRelativeTo:(superView viewRectangle)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2122	preferred:[self preferredBounds]) origin rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2123	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2124
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2125	(originRule notNil) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2126	newOrg := originRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2127	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2128	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2129	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2130	x := newOrg x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2131	y := newOrg y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2132	x isNil ifTrue:[x := self origin x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2133	y isNil ifTrue:[y := self origin y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2134	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2135	newOrg := self originFromRelativeOrigin:x@y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2136	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2137	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2138	(relativeOrigin notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2139	newOrg := self originFromRelativeOrigin:relativeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2140	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2141	^ (left @ top).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2142	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2143	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2144	^ newOrg
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2147	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2148	"return the lower right corner-point (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2149
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2150	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2151	^ (left + width - 1) @ (top + height - 1)
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	"Modified: 31.8.1995 / 16:51:40 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2154	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2155
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2156	corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2157	"set the views corner;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2158	the corner argument may be:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2159	a point
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2160	where integer fields mean 'pixel-values'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2161	and float values mean 'relative-to-superview'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2162	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2163	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2164	Please migrate to use layoutObjects, if possible."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2165
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2166	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2167
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2168	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2169
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2170	corner isBlock ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2171	cornerRule := corner.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2172	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2173	pixelCorner := corner value
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2174	] ifFalse:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2175	self extentChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2176	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2177	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2178	x := corner x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2179	y := corner y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2180	x isNil ifTrue:[x := self corner x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2181	y isNil ifTrue:[y := self corner y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2182	c := x @ y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2183	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2184	relativeCorner := c.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2185	pixelCorner := self cornerFromRelativeCorner.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2186	pixelCorner isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2187	self extentChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2188	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2189	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2190	pixelCorner := c
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2191	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2192	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2193
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2194	pixelCorner notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2195	self pixelCorner:pixelCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2196	]
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2197
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2198	"Modified: 15.7.1996 / 09:51:06 / cg"
269 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
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2201	cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2202	"return the corner block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2203
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2204	^ cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2205	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2206
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2207	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2208	"set the views extent;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2209	extent may be:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2210	a point
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2211	where integer fields mean 'pixel-values'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2212	and float values mean 'relative-to-superview'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2213	and nil means 'leave current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2214	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2215	Be careful when using relative extents: rounding errors may
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2216	accumulate. Better use origin/corner.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2217	Best: migrate to use layour objects.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2218
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2219	Notice: this sets the views explicitExtent flag, which prevents it normally
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2220	from resizing itself to its preferredExtent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2221	See initialExtent: for a variation."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2222
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2223	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2224
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2225	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2226
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2227	extent isBlock ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2228	extentRule := extent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2229	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2230	pixelExtent := extent value
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2231	] ifFalse:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2232	self extentChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2233	]
135 cf8e46015072 . claus parents: diff changeset	2234	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2235	w := extent x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2236	h := extent y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2237	w isNil ifTrue:[w := width].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2238	h isNil ifTrue:[h := height].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2239	e := w@h.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2240	((w isInteger not) or:[h isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2241	relativeExtent := e.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2242	pixelExtent := self extentFromRelativeExtent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2243	pixelExtent isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2244	self extentChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2245	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2246	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2247	relativeExtent := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2248	pixelExtent := e
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2249	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2250	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2251	pixelExtent notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2252	self pixelExtent:pixelExtent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2253	]
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2254
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2255	"Modified: 15.7.1996 / 09:51:21 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2256	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2257
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2258	extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2259	"return the extent block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2260
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2261	^ extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2262	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2263
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2264	frame
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2265	"compatibility with displayObjects: returns my bounds"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2266
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2267	^ self bounds
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2268	!
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2269
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2270	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2271	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2272	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2273	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2274	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	2275	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2276
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2277	^ here layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2278	!
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	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2281	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2282	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2283	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2284	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	2285	notice."
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	here layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2288	!
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	height:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2291	"set the views height in pixels"
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	self extent:(width @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2294	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2295
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2296	heightIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2297	"return my height including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2298	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2299	while #height returns the height as seen by myself)"
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	^ height + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2302	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2303
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2304	horizontalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2305	"set the insets of the left/right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2306	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2307
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2308	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2309	insets := Array with:0 with:0 with:0 with:0
135 cf8e46015072 . claus parents: diff changeset	2310	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2311	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2312	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2313
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2314	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2315	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2316	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2317	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2318	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2319	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2320
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2321	"Modified: 19.7.1996 / 17:30:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2322	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2323
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2324	initialExtent:extent
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2325	"set the views extent, but dont change its explicitExtent setting.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2326	a variant of #extent."
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2327
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2328	\|expl\|
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2329
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2330	expl := explicitExtent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2331	self extent:extent.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2332	explicitExtent := expl
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2333	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2334
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2335	initialHeight:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2336	"set the views height in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2337
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2338	self initialExtent:(width @ aNumber)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2339	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2340
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2341	initialWidth:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2342	"set the views width in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2343
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2344	self initialExtent:(aNumber @ height)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2345	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2346
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2347	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2348	"return the height of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2349
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2350	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2351	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2352	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2353
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2354	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2355	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2356	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2357
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2358	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2359	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2360
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2361	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2362	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2363	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2364	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2365
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2366	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2367	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2368
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2369	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2370	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2371	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2372	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2373
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2374	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2375	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2376
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2377	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2378	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2379
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2380	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2381	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2382	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2383
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2384	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2385	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2386	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2387
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2388	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2389	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2390
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2391	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2392	"set all insets; positive makes the view smaller,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2393	negative makes it larger."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2394
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2395	self allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2396	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2397
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2398	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2399	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2400	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2401	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2402	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2403	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2404	since the above listed instance variables will vanish."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2405
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2406	^ layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2407	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2408
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2409	layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2410	"set the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2411	Currently, this is almost nowhere used but views will be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2412	incrementally changed to use this new geometry management."
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	layout := aLayoutObject.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2415	superView isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2416	self originChangedFlag:true.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2417	self cornerChangedFlag:true.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2418	self extentChangedFlag:true.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2419	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2420	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2421	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2422
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2423	"Modified: 19.9.1995 / 16:17:25 / claus"
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2424	"Modified: 19.7.1996 / 17:30:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2425	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2426
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2427	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2428	"return the x position of the left border (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2429
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2430	^ left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2431	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2432
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2433	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2434	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2435
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2436	self origin:(aNumber @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2437	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2438
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2439	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2440	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2441
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2442	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2443	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2444
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2445	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2446	"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	2447	negative to the left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2448
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2449	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2450	^ insets at:1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2451	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2452
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2453	leftInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2454	"set the inset of the left edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2455	positive is to the right (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2456	negative to the left (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2457
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2458	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2459	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2460	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2461	insets at:1 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2462
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2463	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2464	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2465	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2466	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2467	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2468	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2469
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2470	"Modified: 19.7.1996 / 17:30:30 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2471	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2472
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2473	makeFullyVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2474	"make sure, that the view is fully visible by shifting it
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2475	into the visible screen area if nescessary.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2476	This method will be moved to StandardSystemView ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2477
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2478	\|devBot devRight newTop newLeft\|
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	newTop := top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2481	newLeft := left.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2482
1703 b77cc326916d take usableExtent as max. Claus Gittinger <cg@exept.de> parents: 1702 diff changeset	2483	((top + height) > (devBot := device usableHeight)) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2484	newTop := devBot - height
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2485	].
1703 b77cc326916d take usableExtent as max. Claus Gittinger <cg@exept.de> parents: 1702 diff changeset	2486	((left + width) > (devRight := device usableWidth)) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2487	newLeft := devRight - width
269 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	(newTop < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2490	newTop := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2491	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2492	(newLeft < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2493	newLeft := 0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2494	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2495	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2496	self origin:newLeft @ newTop
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2497	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2498	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2499
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2500	makeRoundViewShapeWithBorder:bw
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2501	"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	2502	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	2503
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2504	self makeRoundViewShapeWithBorder:bw opaque:true.
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2505
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2506	!
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2507
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2508	makeRoundViewShapeWithBorder:bw opaque:opaque
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2509	"setup my window for a round shaped view;
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2510	this is not supported by all devices"
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2511
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2512	\|extent shapeForm borderForm w h f\|
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2513
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2514	device supportsRoundShapedViews ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2515	"/ TODO: add code for round shaped view (mswin)
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2516	].
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2517
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2518	device supportsArbitraryShapedViews ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2519	extent := self extent.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2520	w := extent x.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2521	h := extent y.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2522	borderForm := Form extent:extent.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2523	shapeForm := Form extent:extent.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2524
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2525	borderForm fillArcX:0 y:0
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2526	width:w
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2527	height:h
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2528	from:0
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2529	angle:360.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2530
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2531	opaque ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2532	f := borderForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2533	borderForm foreground:(Color colorId:0).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2534	] ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2535	f := shapeForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2536	shapeForm foreground:(Color colorId:1).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2537	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2538
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2539	f fillArcX:lineWidth y:lineWidth
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2540	width:w - (bw * 2)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2541	height:h - (bw * 2)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2542	from:0
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2543	angle:360.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2544
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2545	self borderShape:borderForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2546	self viewShape:shapeForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2547	^ self.
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2548
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2549	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2550	"/ extent := self extent.
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2551	"/
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2552	"/ w := extent x.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2553	"/ h := extent y.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2554	"/ borderForm := Form width:w height:h.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2555	"/ "/ borderForm fill:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2556	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2557	"/ shapeForm := Form width:w height:h.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2558	"/ "/ shapeForm fill:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2559	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2560	"/ borderForm foreground:(Color colorId:1).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2561	"/ borderForm
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2562	"/ fillArcX:0 y:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2563	"/ width:w
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2564	"/ height:h
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2565	"/ from:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2566	"/ angle:360.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2567	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2568	"/ opaque ifFalse:[
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2569	"/ f := borderForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2570	"/ borderForm foreground:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2571	"/ ] ifTrue:[
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2572	"/ f := shapeForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2573	"/ shapeForm foreground:(Color colorId:1).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2574	"/ ].
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2575	"/ f
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2576	"/ fillArcX:bw y:bw
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2577	"/ width:(w - (bw * 2))
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2578	"/ height:(h - (bw * 2))
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2579	"/ from:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2580	"/ angle:360.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2581	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2582	"/ self borderShape:borderForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2583	"/ self viewShape:shapeForm
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2584	]
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2585	!
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2586
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2587	makeTransparentRectangularViewShapeWithBorder:bw
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2588	"setup my window for a rectangluar transparent shaped view;
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2589	this is not supported by all devices"
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2590
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2591	\|extent shapeForm borderForm w h f\|
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2592
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2593	"/ device supportsPolygonShapedViews ifTrue:[
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2594	"/ "/ TODO: add code for mswin
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2595	"/ ].
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2596
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2597	device supportsArbitraryShapedViews ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2598	extent := self extent.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2599	w := extent x.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2600	h := extent y.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2601	borderForm := Form extent:extent.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2602	shapeForm := Form extent:extent.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2603
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2604	borderForm
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2605	fillRectangleX:0 y:0
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2606	width:w
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2607	height:h.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2608
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2609	f := borderForm.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2610	borderForm foreground:(Color colorId:0).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2611
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2612	borderForm
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2613	fillRectangleX:bw y:bw
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2614	width:w - (bw * 2)
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2615	height:h - (bw * 2).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2616
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2617	self borderShape:borderForm.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2618	self viewShape:shapeForm.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	2619	^ self.
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2620	]
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2621
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2622	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2623
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	2624	minExtent
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2625	"for compatibility with StdSysView"
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2626
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2627	^ nil
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2628	!
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2629
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2630	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2631	"return the origin (in pixels)"
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	^ left@top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2634	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2635
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2636	origin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2637	"set the views origin;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2638	origin may be:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2639	a point
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2640	where integer fields mean 'pixel-values'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2641	and float values mean 'relative-to-superview'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2642	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2643	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2644	Please migrate to use layout objects."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2645
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2646	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2647
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2648	origin isBlock ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2649	originRule := origin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2650	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2651	pixelOrigin := origin value
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2652	] ifFalse:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2653	self originChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2654	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2655	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2656	o := origin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2657	newLeft := origin x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2658	newTop := origin y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2659	newLeft isNil ifTrue:[newLeft := left].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2660	newTop isNil ifTrue:[newTop := top].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2661	o := newLeft @ newTop.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2662	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2663	relativeOrigin := o.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2664	pixelOrigin := self originFromRelativeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2665	pixelOrigin isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2666	self originChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2667	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2668	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2669	relativeOrigin := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2670	pixelOrigin := o
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2671	]
269 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	pixelOrigin notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2674	self pixelOrigin:pixelOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2675	].
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2676
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2677	"Modified: 19.4.1996 / 15:12:36 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2680	origin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2681	"set both origin and extent"
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	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2684
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2685	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2686
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2687	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2688
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2689	origin isBlock ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2690	corner isBlock ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2691	newLeft := origin x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2692	newLeft isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2693	newTop := origin y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2694	newTop isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2695	newRight := corner x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2696	newRight isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2697	newBot := corner y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2698	newBot isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2699	self pixelOrigin:origin corner:corner
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2700	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2701	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2702	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2703	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2704	]
135 cf8e46015072 . claus parents: diff changeset	2705	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2706	self origin:origin.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2707	self corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2708
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2709	"Modified: 15.7.1996 / 09:52:43 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2712	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2713	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2714
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2715	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2716
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2717	explicitExtent := true.
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2718
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2719	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2720
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2721	origin isBlock ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2722	extent isBlock ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2723	newLeft := origin x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2724	newLeft isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2725	newTop := origin y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2726	newTop isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2727	newWidth := extent x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2728	newWidth isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2729	newHeight := extent y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2730	newHeight isInteger ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2731	self pixelOrigin:origin extent:extent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2732	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2733	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2734	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2735	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2736	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2737	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2738	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2739	self origin:origin
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2740
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2741	"Modified: 15.7.1996 / 09:52:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2742	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2743
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2744	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2745	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2746	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2747	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	2748
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2749	\|currentView
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	2750	bw "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2751	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2752	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2753
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2754	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2755	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2756	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2757	[currentView notNil] whileTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2758	(currentView == aView) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2759	^ (sumX @ sumY)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2760	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2761	bw := currentView borderWidth.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2762	sumX := sumX + (currentView left) + bw.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2763	sumY := sumY + (currentView top) + bw.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2764	currentView := currentView superView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2765	].
729 d2fdca1c2895 eliminated references to RootView Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2766	(aView isNil or:[aView == device rootView]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2767	"return relative to screen ..."
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2768	^ (sumX @ sumY)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2769	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2770	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2772	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2773	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2774
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2775	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2776	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2777	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	2778	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	2779	top openAndWait.
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2780	Transcript show:'button in top:'; showCR:(sub2 originRelativeTo:top).
cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	2781	Transcript show:'button on screen:'; showCR:(sub2 originRelativeTo:nil).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2782	"
2171 df6af7cc7a62 fixed #originRelativeTo: when borderWidth ~~ 0 Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	2783
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	2784	"Modified: / 5.12.1998 / 14:30:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2785	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2786
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2787	originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2788	"return the origin block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2789
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2790	^ originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2791	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2792
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2793	preferredExtent:anExtentPoint
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2794	"override the views own preferredExtent computation,
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2795	and let it prefer the size given by the argument."
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2796
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2797	preferredExtent := anExtentPoint.
1038 fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2798
fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	2799	"Modified: 22.8.1996 / 13:41:47 / cg"
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2800	!
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	2801
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2802	relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2803	"return the relative corner or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2804
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2805	^ relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2806	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2807
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2808	relativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2809	"set the relative corner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2810
3627 eefbbc5c3d04 when setting a relativeExtent, clear any relativeCorner Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	2811	aPoint notNil ifTrue:[relativeExtent := nil].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2812	relativeCorner := aPoint
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2815	relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2816	"return the relative extent or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2817
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2818	^ relativeExtent
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2821	relativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2822	"set the relative extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2823
3627 eefbbc5c3d04 when setting a relativeExtent, clear any relativeCorner Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	2824	aPoint notNil ifTrue:[relativeCorner := nil].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2825	relativeExtent := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2826	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2827
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2828	relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2829	"return the relative origin or nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2831	^ relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2832	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2833
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2834	relativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2835	"set the relative origin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2836
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2837	relativeOrigin := aPoint
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2840	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2841	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2842
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2843	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2845	"Modified: 31.8.1995 / 19:31:10 / claus"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2848	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2849	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2850
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2851	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2852	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2853
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2854	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2855	"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	2856	negative to the right"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2857
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2858	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2859	^ insets at:3
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2860	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2861
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2862	rightInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2863	"set the inset of the right edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2864	positive is to the left (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2865	negative to the right (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2866
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2867	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2868	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2869	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2870	insets at:3 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2871
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2872	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2873	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2874	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2875	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2876	self containerChangedSize.
135 cf8e46015072 . claus parents: diff changeset	2877	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2878
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2879	"Modified: 19.7.1996 / 17:30:32 / 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
3007 1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2882	setOrigin:aPoint
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2883	"set the origin only"
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2884
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2885	left := aPoint x.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2886	top := aPoint y.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2887	!
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	2888
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2889	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2890	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2891	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2892	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	2893	true. Currently, only supported by Labels.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2894	This does NOT prevent the window manager from resizing the view,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2895	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2896	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2897
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2898	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2899	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2900
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2901	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2902	"return the y position of the top border"
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	^ top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2905	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2906
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2907	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2908	"set the y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2909
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2910	self origin:(left @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2911	!
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	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2914	"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	2915	negative to the top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2916
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2917	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2918	^ insets at:2
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	topInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2922	"set the inset of the top edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2923	positive is to the bottom (view becomes smaller),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2924	negative to the top (becomes larger)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2925
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2926	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2927	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2928	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2929	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2930
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2931	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2932	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2933	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2934	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2935	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2936	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2937
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2938	"Modified: 19.7.1996 / 17:30:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2939	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2940
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2941	verticalInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2942	"set the insets of the top/bottom edge;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2943	positive makes it smaller, negative makes it larger"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2944
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2945	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2946	insets := Array with:0 with:0 with:0 with:0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2947	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2948	insets at:2 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2949	insets at:4 put:aNumber.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2950
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2951	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2952	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2953	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2954	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2955	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2956	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2957
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2958	"Modified: 19.7.1996 / 17:30:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2959	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2960
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2961	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2962	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2963	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	2964	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2965	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	2966	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2967	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	2968	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	2969	(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	2970
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2971	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2972
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2973	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2974	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2975
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2976	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2977	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2978
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2979	width:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2980	"set the views width in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2981
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2982	self extent:(aNumber @ height)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2983	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2984
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2985	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2986	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2987	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2988	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2989
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2990	^ width + (2*borderWidth)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2991	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2992
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2993	!SimpleView methodsFor:'accessing-display attributes'!
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2994
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2995	setWindowClass:windowClassNameString name:nameString
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2996	"define class and name of a window.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2997	This may be used by the window manager to
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2998	select client specific resources."
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	2999
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3000	device setWindowClass:windowClassNameString name:nameString in:drawableId.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3001	! !
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3002
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3003	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3004
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3005	components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3006	"return the collection of non-view components"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3007
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3008	^ components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3009
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3010	"Created: 28.5.1996 / 23:59:37 / cg"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3011	!
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3012
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3013	container
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3014	"return my container"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3015
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3016	^ superView
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3017
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3018	"Created: 5.6.1996 / 01:08:36 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3019	"Modified: 10.1.1997 / 19:47:59 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3020	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3021
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3022	container:aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3023	"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	3024
3558 5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3025	superView == aContainer ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3026	"/ no change
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3027	^ self.
3558 5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3028	].
5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3029
3485 ee2792750943 checkin from browser Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	3030	(drawableId notNil) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3031	"/ actually, this is worth an exception
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3032	"/ ('View [error]: ' , self printString , ' already realized - cannot change container') errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3033	self error:'already realized - cannot change container' mayProceed:true.
3485 ee2792750943 checkin from browser Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	3034	].
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3035	(superView notNil and:[superView ~~ aContainer]) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3036	"/ actually, this is worth an exception
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3037	('View [warning]: ' , self printString , ' already has a container') errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3038	superView removeComponent:self.
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3039	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3040	superView := aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3041
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3042	"Created: 9.5.1996 / 00:40:56 / cg"
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	3043	"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	3044	!
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3045
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3046	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3047	"bring to back"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3048
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3049	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3050	device lowerWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3051
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3052	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3053	Transcript topView lower
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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3056
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3057	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3058	"bring to front"
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	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3061	device raiseWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3062
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	Transcript topView raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3065	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3066	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3067
3625 e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3068	setContainer:aContainer
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3069	"set my container (i.e. superView) to be aContainer"
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3070
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3071	superView := aContainer
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3072	!
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3073
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3074	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3075	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3076
3626 fa436ffc8ae7 subViews always returns a collection Claus Gittinger <cg@exept.de> parents: 3625 diff changeset	3077	^ subViews ? #()
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3078	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3079
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3080	subViews:aListOfViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3081	"set the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3082
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	3083	self obsoleteMethodWarning.
0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	3084
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3085	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	3086	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3087	subViews do:[:view \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3088	view container:self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3089	]
135 cf8e46015072 . claus parents: diff changeset	3090	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3091
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3092	"Modified: 9.5.1996 / 00:42:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	3093	!
cf8e46015072 . claus parents: diff changeset	3094
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3095	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3096	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3097
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3098	^ superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3099	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3101	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3102	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3103
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3104	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3105
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3106	self obsoleteMethodWarning:'use #container:'.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3107	self container:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3108
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3109	"Modified: 9.5.1996 / 00:46:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3110	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3111
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3112	topComponent
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3113	"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	3114	For ST-80 compatibility."
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3115
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3116	^ self topView
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3117
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3118	"Modified: 9.5.1996 / 01:40:24 / cg"
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3119	!
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3120
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3121	topView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3122	"return the topView - thats the one with no superview"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3123
3425 9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3124	\|v next n\|
9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3125
9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3126	n := 1.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3127	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3128	[v notNil] whileTrue:[
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3129	(next := v container) isNil ifTrue:[^ v].
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3130	v := next.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3131	n := n + 1.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3132	n > 1000 ifTrue:[self error:'circular superView chain'].
135 cf8e46015072 . claus parents: diff changeset	3133	].
cf8e46015072 . claus parents: diff changeset	3134
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3135	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3136
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3137	"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	3138	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3139
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3140	view
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3141	"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	3142	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	3143
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3144	^ self
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3145
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3146	"Created: 4.6.1996 / 21:32:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3147	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3148
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3149	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3151	menuHolder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3152	"who has the menu ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3153	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3154
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3155	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3156	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3157
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3158	menuMessage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3159	"Return the symbol sent to myself to aquire the menu"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3160
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3161	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3162	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3163
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3164	menuPerformer
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3165	"who should perform the menu actions ?
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3166	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3167
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3168	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3169	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3170
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3171	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3172	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3173	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3174	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3175	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3176	controller."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3177
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3178	\|sym menuHolder\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3179
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3180	"/ middleButtonMenu notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3181	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3182	"/ "/ has been assigned a static middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3183	"/ "/ (or a cached menu)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3184	"/ "/
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3185	"/ ^ middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3186	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3187
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3188	menuHolder := self menuHolder.
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3189	menuHolder isNil ifTrue:[^ nil].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3190
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3191	(menuHolder isKindOf:Menu) ifTrue:[^ menuHolder].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3192
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3193	sym := self menuMessage.
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3194	sym isNil ifTrue:[^ nil].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3195
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3196	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3197	mhmh - for backward compatibility, try to ask
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3198	the model first, then use the views menu.
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3199	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3200	(menuHolder respondsTo:sym) ifFalse:[
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3201	(self respondsTo:sym) ifTrue:[
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3202	menuHolder := self
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3203	]
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3204	].
3894 9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3205
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3206	sym numArgs == 1 ifTrue:[
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3207	"/ squeak compatibility: create the menu here, let model add items
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3208	^ menuHolder perform:sym with:(Menu new).
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3209	].
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3210	sym numArgs == 2 ifTrue:[
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3211	"/ squeak compatibility: create the menu here, let model add items
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3212	^ menuHolder perform:sym with:(Menu new) with:(device shiftDown).
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3213	].
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3214
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3215	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3216	ask the menuHolder for the menu
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3217	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3218	^ menuHolder perform:sym.
135 cf8e46015072 . claus parents: diff changeset	3219	! !
cf8e46015072 . claus parents: diff changeset	3220
cf8e46015072 . claus parents: diff changeset	3221	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	3222
cf8e46015072 . claus parents: diff changeset	3223	bitGravity
cf8e46015072 . claus parents: diff changeset	3224	"return the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	3225	when the the view is resized."
cf8e46015072 . claus parents: diff changeset	3226
cf8e46015072 . claus parents: diff changeset	3227	^ bitGravity
cf8e46015072 . claus parents: diff changeset	3228	!
cf8e46015072 . claus parents: diff changeset	3229
cf8e46015072 . claus parents: diff changeset	3230	bitGravity:gravity
cf8e46015072 . claus parents: diff changeset	3231	"set the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	3232	when the view is resized."
cf8e46015072 . claus parents: diff changeset	3233
cf8e46015072 . claus parents: diff changeset	3234	bitGravity ~~ gravity ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3235	bitGravity := gravity.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3236	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3237	device setBitGravity:gravity in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3238	]
135 cf8e46015072 . claus parents: diff changeset	3239	]
cf8e46015072 . claus parents: diff changeset	3240	!
cf8e46015072 . claus parents: diff changeset	3241
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3242	clippingRectangle:aRectangle
153 c56277fa4865 . claus parents: 151 diff changeset	3243	"set the clipping rectangle for drawing (in logical coordinates);
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	3244	a nil argument turns off clipping (i.e. whole view is drawable).
153 c56277fa4865 . claus parents: 151 diff changeset	3245	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	3246
c56277fa4865 . claus parents: 151 diff changeset	3247	\|x y w h\|
c56277fa4865 . claus parents: 151 diff changeset	3248
c56277fa4865 . claus parents: 151 diff changeset	3249	aRectangle isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3250	clipRect isNil ifTrue:[^ self].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3251	gcId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3252	device noClipIn:drawableId gc:gcId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3253	]
153 c56277fa4865 . claus parents: 151 diff changeset	3254	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3255	clipRect notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3256	(clipRect = aRectangle) ifTrue:[^ self]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3257	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3258	gcId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3259	x := aRectangle left.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3260	y := aRectangle top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3261	w := aRectangle width.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3262	h := aRectangle height.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3263	transformation notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3264	x := transformation applyToX:x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3265	y := transformation applyToY:y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3266	w := transformation applyScaleX:w.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3267	h := transformation applyScaleY:h.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3268	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3269	(x isMemberOf:SmallInteger) ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3270	w := w + (x - x truncated).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3271	x := x truncated
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3272	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3273	(y isMemberOf:SmallInteger) ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3274	h := h + (y - y truncated).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3275	y := y truncated
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3276	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3277	(w isMemberOf:SmallInteger) ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3278	w := w truncated + 1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3279	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3280	(h isMemberOf:SmallInteger) ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3281	h := h truncated + 1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3282	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3283	x < margin ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3284	x := margin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3285	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3286	y < margin ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3287	y := margin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3288	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3289	x + w - 1 >= (width-margin) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3290	w := width - margin - x
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3291	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3292	y + h - 1 >= (height-margin) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3293	h := height - margin - y
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3294	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3295	device setClipX:x y:y width:w height:h in:drawableId gc:gcId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3296	]
153 c56277fa4865 . claus parents: 151 diff changeset	3297	].
c56277fa4865 . claus parents: 151 diff changeset	3298	clipRect := aRectangle
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3299
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3300	"Created: 28.5.1996 / 19:50:03 / cg"
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	3301	"Modified: 28.5.1996 / 22:32:15 / cg"
153 c56277fa4865 . claus parents: 151 diff changeset	3302	!
c56277fa4865 . claus parents: 151 diff changeset	3303
c56277fa4865 . claus parents: 151 diff changeset	3304	fullName
c56277fa4865 . claus parents: 151 diff changeset	3305	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	3306
c56277fa4865 . claus parents: 151 diff changeset	3307	superView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3308	^ superView fullName , '.' , name
153 c56277fa4865 . claus parents: 151 diff changeset	3309	].
c56277fa4865 . claus parents: 151 diff changeset	3310	^ name
c56277fa4865 . claus parents: 151 diff changeset	3311	!
c56277fa4865 . claus parents: 151 diff changeset	3312
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3313	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3314	"return my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3315
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3316	^ name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3317	!
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	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3320	"set my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3321
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3322	name := aString
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
153 c56277fa4865 . claus parents: 151 diff changeset	3325	processName
c56277fa4865 . claus parents: 151 diff changeset	3326	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	3327
c56277fa4865 . claus parents: 151 diff changeset	3328	^ self name
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3329	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3330
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3331	styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3332	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3333	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3334	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3335
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3336	^ styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3337
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3338	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3339	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3340
3384 4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3341	styleSheet:aStyleSheet
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3342	"change the styleSheet. Knowledgable users only, please."
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3343
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3344	styleSheet := aStyleSheet.
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3345	!
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3346
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3347	viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3348	"return the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3349	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3350
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3351	^ viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3352	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3353
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3354	viewGravity:gravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3355	"set the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3356	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3357
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3358	viewGravity ~~ gravity ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3359	viewGravity := gravity.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3360	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3361	device setWindowGravity:gravity in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3362	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3363	]
140 0db355079dc4 . claus parents: 138 diff changeset	3364	! !
0db355079dc4 . claus parents: 138 diff changeset	3365
0db355079dc4 . claus parents: 138 diff changeset	3366	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	3367
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3368	application
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3369	"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	3370	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	3371
1751 15381229b2d8 accessing application through superView (not topView) ca parents: 1750 diff changeset	3372	superView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3373	^ superView application
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3374	].
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3375	^ nil
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3376
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	3377	"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	3378	!
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3379
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3380	aspect:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3381	"ST-80 style updating: If a views aspectSymbol is nonNil,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3382	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3383	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3384
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3385	self aspectMessage:aspectSymbol
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3386	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3387
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3388	client:anApplicationModel
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3389	"release existing components and generate new components from
3251 10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3390	the applications windowSpec.
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3391	ATTENTION: this is a low level interface; postBuild is NOT invoked"
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3392
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3393	^ self client:anApplicationModel spec:#windowSpec
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3394
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3395
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3396	!
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3397
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3398	client:anApplication spec:aWindowSpecOrSelector
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3399	"release existing components and generate new components from
3251 10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3400	the applications windowSpec.
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3401	ATTENTION: this is a low level interface; postBuild is NOT invoked"
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3402
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3403	^ self client:anApplication spec:aWindowSpecOrSelector builder:nil
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3404
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3405	!
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3406
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3407	client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3408	"release existing components and generate new components from
3251 10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3409	the given windowSpec, using the given builder.
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3410	ATTENTION: this is a low level interface; postBuild is NOT invoked.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3411	TODO: this code is so ugly and badly designed - it must be redesigned
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3412	or at least well documented."
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3413
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3414	\|builder subSpec isApplicationModel thisApp savedView masterApp\|
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3415
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3416	aWindowSpecOrSpecSymbol isNil ifTrue:[^ self].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3417
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3418	(builder := aBuilder) isNil ifTrue:[
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3419	"/ problem: anApplication could have no builder
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3420	"/ or anApplication could be a non-appModel (theoretically - only providing a spec)
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3421	isApplicationModel := true.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3422	builder := anApplication perform:#builder ifNotUnderstood:[isApplicationModel := false. nil].
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3423	builder isNil ifTrue:[
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3424	isApplicationModel ifTrue:[
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3425	anApplication createBuilder.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3426	builder := anApplication builder
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3427	] ifFalse:[
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3428	builder := UIBuilder new.
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3429	]
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3430	]
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3431	].
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3432
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3433	(subSpec := aWindowSpecOrSpecSymbol) isSymbol ifTrue:[
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3434	anApplication isNil ifTrue:[^ self].
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3435	subSpec := anApplication class interfaceSpecFor:aWindowSpecOrSpecSymbol.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3436	subSpec isNil ifTrue:[
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3437	^ self
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3438	].
3382 9cbadc6538b2 client:spec:builder again tm parents: 3378 diff changeset	3439	].
9cbadc6538b2 client:spec:builder again tm parents: 3378 diff changeset	3440
9cbadc6538b2 client:spec:builder again tm parents: 3378 diff changeset	3441	"/ if the appl is not the master, but the masters builder is used,
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3442	"/ we have to temporarily change the builders window
3395 d10fb1559329 check for #masterApplication being understood Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3443
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3444	masterApp := anApplication perform:#masterApplication ifNotUnderstood:[isApplicationModel := false. nil].
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3445	thisApp := builder application.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3446	(isApplicationModel and:[anApplication ~~ thisApp]) ifTrue:[
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3447	masterApp ~~ thisApp ifTrue:[self error:'should not happen'].
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3448
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3449	builder application:anApplication.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3450	savedView := builder window.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3451	builder window:self.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3452	[
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3453	anApplication buildSubCanvas:subSpec withBuilder:builder.
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3454	] ensure:[
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3455	builder window:savedView.
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3456	builder application:thisApp.
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3457	].
544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3458
3382 9cbadc6538b2 client:spec:builder again tm parents: 3378 diff changeset	3459	] ifFalse:[
3838 7a459c5888c8 * empty log message * penk parents: 3837 diff changeset	3460	builder window isNil ifTrue:[
7a459c5888c8 * empty log message * penk parents: 3837 diff changeset	3461	builder window:self
3837 544e5190f505 no longer automagically set aBuilders window, penk parents: 3830 diff changeset	3462	].
3838 7a459c5888c8 * empty log message * penk parents: 3837 diff changeset	3463	builder buildFromSpec:subSpec in:self.
3382 9cbadc6538b2 client:spec:builder again tm parents: 3378 diff changeset	3464	].
3251 10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3465
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3466	"/ postBuildWith: will be called twice if code below is enabled
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3467	"/ notAnAppModel isNil ifTrue:[
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3468	"/ notAnAppModel := (anApplication isKindOf:ApplicationModel) not
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3469	"/ ].
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3470	"/ notAnAppModel ifTrue:[
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3471	"/ builder buildFromSpec:subSpec in:self.
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3472	"/ ] ifFalse:[
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3473	"/ savedView := builder window.
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3474	"/ builder window:self.
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3475	"/ [
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3476	"/ anApplication buildSubCanvas:subSpec withBuilder:builder.
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	3477	"/ ] ensure:[
3251 10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3478	"/ savedView notNil ifTrue:[
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3479	"/ builder window:savedView.
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3480	"/ ]
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3481	"/ ].
10e2a75ecb51 client:spec:builder: postBuild is not invoked ca parents: 3247 diff changeset	3482	"/ ].
2919 a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3483	!
a6219b65a111 Moved #client: and #client:spec from SubCanvas Stefan Vogel <sv@exept.de> parents: 2917 diff changeset	3484
140 0db355079dc4 . claus parents: 138 diff changeset	3485	controller
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3486	"return the controller. For views which implement the controller
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3487	functionality themself, return the receiver itself"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3488
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3489	^ controller ? self
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3490
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3491	"Modified: / 31.10.1997 / 19:58:10 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	3492	!
0db355079dc4 . claus parents: 138 diff changeset	3493
0db355079dc4 . claus parents: 138 diff changeset	3494	controller:aController
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3495	"set the controller - thats the one handling user events"
140 0db355079dc4 . claus parents: 138 diff changeset	3496
0db355079dc4 . claus parents: 138 diff changeset	3497	controller := aController.
0db355079dc4 . claus parents: 138 diff changeset	3498	controller notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3499	controller view:self.
135 cf8e46015072 . claus parents: diff changeset	3500	]
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3501
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	3502	"Modified: / 31.10.1997 / 19:58:33 / cg"
135 cf8e46015072 . claus parents: diff changeset	3503	!
cf8e46015072 . claus parents: diff changeset	3504
140 0db355079dc4 . claus parents: 138 diff changeset	3505	model
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3506	"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	3507
135 cf8e46015072 . claus parents: diff changeset	3508	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3509
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3510	"Modified: 5.6.1996 / 14:17:29 / cg"
135 cf8e46015072 . claus parents: diff changeset	3511	!
cf8e46015072 . claus parents: diff changeset	3512
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3513	sensor
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3514	"return the views sensor"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3515
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3516	windowGroup notNil ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	3517	^ windowGroup sensor.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	3518	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	3519
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	3520	"there is now window group. Deliver events synchronously"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	3521
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	3522	^ SynchronousWindowSensor new.
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3523
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3524	"Modified: 10.1.1997 / 19:47:13 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3525	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3526
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3527	setController:aController
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3528	"set the controller but do not affect the model/view releationship"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3529
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3530	controller := aController.
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3531
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3532	"Created: 18.7.1996 / 11:43:40 / cg"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3533	!
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	3534
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3535	setWindowGroup:aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3536	"set the window group."
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3537
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3538	windowGroup := aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3539
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3540	"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	3541	!
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3542
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3543	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3544	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3545
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3546	^ windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3547	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3548
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3549	windowGroup:newGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3550	"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	3551	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	3552
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3553	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3554	windowGroup removeView:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3555	windowGroup := nil
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3556	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3557	windowGroup := newGroup.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3558	newGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3559	newGroup addView:self.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3560
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3561	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3562	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3563	subViews do:[:aSubview \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3564	aSubview windowGroup:newGroup
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3565	]
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3566	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	3567
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3568	"Modified: 20.8.1997 / 13:26:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3569	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3570
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3571	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3572
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3573	maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3574	"return the maximum of all components bottom"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3575
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3576	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3577	^ components inject:0 into:[:maxSoFar :sub
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3578	\| (sub bottom) max:maxSoFar].
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3579
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3580	"Created: 26.5.1996 / 12:44:05 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3581	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3582	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3583
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3584	maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3585	"return the maximum of all components rights"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3586
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3587	components isNil ifTrue:[^ 0].
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3588	^ components inject:0 into:[:maxSoFar :sub
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3589	\| (sub right) max:maxSoFar].
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3590
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3591	"Modified: 26.5.1996 / 12:56:39 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3592	"Created: 26.5.1996 / 13:02:19 / cg"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3593	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3594
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3595	maxSubViewBottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3596	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3597	"/ ^ 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	3598	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3599	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3600
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3601	maxSubViewRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3602	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3603	"/ ^ 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	3604	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3605	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3606
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3607	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3608	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3609
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3610	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3611	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3612	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3613
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3614	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3615	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3617	\|p\|
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	p := aPoint negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3620	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3621	transformation := WindowingTransformation scale:1 translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3622	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3623	transformation translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3624	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3625	clipRect notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3626	self setInnerClip.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3627	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3628	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3629
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3630	viewOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3631	"return the viewOrigin; thats the coordinate of the contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3632	which is shown topLeft in the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3633	(i.e. the origin of the visible part of the contents)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3634
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3635	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3636	^ 0@0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3637	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3638	^ transformation translation negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3639	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3640
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3641	visibleArea
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3642	"return the rectangle that contains the visible part
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3643	of the view in user coordinates."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3644
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3645
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3646	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3647	^ 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	3648	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3649	^ Rectangle origin:(transformation translation negated)
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3650	extent:((width @ height) scaledBy:(transformation scale)).
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3651
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3652	"Created: 12.7.1996 / 11:57:04 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3653	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	3654
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3655	xOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3656	"return the x coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3657	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3658
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3659	^ self viewOrigin x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3660	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3661
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3662	yOriginOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3663	"return the y coordinate of the viewOrigin in pixels;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3664	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3665
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3666	^ self viewOrigin y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3667	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3668
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3669	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3670
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3671	beInvisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3672	"make the view invisible; if my container is visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3673	change visibility immediately;
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3674	otherwise, arrange for the receiver to be not realized,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3675	when the container is made visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3676
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3677	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3678	realized ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3679	(superView isNil "/ I am a topView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3680	or:[superView realized "/ superview already shown
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3681	or:[superView id notNil]]) "/ superview already created
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3682	ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3683	self unmap
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3684	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3685	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3686
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3687	"Modified: 3.4.1997 / 21:20:40 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3688	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3689
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3690	beVisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3691	"make the view visible; if my container is already visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3692	change visibility immediately; otherwise, arrange for the receiver
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3693	to be made visible when the container is made visible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3694	Notice, that the command may not be sent immediately to the display,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3695	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	3696	visibility event arrives from the display.
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3697	Thus, the view may remain logically invisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3698	for a while. (see #beVisibleNow for more on this)"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3699
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3700	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3701	realized ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3702	superView isNil ifTrue:[ "/ I am a topView
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3703	drawableId isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3704	"this once was:
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3705	self realize.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3706	but we don't want Topviews to realize implicitly.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3707	BTW. the code doesn't work anyway"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3708	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3709	self remap.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3710	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3711	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3712	(superView realized "/ superview already shown
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3713	or:[superView id notNil]) "/ superview already created
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3714	ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3715	self realize
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3716	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3717	].
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3718	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3719
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3720	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3721	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3722
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3723	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3724	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3725	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	3726	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3727
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3728	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3729	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3730	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3731
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3732	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3733	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3734	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3735	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3736
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3737	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3738	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3739
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3740	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3741	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3742
1981 0c3b8ef42df8 Take care of views with nil visibleID in #beVisible Stefan Vogel <sv@exept.de> parents: 1960 diff changeset	3743	"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	3744	"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	3745	"Modified: / 14.1.1998 / 17:33:15 / stefan"
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3746	!
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3747
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3748	beVisibleNow
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3749	"make the view visible immediately.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3750	In contrast to #beVisible, this waits until the view is really
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3751	visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3752
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3753	self beVisible.
3648 95c073f74e25 comments Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	3754	device sync. "thats a round-trip; when returning, the view is definitely visible"
95c073f74e25 comments Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	3755
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	3756	"/ realized := true.
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	3757	"/ shown := true.
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3758
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3759	"Created: 3.4.1997 / 21:23:28 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3760	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3761
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3762	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3763	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3764	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3765
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3766	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3767
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3768	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3769	^ hiddenOnRealize
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3770
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3771	"Modified: 17.6.1997 / 11:19:55 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3772	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3773
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3774	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3775	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3776	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3777
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3778	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3779
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3780	self obsoleteMethodWarning:'use #beVisible / #beInvisible'.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3781	hiddenOnRealize := aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3782
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3783	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3784	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3785
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3786	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3787	"if the argument is true, the receiver view will not
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3788	be mapped (i.e. shown) automatically when the superview is realized.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3789	The hiddenOnRealize flag is useful to create views which are
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3790	to be made visible conditionally or later.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3791	For ST-80 compatibility, please use #beVisible / #beInvisible."
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3792
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3793	hiddenOnRealize := aBoolean
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	3794
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3795	"Modified: 17.6.1997 / 11:23:26 / cg"
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3796	!
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3797
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3798	isHiddenOnRealize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3799	"return true, if the receiver will NOT be mapped when
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3800	realized. False otherwise.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3801	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3802	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3803
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3804	^ hiddenOnRealize
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3805
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	3806	"Created: 17.6.1997 / 11:21:42 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3807	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3808
3516 6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	3809	isVisible
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	3810	"return true, if the view is visible"
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	3811
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	3812	^ self realized
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	3813	!
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	3814
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3815	isVisible:aBoolean
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3816	"make the view visible or invisible"
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3817
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3818	aBoolean ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3819	self beVisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3820	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3821	self beInvisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3822	]
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3823
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3824	"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	3825	!
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3826
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	3827	setVisibilityChannel:aValueHolder
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	3828	"set the valueHolder, which holds the visible boolean value"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	3829
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3830	visibilityChannel := aValueHolder
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	3831	!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	3832
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3833	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3834	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3835	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3836
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3837	^ shown
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3838	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3839
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3840	visibilityChannel
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3841	"return a valueHolder for visible/invisible"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3842
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3843	^ visibilityChannel
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3844
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3845	"Modified: / 30.3.1999 / 13:49:56 / stefan"
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3846	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3847
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3848	visibilityChannel:aValueHolder
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3849	"set the valueHolder, which holds the visible boolean value"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3850
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3851
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3852	\|prev\|
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3853
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3854	prev := visibilityChannel.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3855	visibilityChannel := aValueHolder.
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3856	self setupChannel:aValueHolder for:#visibilityStateChanged withOld:prev
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3857
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3858	"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3859	\|v h\|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3860
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3861	v := View new.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3862	v visibilityChannel:(h := ValueHolder with:true).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3863	v open.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3864	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3865	h value:false.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3866	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3867	h value:true.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3868	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3869	"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3870
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3871	"Created: / 14.1.1998 / 17:11:15 / stefan"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3872	"Modified: / 14.1.1998 / 17:33:40 / stefan"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3873	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	3874
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3875	!SimpleView methodsFor:'adding & removing components'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3876
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3877	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3878	"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	3879	subComponents."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3880
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3881	self addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3882	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3883
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3884	add:aComponent at:anOrigin
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3885	"for ST-80 compatibility.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3886	add a component at some origin"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3887
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3888	\|l comp\|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3889
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3890	comp := aComponent.
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3891
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3892	"/ (comp isWrapper not
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3893	"/ or:[comp isLayoutWrapper not]) ifTrue:[
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3894	"/ comp := LayoutWrapper on:comp
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3895	"/ ].
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3896
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3897	l := anOrigin asLayout.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3898	comp layout:l.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3899
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3900	self addComponent:comp
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3901
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	3902	"Modified: 18.4.1997 / 20:00:20 / cg"
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3903	!
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	3904
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3905	add:aComponentOrCollection in:aRectangleOrLayoutFrame
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3906	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3907	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	3908	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3909	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3910
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3911	\|l wrapper\|
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3912
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3913	aComponentOrCollection isCollection ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3914	wrapper := View new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3915	aComponentOrCollection do:[:aComponent \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3916	wrapper add:aComponent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3917	]
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3918	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3919	wrapper := aComponentOrCollection
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3920	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3921
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	3922	l := aRectangleOrLayoutFrame asLayout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3923
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3924	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3925	"/ aComponent layout:l.
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3926	wrapper geometryLayout:l.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3927
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3928	self addComponent:wrapper.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3929
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3930	^ wrapper
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	3931
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	3932	"Modified: 17.6.1997 / 18:03:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3933	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3934
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3935	addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3936	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3937	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3938
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3939	aComponent isView ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3940	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3941	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3942	components isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3943	components := OrderedCollection new
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3944	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3945	components add:aComponent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3946	aComponent container:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3947	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3948	aComponent displayOn:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3949	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3950	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3951
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	3952	"Modified: 13.5.1996 / 21:19:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3953	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3954
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3955	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3956	"add a view to the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3957
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3958	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3959	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3960	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3961	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3962	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3963	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3964	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3965	subViews add:newView.
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3966	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3967	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3968
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3969	"Modified: 9.5.1996 / 00:47:16 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3970	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3971
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3972	addSubView:newView after:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3973	"add a view to the collection of subviews after another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3974	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	3975	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3976
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3977	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3978	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3979	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3980	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3981	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3982	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3983	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3984	aView isNil ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3985	subViews add:newView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3986	] ifFalse:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3987	subViews add:newView after:aView.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	3988	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3989	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3990	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3991
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3992	"Modified: 9.5.1996 / 00:47:20 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3993	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3994
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3995	addSubView:newView before:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3996	"add a view to the collection of subviews before another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3997	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	3998	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3999
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4000	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4001	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4002	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4003	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4004	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4005	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4006	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4007	aView isNil ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4008	subViews addFirst:newView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4009	] ifFalse:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4010	subViews add:newView before:aView.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4011	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4012	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4013	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4014
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4015	"Modified: 9.5.1996 / 00:47:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4016	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4017
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4018	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4019	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4020
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4021	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4022	self add:aView in:bounds.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4023	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4024
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4025	addSubViewFirst:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4026	"add a view to the front of the collection of subviews"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4027
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4028	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4029	subViews := OrderedCollection with:newView
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4030	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4031	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4032	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4033	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4034	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4035	subViews addFirst:newView.
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4036	].
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4037	self setContainerIn:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4038
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4039	"Modified: 9.5.1996 / 00:47:16 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4040	"Created: 6.3.1997 / 18:43:38 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4041	!
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4042
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4043	component:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4044	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4045	Dont use this right now for non-views"
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	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4048	aComponent isView ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4049	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4050	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4051	components := OrderedCollection with:aComponent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4052	aComponent container:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4053
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4054	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4055	aComponent displayOn:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4056	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4057	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4058
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	4059	"Modified: 13.5.1996 / 21:20:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4060	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4061
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4062	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4063	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4064
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4065	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4066	subViews copy do:[:aSubView \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4067	aSubView destroy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4068	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4069
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4070	"/ paranoia ;-)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4071	subViews size ~~ 0 ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4072	(self class name , ' >>View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4073	subViews := nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4074	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4075	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4076
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4077	"Modified: 5.9.1995 / 22:35:36 / claus"
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	4078	"Modified: 29.1.1997 / 17:07:45 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4081	removeComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4082	"components (i.e. gadgets or lightweight views) are being prepared.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4083	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4084
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4085	aComponent isView ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4086	self removeSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4087	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4088	components isNil ifTrue:[^self].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4089	components remove:aComponent ifAbsent:[].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4090	aComponent parent:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4091	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4092	!
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	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4095	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4096
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4097	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4098	subViews remove:aView ifAbsent:[nil].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4099	aView setContainer:nil.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4100
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4101	(subViews size == 0) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4102	subViews := nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4103	]
269 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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4106
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4107	setContainerIn:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4108	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4109
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4110	aView container:self.
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	4111	(aView graphicsDevice ~~ device) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4112	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4113	') has different device than me (' errorPrint.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4114	self class name errorPrint. ').' errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4115	aView device:device
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	4116	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4117
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4118	"Created: 9.5.1996 / 00:46:59 / cg"
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	4119	"Modified: 10.1.1997 / 18:06:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4120	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4121
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4122	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4123
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4124	changedPreferredBounds:someArgument
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4125	"tell any dependents, that I have changed my preferred bounds;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4126	Interface is provided mostly provided for ST80 compatibility;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4127	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	4128
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4129	^ self changed:#preferredExtent
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4130
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4131	"Modified: 6.3.1997 / 16:12:02 / cg"
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4132	!
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4133
4038 538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4134	languageChanged
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4135	!
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4136
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4137	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4138	"an update request"
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	aspect == #sizeOfView ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4141	"one of the views we depend on changed its size"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4142	^ self containerChangedSize.
3730 00bc72f859c5 code beautified Claus Gittinger <cg@exept.de> parents: 3715 diff changeset	4143	].
00bc72f859c5 code beautified Claus Gittinger <cg@exept.de> parents: 3715 diff changeset	4144	super update:aspect with:aParameter from:changedObject
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4145
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4146	"Modified: 19.7.1996 / 17:30:48 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4147	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4148
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4149	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4151	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4152	"evaluate some time consuming block, while doing this,
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4153	show a spinning wheel cursor. If those bitmaps are not found,
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4154	fallback to the standard busy cursor.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4155	Experimental."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4156
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4157	\|ok bitmaps cursors mask process oldCursor\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4158
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4159	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4160
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4161	ok := true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4162	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4163	collect:[:name \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4164	\|f\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4165
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4166	f := Smalltalk imageFromFileNamed:(name , '.xbm') forClass:self class.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4167	f isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4168	('SimpleView [warning]: no bitmap file: ' , name , '.xbm') errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4169	ok := false
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4170	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4171	f
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4172	].
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	4173
3098 5af5eb5e3942 * empty log message * Claus Gittinger <cg@exept.de> parents: 3087 diff changeset	4174	mask := Smalltalk imageFromFileNamed:'wheelm.xbm' forClass:self class.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4175	mask isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4176	('SimpleView [warning]: no bitmap file: wheelm.xbm') errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4177	ok := false
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4178	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4179
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4180	ok ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4181	self cursor:Cursor wait.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4182	aBlock ensure:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4183	self cursor:oldCursor
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4184	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4185	] ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4186	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4187	maskForm:mask
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4188	hotX:8
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4189	hotY:8) onDevice:device].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4190
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4191	process := [
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4192	Delay waitForSeconds:0.25.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4193	[true] whileTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4194	cursors do:[:curs \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4195	self cursor:curs.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4196	Delay waitForSeconds:0.05
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4197	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4198	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4199	] fork.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4200
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4201	Processor activeProcess priority:7.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4202	aBlock ensure:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4203	Processor activeProcess priority:8.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4204	process terminate.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4205	self cursor:oldCursor
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4206	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4207	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4208
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4209	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4210	View new realize showBusyWhile:[10 timesRepeat:[3000 factorial]]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4211	"
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	4212
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4213	"Modified: / 31.10.1997 / 19:59:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4214	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4215
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4216	!SimpleView methodsFor:'dependents access'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4217
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4218	addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4219	"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	4220
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4221	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4222
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4223	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4224	[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4225	\|deps\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4226
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4227	deps := dependents.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4228	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4229	"/ store the very first dependent directly in
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4230	"/ the dependents instVar
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4231	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4232	(deps isNil and:[anObject isCollection not]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4233	dependents := anObject
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4234	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4235	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4236	"/ store more dependents in the dependents collection
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4237	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4238	deps isCollection ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4239	deps add:anObject
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4240	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4241	deps == anObject ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4242	deps isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4243	dependents := (IdentitySet with:anObject)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4244	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4245	dependents := (IdentitySet with:deps with:anObject)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4246	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4247	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4248	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4249	]
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	4250	] ensure:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4251	wasBlocked ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4252	OperatingSystem unblockInterrupts
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4253	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4254	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4255
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4256	"Modified: 8.1.1997 / 23:40:30 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4257	"Created: 11.6.1997 / 13:10:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4258	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4259
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4260	dependents
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	4261	"return a Collection of dependents"
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4262
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4263	dependents isNil ifTrue:[^ #()].
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4264	dependents isCollection ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4265	^ dependents
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4266	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4267	^ IdentitySet with:dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4268
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4269	"Created: / 11.6.1997 / 13:10:44 / cg"
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	4270	"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	4271	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4272
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4273	dependents:aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4274	"set the collection of dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4275
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4276	\|dep\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4277
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4278	aCollection size == 1 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4279	dep := aCollection first.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4280	dep isCollection ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4281	dependents := aCollection first.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4282	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4283	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4284	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4285	dependents := aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4286
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4287	"Modified: 19.4.1996 / 12:23:05 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4288	"Created: 11.6.1997 / 13:10:47 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4289	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4290
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4291	dependentsDo:aBlock
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4292	"evaluate aBlock for all of my dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4293
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4294	\|deps\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4295
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4296	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4297	deps notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4298	deps isCollection ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4299	deps do:aBlock
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4300	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4301	aBlock value:deps
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4302	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4303	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4304
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4305	"Created: 11.6.1997 / 13:10:51 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4306	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4307
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4308	release
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4309	"remove all dependencies from the receiver"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4310
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4311	dependents := nil
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4312
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4313	"Modified: 19.4.1996 / 10:31:35 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4314	"Created: 11.6.1997 / 13:11:53 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4315	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4316
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4317	removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4318	"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	4319
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4320	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4321
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4322	"/ 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	4323	"/ is possibly accessed from multiple threads.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4324	"/ 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	4325	"/ faster execution.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4326
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4327	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4328	[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4329	\|deps sz dep\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4330
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4331	deps := dependents.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4332	deps notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4333	deps isCollection ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4334	deps remove:anObject ifAbsent:[].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4335	(sz := deps size) == 0 ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4336	dependents := nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4337	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4338	sz == 1 ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4339	(dep := deps first) isCollection ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4340	dependents := dep
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4341	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4342	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4343	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4344	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4345	deps == anObject ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4346	dependents := nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4347	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4348	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4349	]
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	4350	] ensure:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4351	wasBlocked ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4352	OperatingSystem unblockInterrupts
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4353	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4354	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4355
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4356	"Modified: 8.1.1997 / 23:41:39 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4357	"Created: 11.6.1997 / 13:11:58 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4358	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4359
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4360	!SimpleView methodsFor:'dependents access (non weak)'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4361
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4362	addNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4363	"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	4364	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	4365	forwarded to addDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4366
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4367	^ self addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4368
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4369	"Created: 11.6.1997 / 13:15:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4370	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4371
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4372	interests
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4373	"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	4374	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	4375
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4376	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4377
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4378	"Modified: / 14.10.1996 / 22:19:58 / stefan"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4379	"Created: / 11.6.1997 / 13:15:44 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4380	"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	4381	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4382
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4383	nonWeakDependents
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4384	"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	4385	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	4386
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4387	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4388
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4389	"Created: / 11.6.1997 / 13:15:48 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4390	"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	4391	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4392
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4393	removeNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4394	"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	4395	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	4396	forwarded to removeDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4397
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4398	^ self removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4399
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4400	"Created: 11.6.1997 / 13:15:52 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4401	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4402
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4403	!SimpleView methodsFor:'drag & drop'!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4404
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4405	canDrop:aCollectionOfDropObjects
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4406	"return true, if anObjectOrCollection can be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4407	dropped in the receiver. This method should be
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4408	redefined in views which can take objects"
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4409
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4410	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4411
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4412	(app := self application) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4413	^ app canDrop:aCollectionOfDropObjects in:self
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4414	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4415	^ false
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4416
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4417	"Modified: 11.4.1997 / 12:42:13 / cg"
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4418	!
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4419
3947 64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4420	dragAutoScroll:aContext
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4421	"called by the DragAndDropManager to scroll during a drag/drop operation
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4422	if necassery (decided by the widget itself); If a scroll is done return
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4423	true otherwise false (used to restore the background)
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4424	on default false is returned.
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4425	"
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4426	^ false
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4427	!
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4428
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4429	drop:aCollectionOfDropObjects at:aPoint
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4430	"drop manager wants to drop.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4431	If I have an application, forward the request.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4432	Otherwise, ignore it. This is only sent, if #canDrop: returned true;
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4433	if you redefined #canDrop: in a subclass, #drop:at: must also be redefined."
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4434
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4435	\|app\|
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4436
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4437	(app := self application) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4438	^ app drop:aCollectionOfDropObjects in:self at:aPoint
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4439	].
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4440	self subclassResponsibility
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4441
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4442	"Modified: 11.4.1997 / 12:44:34 / cg"
3591 3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	4443	!
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	4444
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	4445	dropTarget
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	4446	"returns the dropTarget or nil
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	4447	"
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	4448	^ nil
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4449	! !
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4450
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4451	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4452
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4453	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4454	"draw bottom 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4455
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4456	self drawBottomEdgeLevel:level
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4457	shadow:shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4458	light:lightColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4459	halfShadow:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4460	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4461	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4462	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4463
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4464	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	4465	\|botFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4466	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4467	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4468
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4469	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4470	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4471
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4472	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4473	botFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4474	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4475	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4476	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4477	botFg := halfShadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4478	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4479	botFg := shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4480	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4481	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4482	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4483	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4484
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4485	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4486	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4487	b := height - 1 - i.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4488	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4489	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4490
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4491	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4492	b := height - 1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4493	super paint:shadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4494	super displayDeviceLineFromX:1 y:b toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4495	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4496
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4497	self edgeDrawn:#bottom.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4498
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4499	"Modified: 7.3.1997 / 17:59:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4500	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4501
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4502	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4503	"draw all of my 3D edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4504
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4505	self drawEdgesForX:0 y:0 width:width height:height level:level
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4506	shadow:shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4507	light:lightColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4508	halfShadow:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4509	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4510	style:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4511	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4512
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4513	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4514	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4515
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4516	self drawEdgesForX:x y:y width:w height:h level:l
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4517	shadow:shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4518	light:lightColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4519	halfShadow:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4520	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4521	style:nil
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4522	!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4523
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4524	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4525	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4526
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4527	self drawLeftEdgeLevel:level
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4528	shadow:shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4529	light:lightColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4530	halfShadow:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4531	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4532	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4533	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4534
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4535	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	4536	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4537	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4538
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4539	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4540	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4541
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4542	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4543	leftFg := shadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4544	leftHalfFg := halfShadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4545	count := count negated.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4546	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4547	leftFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4548	leftHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4549	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4550	leftHalfFg isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4551	leftHalfFg := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4552	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4553
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4554	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4555	paint := leftHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4556	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4557	paint := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4558	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4559	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4560	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4561
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4562	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4563	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4564	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4565	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4566
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4567	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4568	super paint:(device blackColor).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4569	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4570	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4571
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4572	self edgeDrawn:#left.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4573
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4574	"Modified: 7.3.1997 / 17:59:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4575	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4576
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4577	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4578	"draw right 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4579
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4580	self drawRightEdgeLevel:level
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4581	shadow:shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4582	light:lightColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4583	halfShadow:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4584	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4585	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4586	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4587
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4588	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	4589	\|rightFg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4590	count "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4591	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4592
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4593	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4594	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4595
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4596	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4597	rightFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4598	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4599	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4600	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4601	rightFg := halfShadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4602	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4603	rightFg := shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4604	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4605	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4606	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4607	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4608
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4609	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4610	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4611	r := width - 1 - i.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4612	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4613	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4614	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4615	r := width - 1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4616	super paint:shadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4617	super displayDeviceLineFromX:r y:1 toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4618	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4619
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4620	self edgeDrawn:#right.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4621
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4622	"Modified: 7.3.1997 / 18:00:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4623	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4624
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4625	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4626	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4627
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4628	self drawTopEdgeLevel:level
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4629	shadow:shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4630	light:lightColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4631	halfShadow:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4632	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4633	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4634	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4635
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4636	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	4637	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4638	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4639
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4640	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4641	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4642
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4643	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4644	topFg := shadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4645	topHalfFg := halfShadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4646	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4647	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4648	topFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4649	topHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4650	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4651	topHalfFg isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4652	topHalfFg := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4653	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4654
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4655	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4656	paint := topHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4657	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4658	paint := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4659	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4660	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4661	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4662
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4663	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4664	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4665	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4666	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4667	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4668	super paint:(device blackColor).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4669	super displayDeviceLineFromX:0 y:0 toX:r y:0.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4670	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4671
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4672	self edgeDrawn:#top.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4673
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	4674	"Modified: 7.3.1997 / 18:00:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4675	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4677	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4678	"redraw my edges (if any)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4679
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4680	(level ~~ 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4681	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4682	self clippingRectangle:nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4683	self drawEdges.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4684	self deviceClippingRectangle:innerClipRect
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4685	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4686	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4687
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4688	"Modified: / 25.5.1999 / 14:50:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4689	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4690
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4691	!SimpleView methodsFor:'enumerating subviews'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4692
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4693	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4694	"evaluate aBlock for all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4695
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4696	subViews notNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4697	subViews do:[:aSubview \|
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4698	aSubview withAllSubViewsDo:aBlock
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4699	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4700	]
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4701
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4702	"Modified: 12.2.1997 / 12:23:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4703	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4704
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4705	changeSequenceOrderFor:aSubView to:anIndex
1984 e34624152bf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	4706	"change a subview's position in the subviews collection.
e34624152bf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	4707	Usually, this only affects the order of components in a panelView.
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4708	"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4709	\|aView\|
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4710
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4711	(subViews notNil and:[subViews size >= anIndex]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4712	aView := subViews remove:aSubView ifAbsent:nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4713
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4714	aView notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4715	subViews add:aView beforeIndex:anIndex.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4716	^ true
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4717	]
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4718	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4719	^ false
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4720	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	4721
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4722	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4723	"evaluate aBlock for the receiver and all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4724
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4725	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4726	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	4727	! !
cf8e46015072 . claus parents: diff changeset	4728
cf8e46015072 . claus parents: diff changeset	4729	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	4730
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4731	alienDrop:aCollectionOfDropObjects
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4732	"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	4733
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4734	\|v\|
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4735
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4736	v := self.
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4737	[v notNil] whileTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4738	(v canDrop:aCollectionOfDropObjects) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4739	v drop:aCollectionOfDropObjects at:nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4740	^ self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4741	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4742	v := v superView
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4743	]
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4744
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4745	"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	4746	!
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4747
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4748	buttonPress:button x:x y:y
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4749	"button was pressed - check my components for a hit."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4750
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4751	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4752	self componentsContainingX:x y:y do:[:comp :cx :cy \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4753	comp buttonPress:button x:cx y:cy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4754	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4755	]
140 0db355079dc4 . claus parents: 138 diff changeset	4756	].
0db355079dc4 . claus parents: 138 diff changeset	4757
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4758	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	4759
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4760	"Modified: 8.5.1996 / 23:43:41 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4761	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4762
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4763	buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4764	"button was released - check my components for a hit."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4765
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4766	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4767	self componentsContainingX:x y:y do:[:comp :cx :cy \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4768	comp buttonRelease:button x:cx y:cy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4769	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4770	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4771	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4772
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4773	super buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4774
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4775	"Modified: 8.5.1996 / 23:41:58 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	4776	"Created: 8.5.1996 / 23:43:25 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	4777	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	4778
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4779	clientMessage:msgType format:msgFormat eventData:msgData
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4780	"a client message - very X-specific and only useful
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4781	for special applications.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4782	Ignored here"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4783
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4784	"Created: 4.4.1997 / 18:56:52 / cg"
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4785	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4786
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4787	closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4788	"programmatic close request"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4789
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4790	self destroy
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4791
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4792	"Modified: / 3.8.1998 / 19:50:50 / cg"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4793	!
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	4794
140 0db355079dc4 . claus parents: 138 diff changeset	4795	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	4796	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	4797
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4798	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge p originChanged\|
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4799
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4800	originChanged := (left ~= x) or:[top ~= y].
180 0b3a8658d55e . claus parents: 176 diff changeset	4801
2966 b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4802	left := x.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4803	top := y.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	4804
180 0b3a8658d55e . claus parents: 176 diff changeset	4805	(superView isNil
0b3a8658d55e . claus parents: 176 diff changeset	4806	and:[drawableId notNil]) ifTrue:[
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4807	"/ have to be careful - some window managers (motif) wrap another
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4808	"/ view around and the reported origin is relative to that.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4809	"/ not relative to the screen.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4810	p := device translatePoint:0@0 fromView:self toView:nil.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4811	p := p + self borderWidth.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4812	left := p x.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4813	top := p y.
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	4814	].
1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	4815
140 0db355079dc4 . claus parents: 138 diff changeset	4816	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4817	realized ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4818	width := newWidth.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4819	height := newHeight.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4820	self extentChangedFlag:true.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4821	^ self
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4822	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4823
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4824	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4825	how := #smaller
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4826	] ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4827	((newWidth >= width) and:[newHeight >= height]) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4828	how := #larger
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4829	]
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4830	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4831
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4832	level ~~ 0 ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4833	mustRedrawBottomEdge := newHeight < height.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4834	mustRedrawRightEdge := newWidth < width.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4835	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge]
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4836	] ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4837	anyEdge := false
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4838	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4839
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4840	width := newWidth.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4841	height := newHeight.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4842
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4843	"recompute inner-clip if needed"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4844	self setInnerClip.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4845
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4846	"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4847	must first process pending exposes;
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4848	otherwise, those may be drawn at a wrong position
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4849	"
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4850	"/ 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	4851	"/ which is exactly for that reason ...
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4852
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4853	"/ windowGroup notNil ifTrue:[
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4854	"/ windowGroup processExposeEvents
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	4855	"/ ].
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4856	self sizeChanged:how.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4857
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4858	(anyEdge and:[shown]) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4859	mustRedrawBottomEdge ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4860	self invalidateDeviceRectangle:((0 @ (height-1-margin)) extent:width@margin) repairNow:false.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4861	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4862	mustRedrawRightEdge ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4863	self invalidateDeviceRectangle:((width-1-margin)@0 extent:margin@height) repairNow:false.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4864	].
2821 8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4865	"/ OLD code:
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4866	"/ self clippingRectangle:nil.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4867	"/ mustRedrawBottomEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4868	"/ self drawBottomEdge
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4869	"/ ].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4870	"/ mustRedrawRightEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4871	"/ self drawRightEdge
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4872	"/ ].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	4873	"/ self deviceClippingRectangle:innerClipRect
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4874	]
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4875	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4876
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4877	originChanged ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4878	self changed:#origin.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	4879	].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	4880
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	4881	"Modified: / 10.10.2001 / 14:14:19 / cg"
138 3167663e38e7 . claus parents: 137 diff changeset	4882	!
3167663e38e7 . claus parents: 137 diff changeset	4883
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4884	containerChangedSize
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4885	"my container has changed size; if I have relative
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4886	origin/extent or blocks to evaluate, do it now .."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4887
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	4888	\|oldWidth oldHeight oldTop oldLeft newExt newOrg r\|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4889
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4890	oldWidth := width.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4891	oldHeight := height.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4892	oldTop := top.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4893	oldLeft := left.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4894
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4895	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4896	slowly migrating to use layoutObjects ...
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4897	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4898	layout isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4899	newOrg := self computeOrigin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4900	newExt := self computeExtent.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4901	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4902	r := (layout rectangleRelativeTo:(superView viewRectangle)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4903	preferred:[self preferredBounds]).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4904	newOrg := r origin rounded.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4905	newExt := r extent rounded.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4906	"/ newOrg printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4907	"/ newExt printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4908	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4909
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4910	"/ newOrg notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4911	"/ ((newOrg x == oldLeft) and:[newOrg y == oldTop]) ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4912	"/ newOrg := nil
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4913	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4914	"/ ].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4915	"/ newExt notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4916	"/ ((newExt x == width) and:[newExt y == height]) ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4917	"/ newExt := nil
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4918	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4919	"/ ].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4920	"/
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4921	"/ newExt isNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4922	"/ newOrg notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4923	"/ self pixelOrigin:newOrg
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4924	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4925	"/ ] ifFalse:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4926	"/ newOrg isNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4927	"/ self pixelExtent:newExt
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4928	"/ ] ifFalse:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4929	"/ self pixelOrigin:newOrg extent:newExt
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4930	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4931	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	4932	self pixelOrigin:newOrg extent:newExt
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4933
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4934	"Modified: 19.7.1996 / 17:32:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4935	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4936
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4937	containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4938	"my container was mapped (became visible).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4939	If I was previously realized, this implies that I myself
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4940	am now mapped as well."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4941
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4942	"/ if I was not previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4943	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4944
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4945	realized ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4946	shown ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4947	"/ old:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4948	"/ shown := true.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4949	"/ subViews notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4950	"/ subViews do:[:v \|
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4951	"/ v containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4952	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4953	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4954
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4955	"/ which is equivalent to:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4956	self mapped.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4957	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4958	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4959
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4960	"Modified: 30.5.1996 / 11:41:02 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4961	"Created: 19.7.1996 / 17:41:10 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4962	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4963
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4964	containerUnmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4965	"my container was unmapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4966	- this implies that the recevier is now also unmapped."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4967
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4968	"/ if I was previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4969	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4970
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4971	realized ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4972	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4973	self unmapped
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4974	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4975	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4976
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4977	"Modified: 30.5.1996 / 11:41:25 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4978	"Created: 19.7.1996 / 17:43:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4979	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4980
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4981	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4982	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4983
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4984	shown := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4985	super destroyed
3183 e55c249cd6e5 kludge: remove objectAttributes when destroyed. Claus Gittinger <cg@exept.de> parents: 3182 diff changeset	4986
e55c249cd6e5 kludge: remove objectAttributes when destroyed. Claus Gittinger <cg@exept.de> parents: 3182 diff changeset	4987	"Modified: / 18.2.2000 / 11:20:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4988	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4989
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4990	dropMessage:dropType data:dropValue
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4991	"a drop from some other view.
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	4992	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	4993
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4994	\|dropObjects\|
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4995
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	4996	dropType == #file ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4997	dropObjects := Array with:(DropObject newFile:dropValue)
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	4998	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4999	dropType == #directory ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5000	dropObjects := Array with:(DropObject newFile:dropValue)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5001	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5002	dropType == #files ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5003	dropObjects := (dropValue collect:[:fn \| DropObject newFile:fn])
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5004	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5005	dropType == #text ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5006	dropObjects := Array with:(DropObject newText:dropValue)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5007	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5008	dropObjects := Array with:(DropObject new:dropValue)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5009	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5010	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5011	]
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5012	].
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5013
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5014	self alienDrop:dropObjects
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5015
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5016	"Modified: 6.4.1997 / 14:44:43 / cg"
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5017	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5018
135 cf8e46015072 . claus parents: diff changeset	5019	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	5020	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	5021	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	5022
3340 f810ebc6d836 preserve current paint when drawing edges martin parents: 3327 diff changeset	5023	\|leftEdge topEdge rightEdge botEdge anyEdge nx ny nw nh dx dy dw dh old oldPaint\|
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5024
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5025	shown ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5026	^ self
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5027	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5028
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5029	nw := dw := w.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5030	nh := dh := h.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5031	nx := dx := x.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5032	ny := dy := y.
135 cf8e46015072 . claus parents: diff changeset	5033
cf8e46015072 . claus parents: diff changeset	5034	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	5035
cf8e46015072 . claus parents: diff changeset	5036	"
cf8e46015072 . claus parents: diff changeset	5037	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	5038	"
cf8e46015072 . claus parents: diff changeset	5039	(margin ~~ 0) ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5040	leftEdge := false.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5041	topEdge := false.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5042	rightEdge := false.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5043	botEdge := false.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5044	transformation notNil ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5045	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5046	need device coordinates for this test
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5047	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5048	nx := transformation applyToX:nx.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5049	ny := transformation applyToY:ny.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5050	nw := transformation applyScaleX:nw.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5051	nh := transformation applyScaleY:nh.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5052	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5053	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5054	adjust expose rectangle, to exclude the margin.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5055	Care for rounding errors ...
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5056	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5057	(nx isMemberOf:SmallInteger) ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5058	old := nx.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5059	nx := nx truncated.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5060	nw := nw + (nx - old).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5061	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5062	(ny isMemberOf:SmallInteger) ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5063	old := ny.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5064	ny := ny truncated.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5065	nh := nh + (ny - old).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5066	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5067	(nw isMemberOf:SmallInteger) ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5068	nw := nw truncated + 1
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5069	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5070	(nh isMemberOf:SmallInteger) ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5071	nh := nh truncated + 1
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5072	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5073
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5074	dx := nx.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5075	dy := ny.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5076	dw := nw.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5077	dh := nh.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5078
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5079	(nx < margin) ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5080	old := nx.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5081	nx := margin.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5082	nw := nw - (nx - old).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5083	leftEdge := anyEdge := true.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5084	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5085	((nx + nw - 1) >= (width - margin)) ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5086	nw := (width - margin - nx).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5087	rightEdge := anyEdge := true.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5088	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5089	(ny < margin) ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5090	old := ny.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5091	ny := margin.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5092	nh := nh - (ny - old).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5093	topEdge := anyEdge := true.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5094	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5095	((ny + nh - 1) >= (height - margin)) ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5096	nh := (height - margin - ny).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5097	botEdge := anyEdge := true.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5098	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5099	transformation notNil ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5100	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5101	need logical coordinates for redraw
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5102	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5103	nx := transformation applyInverseToX:nx.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5104	ny := transformation applyInverseToY:ny.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5105	nw := transformation applyInverseScaleX:nw.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5106	nh := transformation applyInverseScaleY:nh.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5107	].
135 cf8e46015072 . claus parents: diff changeset	5108	].
cf8e46015072 . claus parents: diff changeset	5109
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	5110	(nw > 0 and:[nh > 0]) ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5111	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5112	redraw inside area
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5113	"
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5114	self clippingRectangle:(Rectangle left:nx top:ny width:nw height:nh).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5115
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5116	device supportsAnyViewBackgroundPixmaps ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5117	"/ workaround: non-existing bg-pixmap support (win95)
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5118
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5119	viewBackground isImageOrForm ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5120	(device supportsViewBackgroundPixmap:viewBackground) ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5121	self fillRectangleWithViewBackgroundX:nx y:ny width:nw height:nh
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5122	]
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5123	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5124	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5125
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5126	self redrawX:nx y:ny width:nw height:nh.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	5127	].
135 cf8e46015072 . claus parents: diff changeset	5128
cf8e46015072 . claus parents: diff changeset	5129	"
cf8e46015072 . claus parents: diff changeset	5130	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	5131	"
cf8e46015072 . claus parents: diff changeset	5132	anyEdge ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5133	self deviceClippingRectangle:nil.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5134	oldPaint := paint.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5135	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5136	self drawEdges
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5137	] ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5138	topEdge ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5139	self drawTopEdge
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5140	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5141	leftEdge ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5142	self drawLeftEdge
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5143	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5144	botEdge ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5145	self drawBottomEdge
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5146	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5147	rightEdge ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5148	self drawRightEdge
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5149	]
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5150	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5151	self paint:oldPaint.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5152	].
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5153	self deviceClippingRectangle:innerClipRect.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5154
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5155	"Modified: / 25.5.1999 / 14:57:38 / cg"
135 cf8e46015072 . claus parents: diff changeset	5156	!
cf8e46015072 . claus parents: diff changeset	5157
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5158	focusIn
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5159	"got keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5160	Nothing done here"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5161
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5162	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5163
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5164	focusOut
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5165	"lost keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5166	Nothing done here"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5167	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5168
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5169	hasKeyboardFocus:aBoolean
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5170	"notification from the windowGroup that I got the keyboardFocus."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5171
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5172	delegate notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5173	delegate perform:#hasKeyboardFocus: with:aBoolean ifNotUnderstood:nil
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5174	].
140 0db355079dc4 . claus parents: 138 diff changeset	5175	^ self
0db355079dc4 . claus parents: 138 diff changeset	5176	!
0db355079dc4 . claus parents: 138 diff changeset	5177
0db355079dc4 . claus parents: 138 diff changeset	5178	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	5179	"a key has been pressed. If there are components,
0db355079dc4 . claus parents: 138 diff changeset	5180	pass it to the corresponding one.
0db355079dc4 . claus parents: 138 diff changeset	5181	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	5182
510 c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	5183	<resource: #keyboard ( #Menu ) >
c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	5184
3247 d6e631975bd1 forward Menu-key (CMD-Z) to focusView if there is one. Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	5185	\|focusView\|
d6e631975bd1 forward Menu-key (CMD-Z) to focusView if there is one. Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	5186
140 0db355079dc4 . claus parents: 138 diff changeset	5187	components notNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5188	components notNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5189	self componentsContainingX:x y:y do:[:comp :cx :cy \|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5190	comp keyPress:key x:cx y:cy.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5191	^ self
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5192	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5193	].
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5194	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5195
494 cc7765901744 checkin from browser Claus Gittinger <cg@exept.de> parents: 490 diff changeset	5196	key == #Menu ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5197	((focusView := self windowGroup focusView) notNil
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5198	and:[focusView ~~ self])
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5199	ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5200	"/ forward to the focusView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5201	focusView keyPress:key x:-1 y:-1.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5202	^ self
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5203	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5204	^ self activateMenu.
135 cf8e46015072 . claus parents: diff changeset	5205	].
cf8e46015072 . claus parents: diff changeset	5206
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5207	x isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5208	"/ already redelegated, but nowhere handled
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5209	superView notNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5210	superView keyPress:key x:nil y:nil.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5211	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5212	^ self
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5213	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5214
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5215	superView notNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5216	superView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5217	dispatchEvent:#keyPress:x:y:
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5218	arguments:(Array with:key with:0 with:0)
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5219
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5220	"/ WindowEvent
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5221	"/ sendEvent:#keyPress:x:y:
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5222	"/ arguments:(Array with:key with:0 with:0)
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5223	"/ view:superView
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	5224	] ifFalse:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5225	super keyPress:key x:x y:y
135 cf8e46015072 . claus parents: diff changeset	5226	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	5227
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5228	"Modified: / 20.5.1998 / 22:55:08 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5229	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5230
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5231	keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5232	"a key has been released. If there are components,
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5233	pass it to the corresponding one.
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5234	Otherwise, do whatever my superclass would do."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5235
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5236	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5237	components notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5238	self componentsContainingX:x y:y do:[:comp :cx :cy \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5239	comp keyRelease:key x:cx y:cy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5240	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5241	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5242	].
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5243	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5244
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5245	super keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5246
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5247	"Modified: 8.5.1996 / 23:44:36 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5248	"Created: 8.5.1996 / 23:45:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	5249	!
cf8e46015072 . claus parents: diff changeset	5250
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5251	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5252	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5253	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5255	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5256	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5257
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5258	realized := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5259	shown := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5260	...
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5261
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5262	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5263	realized and shortly after unrealized - before the mapped event
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5264	arrived. This lead to realized being set to true even thought the
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5265	view was not.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5266	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	5267	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5268
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5269	realized ifTrue:[
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5270
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5271	"/ currently, the 'shown ifFalse:' optimization is
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5272	"/ not ok, since 'shown' is also modified by visibilityChanges.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5273	"/ Also, when remapped, X11 only sends a mapped event for the topView.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5274	"/ Therefore, synthetically generate those #superViewMapped messages
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5275	"/ in any case.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5276
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5277	shown := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5278	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5279	backed views will not get expose events - have
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5280	to force a redraw here to get things drawn into
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5281	backing store.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5282	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5283	backed ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5284	self redrawX:0 y:0 width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5285	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5286
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5287	"/ tell my subViews ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5288	subViews notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5289	subViews do:[:v \| v mapped
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	5290	"/ v shown ifFalse:[
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	5291	"/ v mapped
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	5292	"/ ]
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5293	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5294	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5295	self changed:#visibility.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5296	]
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5297
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5298	"Modified: 25.2.1997 / 22:41:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5299	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5300
2733 5af2417bc450 pass x/y with mouseWheel event Claus Gittinger <cg@exept.de> parents: 2727 diff changeset	5301	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	5302	"the mouseWheel was turned - handle as a scroll operation.
ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	5303	Specialized application windows may redefine this for any other
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5304	operation.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5305	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	5306	(but never too much);
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5307	if shift is pressed, always scroll a single scroll-step;
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5308	if ctrl is pressed, always scroll one page."
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5309
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5310	\|hCont pageScroll amountToScroll sensor factor\|
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5311
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5312	amountToScroll := self verticalScrollStep.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5313	pageScroll := false.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5314
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5315	sensor := self sensor.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5316	sensor ctrlDown ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5317	pageScroll := true
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5318	].
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5319
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5320	pageScroll ifFalse:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5321	sensor shiftDown ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5322	hCont := self heightOfContents.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5323	hCont > (self innerHeight * 3) ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5324	factor := (hCont // self innerHeight) min:4.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5325	amountToScroll := amountToScroll * factor.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5326	]
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5327	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5328	].
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	5329
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5330	amount > 0 ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5331	pageScroll ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5332	self pageUp
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5333	] ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5334	self scrollUp:amountToScroll
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5335	]
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5336	] ifFalse:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5337	pageScroll ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5338	self pageDown
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5339	] ifFalse:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5340	self scrollDown:amountToScroll
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5341	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5342	].
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5343
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	5344	"Modified: / 21.5.1999 / 19:58:42 / cg"
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5345	!
01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5346
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5347	pointerEnter:state x:x y:y
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5348	"mouse pointer entered - request the keyboard focus (sometimes)"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5349
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5350	\|doRequestFocus\|
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5351
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5352	self requestFocusOnPointerEnter ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5353	doRequestFocus := true
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5354	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5355	self doNotRequestFocusOnPointerEnter ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5356	doRequestFocus := false
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5357	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5358	doRequestFocus := self wantsFocusWithPointerEnter
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5359	]
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5360	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5361
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5362	doRequestFocus ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5363	self requestFocus.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5364	].
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5365	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5366
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5367	pointerLeave:state
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5368	"got mouse pointer.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5369	Nothing done here"
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5370
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5371	"Modified: 25.2.1997 / 23:43:17 / cg"
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5372	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	5373
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5374	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5375	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5376	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5377	nothing done here"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5378
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5379	^ self
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5382	saveAndTerminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5383	"window manager wants me to save and go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5384	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5385	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5386	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5387	to prepare for restart."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5388
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5389	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5390
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5391	"Modified: / 3.8.1998 / 19:51:26 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5394	sizeChanged:how
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5395	"tell subviews if I change size.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5396	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	5397	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5398
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5399	\|subViews\|
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5400
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5401	(subViews := self subViews) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5402	(how isNil "false"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5403	or:[how == #smaller]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5404	subViews do:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5405	view notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5406	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5407	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5408	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5409	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5410	"doing it reverse speeds up resizing - usually subviews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5411	are created from top-left to bottom-right; therefore
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5412	bottom-right views will be moved/resized first, then top-left ones;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5413	this avoids multiple redraws of subviews"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5414
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5415	subViews reverseDo:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5416	view notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5417	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5418	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5419	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5420	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5421	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5422
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5423	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5424	(how isNil "false"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5425	or:[how == #smaller]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5426	components do:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5427	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5428	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5429	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5430	"doing it reverse speeds up resizing - usually subviews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5431	are created from top-left to bottom-right; therefore
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5432	bottom-right views will be moved/resized first, then top-left ones;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5433	this avoids multiple redraws of subviews"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5434
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5435	components reverseDo:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5436	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5437	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5438	]
135 cf8e46015072 . claus parents: diff changeset	5439	].
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	5440
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5441	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	5442
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5443	superView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5444	superView subViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5445	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	5446
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	5447	"Modified: / 2.4.1998 / 13:59:59 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5448	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5449
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5450	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	5451	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5452	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5453	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5454
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5455	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5456
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5457	"Created: 22.9.1995 / 14:44:59 / claus"
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	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5461	"window manager wants me to go away;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5462	- notice, that not all window managers are nice enough to
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5463	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5464	Can be redefined in subclasses to do whatever cleanup is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5465	required."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5466
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5467	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5468
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5469	"Modified: / 3.8.1998 / 19:51:23 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5472	unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5473	"the view has been unmapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5474	(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	5475	or due to unmapping of my parentView)."
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5476
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5477	"/ 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	5478	"/ my subviews (they remember this in the shown instVar)
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	5479
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5480	"/ currently, the 'shown ifTrue:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5481	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5482	"/ 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	5483	"/ Therefore, synthetically generate those #superViewUnmapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5484	"/ in any case.
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	5485
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5486	shown := false.
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5487	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5488	subViews do:[:v \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5489	v containerUnmapped
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5490	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5491	self changed:#visibility.
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5492	]
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5493
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	5494	"Modified: 25.2.1997 / 22:40:52 / cg"
135 cf8e46015072 . claus parents: diff changeset	5495	!
cf8e46015072 . claus parents: diff changeset	5496
cf8e46015072 . claus parents: diff changeset	5497	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	5498	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	5499	action - i.e. window manager rearranged things).
cf8e46015072 . claus parents: diff changeset	5500	Using this knowledge avoids useless redraw in obsucred views."
cf8e46015072 . claus parents: diff changeset	5501
cf8e46015072 . claus parents: diff changeset	5502	how == #fullyObscured ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5503	shown := false
135 cf8e46015072 . claus parents: diff changeset	5504	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5505	shown := true.
135 cf8e46015072 . claus parents: diff changeset	5506	]
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	5507	!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	5508
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	5509	visibilityStateChanged
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	5510	"this is called when our visibilityChannel changes"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	5511
3410 f345f5f8e704 Undo prev change. Stefan Vogel <sv@exept.de> parents: 3409 diff changeset	5512	self isVisible:visibilityChannel value
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5513	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5514
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5515	!SimpleView methodsFor:'event simulation'!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5516
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5517	pushEvent:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5518	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5519	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5520	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5521	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	5522
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5523	^ self pushEvent:aSelector withArguments:#()
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5524
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5525	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5526	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5527
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5528	v := View new openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5529	v fill:Color red.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5530	v pushEvent:#redraw
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5531	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5532
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5533	"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	5534	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5535
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5536	pushEvent:aSelector with:arg
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5537	"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	5538	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	5539	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	5540	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	5541
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5542	^ self pushEvent:aSelector withArguments:(Array with:arg)
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5543
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5544	"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	5545	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5546
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5547	pushEvent:aSelector with:arg1 with:arg2
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5548	"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	5549	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	5550	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	5551	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	5552
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5553	^ 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	5554
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5555	"Created: / 10.6.1998 / 17:27:41 / cg"
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5556	!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5557
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5558	pushEvent:aSelector withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5559	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5560	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5561	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5562	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	5563
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5564	self sensor pushUserEvent:aSelector for:self withArguments:args
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5565
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5566	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5567	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5568
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5569	v := (Button label:'hello') openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5570	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5571	v pushEvent:#buttonPress:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5572	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5573	v pushEvent:#buttonRelease:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5574	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5575
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	5576	"Modified: / 10.6.1998 / 17:28:16 / cg"
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5577	! !
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	5578
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5579	!SimpleView methodsFor:'focus handling'!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5580
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5581	canTab
547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5582	"returns true if widget is tabable
547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5583	"
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5584	"/ ^ canTab == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5585	^ flagBits bitTest:FlagCanTab
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5586	!
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5587
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5588	canTab:aBoolean
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5589	"set widget tabable or not
547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5590	"
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5591	"/ canTab := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5592	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5593	flagBits := flagBits bitOr:FlagCanTab
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5594	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5595	flagBits := flagBits bitClear:FlagCanTab
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	5596	].
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5597	!
547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	5598
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5599	doNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5600	"returns true if widget SHOULD NOT request the focus on pointer enter;
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5601	if false is returned, the behavior depends upon the settings.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5602	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5603	^ flagBits bitTest:FlagDoNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5604	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5605
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5606	doNotRequestFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5607	"if true, setup that the widget SHOULD NOT request the focus on pointer enter;
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5608	if false, the behavior depends upon the settings.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5609	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5610
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5611	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5612	flagBits := flagBits bitOr:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5613	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5614	flagBits := flagBits bitClear:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5615	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5616	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5617
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5618	focusNext
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5619	"get next focus view to self
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5620	Skip invisible & disabled widgets.
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5621	"
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5622	\|viewInSubView\|
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5623
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5624	(shown and:[subViews notNil]) ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5625	subViews do:[:aSubView\|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5626	aSubView shown ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5627	(aSubView canTab and:[aSubView enabled]) ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5628	^ aSubView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5629	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5630
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5631	(viewInSubView := aSubView focusNext) notNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5632	^ viewInSubView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5633	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5634	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5635	]
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5636	].
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5637	^ nil
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5638
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5639
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5640
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5641	!
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5642
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5643	focusPrevious
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5644	"get previous focus view to self
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5645	Skip invisible & disabled widgets.
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5646	"
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5647	\|viewInSubView\|
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5648
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5649	(shown and:[subViews notNil]) ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5650	subViews reverseDo:[:aSubView\|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5651	aSubView shown ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5652	viewInSubView := aSubView focusPrevious.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5653
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5654	viewInSubView notNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5655	^ viewInSubView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5656	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5657	(aSubView canTab and:[aSubView enabled]) ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5658	^ aSubView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5659	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5660	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5661	]
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5662	].
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5663	^ nil
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5664
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5665
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5666
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5667	!
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	5668
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5669	requestDoNotFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5670	"returns true if widget SHOULD NOT request the focus on pointer enter;
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5671	if false is returned, the behavior depends upon the settings.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5672	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5673	^ flagBits bitTest:FlagDoNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5674	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5675
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5676	requestDoNotFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5677	"if true, setup that the widget SHOULD NOT request the focus on pointer enter;
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5678	if false, the behavior depends upon the settings.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5679	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5680
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5681	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5682	flagBits := flagBits bitOr:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5683	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5684	flagBits := flagBits bitClear:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5685	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5686	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5687
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5688	requestFocus
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5689	"request focus from my windowGroup;
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5690	typically, this is invoked when the mouse pointer enters a
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5691	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	5692	(it will be ignored, if an explicit focus-change is currently
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5693	active - i.e. if the user tabbed into a widget)"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5694
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5695	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5696	^ windowGroup focusRequestFrom:self
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5697	].
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5698	^ true
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5699	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5700
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5701	requestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5702	"returns true if widget SHOULD request the focus on pointer enter;
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5703	if false is returned, the behavior depends upon the settings.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5704	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5705	^ flagBits bitTest:FlagRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5706	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5707
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5708	requestFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5709	"if true, setup that the widget SHOULD request the focus on pointer enter;
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5710	if false, the behavior depends upon the settings.
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5711	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5712
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5713	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5714	flagBits := flagBits bitOr:FlagRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5715	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5716	flagBits := flagBits bitClear:FlagRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5717	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5718	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	5719
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5720	showFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5721	"highlight myself somehow to tell user that I have the focus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5722	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	5723	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	5724	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5725
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5726	\|delta clrId bd\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5727
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5728	explicit ifTrue:[
4193 7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5729	(drawableId notNil
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5730	and:[superView notNil
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5731	and:[styleSheet notNil]]) ifTrue:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5732	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5733	(device supportsWindowBorder:(bd := DefaultFocusBorderWidth)) ifFalse:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5734	(device supportsWindowBorder:(bd := 1)) ifFalse:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5735	bd := 0.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5736	]
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5737	].
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5738	delta := bd - borderWidth.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5739	delta ~~ 0 ifTrue:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5740	(left == 0 or:[top == 0]) ifTrue:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5741	device resizeWindow:drawableId width:width-delta-delta height:height-delta-delta.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5742	] ifFalse:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5743	device moveWindow:drawableId x:left-delta y:top-delta.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5744	].
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5745	device setWindowBorderWidth:bd in:drawableId.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5746	].
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5747
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5748	clrId := (DefaultFocusColor onDevice:device) colorId.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5749	clrId isNil ifTrue:[
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5750	clrId := device blackpixel
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5751	].
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5752	device setWindowBorderColor:clrId in:drawableId.
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5753	]
7156e834b5d8 * empty log message * ca parents: 4192 diff changeset	5754	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5755	] ifFalse:[
2560 a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	5756	"/ superView notNil ifTrue:[
a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	5757	"/ superView showFocus:explicit
a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	5758	"/ ]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5759	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5760
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5761	"Modified: / 17.9.1998 / 15:08:34 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5762	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5763
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5764	showNoFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5765	"undo the effect of showFocus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5766	Explicit tells if the focus came via focusStepping (i.e. tabbing)
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5767	or via the window manager (i.e. pointer entering).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5768	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5769
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	5770	\|delta bd\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5771
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5772	explicit ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5773	(drawableId notNil and:[superView notNil]) ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5774	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5775	(device supportsWindowBorder:(bd := borderWidth)) ifFalse:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5776	(device supportsWindowBorder:(bd := 1)) ifFalse:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5777	bd := 0.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5778	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5779	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5780	delta := DefaultFocusBorderWidth - bd.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5781	delta ~~ 0 ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5782	device setWindowBorderWidth:bd in:drawableId.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5783	device moveWindow:drawableId x:left y:top.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5784	device resizeWindow:drawableId width:width height:height.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5785	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5786	self setBorderColor.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5787	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5788	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5789	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5790
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5791	"Modified: / 17.9.1998 / 15:08:02 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5792	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5793
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5794	wantsFocusWithButtonPress
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5795	"views which do not like to take the keyboard focus
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5796	with buttonPress can do so by redefining this
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5797	to return false"
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5798
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5799	(self class == SimpleView) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5800	"/ a pure filler/geometric layout view
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5801	^ false
3581 72e09769d372 do not take focus when disabled Claus Gittinger <cg@exept.de> parents: 3559 diff changeset	5802	].
72e09769d372 do not take focus when disabled Claus Gittinger <cg@exept.de> parents: 3559 diff changeset	5803	^ self enabled
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5804	!
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5805
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5806	wantsFocusWithPointerEnter
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5807	"views which like to take the keyboard focus
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5808	when the pointer enters can do so by redefining this
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5809	to return true"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5810
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	5811	^ false
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5812	! !
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5813
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5814	!SimpleView methodsFor:'grabbing'!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5815
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5816	forceUngrabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5817	"force a keyboard ungrab - even if was not the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5818
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5819	device ungrabKeyboard.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5820
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5821	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5822
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5823	forceUngrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5824	"force a pointer ungrab - even if was not the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5825
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5826	device ungrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5827
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5828	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5829
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5830	grabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5831	"grab the keayboard - that is: report all keyboard events to myself,
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5832	even if the mouse moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5833	Returns true, if the grab was sucessfull (could fail, if some other
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5834	application has a grab - but thats very unlikely)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5835
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5836	^ device grabKeyboardInView:self.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5837	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5838
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5839	grabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5840	"grab the pointer - that is: report all motion events relative to
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5841	myself, even if moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5842	Returns true, if the grab was sucessfull (could fail, if some other
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5843	application has a grab - but thats very unlikely)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5844
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5845	^ self grabPointerWithCursor:nil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5846	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5847
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5848	grabPointerWithCursor:aCursorOrNil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5849	"grab the pointer - that is: report all motion events relative to
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5850	myself, even if moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5851	Show aCursor during the grab, if the cursor argument is not nil.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5852	Returns true, if the grab was sucessfull (could fail, if some other
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5853	application has a grab - but thats very unlikely)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5854
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5855
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5856	"/ (sensor := self sensor) notNil ifTrue:[
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5857	"/ "/ make certain all X events have been received
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5858	"/ device sync.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5859	"/ "/ now all events have been received.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5860	"/ "/ now, flush all pointer events
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5861	"/ sensor flushMotionEventsFor:nil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5862	"/ ].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5863
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5864	aCursorOrNil notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5865	cursor := (aCursorOrNil onDevice:device).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5866	^ device grabPointerInView:self withCursor:cursor
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5867	].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5868	^ device grabPointerInView:self
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5869	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5870
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5871	ungrabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5872	"ungrab the keyboard - but only if I was the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5873
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5874	\|sensor\|
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5875
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5876	device activeKeyboardGrab == self ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5877	(sensor := self sensor) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5878	"/ make certain all X events have been received
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5879	device sync.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5880	"/ now all events have been received.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5881	"/ now, flush all pointer events
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5882	sensor flushKeyboardFor:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5883	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5884	device ungrabKeyboard.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5885	].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5886
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5887	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5888
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5889	ungrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5890	"ungrab the pointer - but only if I was the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5891
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5892	\|sensor\|
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5893
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5894	device activePointerGrab == self ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5895	(sensor := self sensor) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5896	"/ make certain all X events have been received
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5897	device sync.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5898	"/ now all events have been received.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5899	"/ now, flush all pointer events
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5900	sensor flushMotionEventsFor:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5901	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5902	device ungrabPointer.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5903	]
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5904	! !
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	5905
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5906	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5907
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5908	contentsChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5909	"this one is sent, whenever contents changes size -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5910	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5911
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5912	self changed:#sizeOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5913	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5914
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5915	noticeOfWindowClose
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5916	\|app\|
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5917
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5918	(app := self application) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5919	app noticeOfWindowClose:self
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5920	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5921	!
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5922
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5923	noticeOfWindowOpen
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5924	\|app\|
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5925
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5926	(app := self application) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5927	app noticeOfWindowOpen:self
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5928	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5929	!
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	5930
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5931	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5932	"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	5933	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5934
3510 f8d3abbf10d5 * empty log message * frank parents: 3485 diff changeset	5935	(delta = (0@0)) ifTrue:[^ self].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5936	self changed:#originOfContents with:delta.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5937	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5938	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5939	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5940	"/ ]
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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5943
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5944	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5945	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5946	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5947	(for example to hide cursor before scroll)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5948
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5949	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5950	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5951
3165 b9de858a61b5 cantab Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	5952	!SimpleView methodsFor:'initialization & release'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5953
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5954	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5955	^ nil "/ Controller
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5956	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5957
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5958	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	5959	"return the default extent of my instances."
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	5960
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5961	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5962
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5963	"Created: 1.3.1996 / 19:20:46 / cg"
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	5964	"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	5965	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	5966
3662 faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	5967	defaultFont
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	5968	^ self class defaultFont
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	5969	!
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	5970
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5971	destroy
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5972	"unmap & destroy - make me invisible, destroy subviews then
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5973	make me unknown to the device"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5974
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5975	realized ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5976	self unmap.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5977	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5978	shown := false.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5979
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5980	"/ controller notNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5981	"/ controller release.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5982	"/ controller := nil.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5983	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5984
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5985	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5986	self destroySubViews.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5987	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5988	superView notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5989	superView removeSubView:self.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5990	superView := nil
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5991	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5992	super destroy.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5993
3709 7f3f08a3607d flush in #unmap Claus Gittinger <cg@exept.de> parents: 3708 diff changeset	5994	self release.
7f3f08a3607d flush in #unmap Claus Gittinger <cg@exept.de> parents: 3708 diff changeset	5995
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5996	"/ superView isNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5997	"/ device flush
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5998	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	5999
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6000	controller notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6001	controller release.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6002	controller := nil.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6003	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6004
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6005	windowGroup notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6006	windowGroup removeView:self.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6007	windowGroup := nil
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6008	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6009
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6010	self noticeOfWindowClose.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6011	!
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6012
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6013	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6014	"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	6015	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6016
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6017	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6018	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6019
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6020	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6021	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6022
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6023	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6024
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6025	borderWidth := DefaultBorderWidth.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6026	borderWidth isNil ifTrue:[borderWidth := 1].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6027
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6028	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6029
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6030	DefaultLightColor notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6031	lightColor := DefaultLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6032	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6033	device hasGrayscales ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6034	DefaultLightColor := lightColor := viewBackground lightened.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6035	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6036	"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6037	this seems strange: on B&W screens, we create the light color
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6038	darker than normal viewBackground (White) -
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6039	to make the boundary of the view visible
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6040	"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6041	lightColor := Color gray:50
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6042	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6043	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6044	DefaultShadowColor notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6045	shadowColor := DefaultShadowColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6046	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6047	shadowColor := Black
3669 7f3fb4967f53 dont call defaultFont twice Michael Beyl <mb@exept.de> parents: 3662 diff changeset	6048	].
7f3fb4967f53 dont call defaultFont twice Michael Beyl <mb@exept.de> parents: 3662 diff changeset	6049
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6050	borderColor := DefaultBorderColor.
3669 7f3fb4967f53 dont call defaultFont twice Michael Beyl <mb@exept.de> parents: 3662 diff changeset	6051	"/ font := self defaultFont. -- already done in #initialize
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	6052	font := font onDevice:device.
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	6053
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	6054	"Modified: 28.5.1996 / 21:13:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6055	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6056
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6057	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6058	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6059
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6060	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6061	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6062	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6063	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6064	StyleSheet isNil ifTrue:[
3765 e008a9a2b3b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3762 diff changeset	6065	DefaultStyle isNil ifTrue:[
e008a9a2b3b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3762 diff changeset	6066	"/ the very-very first time (no styleSheet yet)
e008a9a2b3b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3762 diff changeset	6067	View setDefaultStyle.
e008a9a2b3b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3762 diff changeset	6068	View defaultStyle:DefaultStyle.
e008a9a2b3b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3762 diff changeset	6069	].
e008a9a2b3b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3762 diff changeset	6070	SimpleView updateAllStyleCaches
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6071	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6072
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6073	styleSheet := StyleSheet.
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	6074
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	6075	"Modified: 25.7.1996 / 22:00:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6076	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6077
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6078	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6079	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6080	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6081	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6082	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	6083	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	6084	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	6085	(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	6086	leave the state and contents as-is)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6087
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6088	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6089
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6090	flagBits := 0.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6091
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6092	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6093
3662 faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	6094	font := self defaultFont.
4123 54bc091ff809 font: onDevice james parents: 4122 diff changeset	6095	font := font onDevice:device.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6096
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6097	shown := hiddenOnRealize := realized := false.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6098
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6099	"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	6100	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6101
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6102	myClass := self class.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6103	name := myClass name "asString" asLowercaseFirst.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6104	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6105
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6106	level := borderWidth := margin := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6107
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6108	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6109
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	6110	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6111	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6112	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6113	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6114
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6115	self originChangedFlag:false.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6116	self extentChangedFlag:false.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6117	self cornerChangedFlag:false.
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	6118	bitGravity := #NorthWest. "/ nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6119	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6120
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6121	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6122	controllerClass notNil ifTrue:[
3967 ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	6123	controller := controllerClass new.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	6124	controller view:self.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	6125	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	6126
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	6127	self initializeMiddleButtonMenu.
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6128
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6129	"Modified: / 1.10.1998 / 14:31:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6130	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6131
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6132	initializeMiddleButtonMenu
3968 4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	6133	"a place to initialize menu - this one is sent once when the view-object is initialized.
4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	6134	usually redefined in subclasses; default here is no menu.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6135	Notice, that static middleButtonmenus are a historic thing in ST/X;
3968 4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	6136	you may prefer to create the menu dynamically."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6137
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6138	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6139	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6140
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6141	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6142	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6143	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6144	windowGroup reinitialize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6145	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6146	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6147
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6148	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6149	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6151	\|t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6152
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6153	self initStyle.
3945 bdbc16f787dc systemColorChange on windows Claus Gittinger <cg@exept.de> parents: 3926 diff changeset	6154	(drawableId notNil and:[gcId notNil]) ifTrue:[
bdbc16f787dc systemColorChange on windows Claus Gittinger <cg@exept.de> parents: 3926 diff changeset	6155	"force a change"
bdbc16f787dc systemColorChange on windows Claus Gittinger <cg@exept.de> parents: 3926 diff changeset	6156	t := borderWidth. borderWidth := nil. self borderWidth:t.
bdbc16f787dc systemColorChange on windows Claus Gittinger <cg@exept.de> parents: 3926 diff changeset	6157	t := viewBackground. viewBackground := nil. self viewBackground:t.
4069 70286020166c clear -> clearView Claus Gittinger <cg@exept.de> parents: 4057 diff changeset	6158	self clearView.
3945 bdbc16f787dc systemColorChange on windows Claus Gittinger <cg@exept.de> parents: 3926 diff changeset	6159	self invalidate.
2357 29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	6160	].
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	6161
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	6162	"Modified: / 18.9.1998 / 21:15:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6163	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6164
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6165	reinitialize
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	6166	"this is called right after snapIn"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6167
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	6168	\|myController sv\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6169
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6170	"if I have already been reinited - return"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6171	drawableId notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6172	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6173	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6174
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6175	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6176	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6177	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6178	superView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6179	(sv := superView view) id isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6180	sv reinitialize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6181	]
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	6182	].
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	6183
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	6184	"reinit cursor"
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	6185	self initCursor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6186
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6187	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6188	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6189	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6190
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6191	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6192	realized ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6193	"only remap if I have a superview - otherwise, I might be
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6194	a hidden iconView or menu ..."
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6195	superView notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6196	"/ shown ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6197	device
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6198	mapView:self id:drawableId iconified:false
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6199	atX:left y:top width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6200	minExtent:(self minExtent) maxExtent:(self maxExtent)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6201	"/ ].
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6202	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6203	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6204
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6205	"restore controller"
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	6206	controller := myController.
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	6207
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	6208	"Modified: / 6.5.1999 / 13:11:07 / cg"
135 cf8e46015072 . claus parents: diff changeset	6209	! !
cf8e46015072 . claus parents: diff changeset	6210
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6211	!SimpleView methodsFor:'keyboard control'!
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6212
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6213	defineShortcutAndTranslateLabelStringFrom:aString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6214	\|i\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6215
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6216	aString isString ifFalse:[ ^ aString].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6217
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6218	(aString includes:$&) ifFalse:[ ^ aString].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6219	i := self shortcutAndTranslatedStringFrom:aString.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6220	self shortcutKey:(i at:1).
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6221	^ i at:2.
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6222	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6223
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6224	mnemonicKey
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6225	"get the mnemonic key or nil if undefined
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6226	"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6227	^ self objectAttributeAt:#mnemonicKey
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6228	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6229
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6230	mnemonicKey:aSymbolOrNil
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6231	"set or clear the mnemonic key
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6232	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6233	aSymbolOrNil isSymbol ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6234	self objectAttributeAt:#mnemonicKey put:aSymbolOrNil
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6235	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6236	self removeObjectAttribute:#mnemonicKey
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6237	].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6238	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6239
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6240	mnemonicViewNext:aKeyEvent
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6241	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6242	is the mnemonic-key defined for a subView return the view otherwise nil.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6243	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6244	\|key rawKey mnemonic view\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6245
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6246	key := aKeyEvent key.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6247	rawKey := aKeyEvent rawKey.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6248
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6249	(shown and:[subViews notNil]) ifTrue:[
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6250
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6251	subViews do:[:aSubView\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6252	aSubView shown ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6253	( aSubView enabled
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6254	and:[(mnemonic := aSubView mnemonicKey) notNil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6255	and:[(mnemonic == rawKey or:[mnemonic == key])]]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6256	) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6257	^ aSubView
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6258	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6259
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6260	(view := aSubView mnemonicViewNext:aKeyEvent) notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6261	^ view
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6262	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6263	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6264	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6265	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6266	^ nil
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6267	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6268
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6269	performShortcutAction
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6270	"perform my shortcutKey action.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6271	"
3374 3313d1faa927 compilable Claus Gittinger <cg@exept.de> parents: 3371 diff changeset	6272	"/ intentionally left blank here
3313d1faa927 compilable Claus Gittinger <cg@exept.de> parents: 3371 diff changeset	6273	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6274
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6275	processShortcut:aKeyEvent
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6276	"a shortcutKey event as forwarded from the keyboardProcessor - if there is the
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6277	shortcut-key defined process the shortcut and return true otherwise false.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6278	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6279	\|key\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6280
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6281	shown ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6282	self enabled ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6283	(key := self shortcutKey) notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6284	(key == aKeyEvent key or:[key == aKeyEvent rawKey]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6285	self requestFocus.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6286	(controller ? self) performShortcutAction.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6287	^ true
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6288	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6289	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6290	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6291
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6292	subViews notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6293	subViews do:[:aSubView\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6294	(aSubView processShortcut:aKeyEvent) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6295	^ true
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6296	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6297	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6298	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6299	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6300	^ false
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6301	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6302
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6303	shortcutAndTranslatedStringFrom:aString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6304	"return an array filled with an extracted shortcut key and a translated string;
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6305	looks for and reemoves any ampercent character from aString, and adds underline emphasis to the
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6306	following character"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6307
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	6308	\|xLatedString c n s pos shortcutCharacter shortcut\|
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6309
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6310	xLatedString := '' writeStream.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6311	s := aString readStream.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6312
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6313	[s atEnd] whileFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6314	c := s next.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6315	c == $& ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6316	n := s peek.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6317	(n notNil and:[n isLetter]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6318	c := s next.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6319	pos := xLatedString size + 1.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6320	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6321	n == $& ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6322	s next.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6323	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6324	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6325	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6326	c notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6327	xLatedString nextPut:c
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6328	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6329	].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6330
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6331	xLatedString := xLatedString contents.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6332	pos notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6333	shortcutCharacter := xLatedString at:pos ifAbsent:nil.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6334
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6335	xLatedString isText ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6336	xLatedString := Text string:xLatedString
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6337	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6338	xLatedString emphasisAt:pos add:#underline.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6339
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6340	shortcut := ('Cmd' , shortcutCharacter asLowercase) asSymbol.
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6341	].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6342	^ Array with:shortcut with:xLatedString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6343
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6344	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6345	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6346	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6347	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&&llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6348	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he& llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6349	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&123llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6350	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello &' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6351	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello &&' ) last
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6352	"
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6353	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6354
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6355	shortcutKey
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6356	"get the shortcut key
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6357	"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6358	^ self objectAttributeAt:#shortcutKey
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6359	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6360
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6361	shortcutKey:aSymbolOrNil
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6362	"set or clear the shortcut key
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6363	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6364	aSymbolOrNil isSymbol ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6365	self objectAttributeAt:#shortcutKey put:aSymbolOrNil
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6366	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6367	self removeObjectAttribute:#shortcutKey
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6368	].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	6369	! !
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	6370
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6371	!SimpleView methodsFor:'menu handling'!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6372
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6373	activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6374	"activate my menu.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6375	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	6376	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	6377	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	6378	Otherwise, the follwing steps are performed:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6379
4189 e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6380	- ask the receiver for the menu (via #yellowButtonMenu)
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6381	- ask the receiver for the menuPerformer.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6382	- startUp the menu - it is supposed to return an actionSelector
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6383	- if the menuPerformer responds to the selector,
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6384	send it to the performer;
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6385	otherwise send it to the view (the receiver)
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6386	This is funny, it allows additional menuItems to be added
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6387	AND still get the views copy/cut/paste functionality.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6388	Without this, you had to redefine and forward all of those
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6389	messages in the performer."
2489 f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	6390
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	6391	\|menu menuPerformer actionSelector prevReceiver wg\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6392
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6393	middleButtonMenu isNil ifTrue:[
4189 e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6394	"
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6395	try ST-80 style menus first:
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6396	if there is a model, and a menuMessage is defined,
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6397	ask model for the menu and launch that if non-nil.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6398	"
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6399	menu := self yellowButtonMenu.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6400	menu notNil ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6401	"
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6402	got one, launch the menu. It is supposed
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6403	to return an actionSelector.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6404	"
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6405	menuPerformer := self menuPerformer value.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6406
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6407	"/ could be a spec ...
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6408	menu isArray ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6409	menu := menu decodeAsLiteralArray.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6410	menu receiver:menuPerformer.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6411	menu findGuiResourcesIn:self application.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6412	] ifFalse:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6413	(menu respondsTo:#receiver) ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6414	menuPerformer := menu receiver ? menuPerformer.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6415	].
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6416	].
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6417
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6418	"
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6419	a temporary kludge:
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6420	pass myself as receiver, the menuPerformer as performer;
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6421	the menu will send its messages to either the
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6422	menuPerformer or me (its receiver).
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6423	This allows for the ST-80 behavior, where some messages
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6424	go to the model, others to the view
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6425	(copy/cut/paste).
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6426	"
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6427	(prevReceiver := menu receiver) isNil ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6428	"/ kludge for oldStyle menus (MenuView/PopUpMenu)
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6429	"/ not req'd for real Menus
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6430	"/ (menu isKindOf:Menu) ifFalse:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6431	(menu respondsTo:#menuPerformer:) ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6432	menu receiver:self. "/ really ?
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6433	menu menuPerformer:menuPerformer.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6434	] ifFalse:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6435	"/ ] ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6436	"/ new style menu
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6437	menu receiver:menuPerformer.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6438	]
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6439	].
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6440
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6441	"/
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6442	"/ startup the menu - this returns a selector
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6443	"/
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6444	actionSelector := self startUpMenu:menu.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6445
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6446	"/ before doing anything else, redraw expose area from
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6447	"/ the menu (in case the action changes my state)
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6448	(wg := self windowGroup) notNil ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6449	wg processExposeEvents.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6450	].
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6451
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6452	(actionSelector notNil and:[actionSelector isSymbol]) ifTrue:[
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6453	self dispatchMenuSelection:actionSelector to: menuPerformer.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6454	].
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6455
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6456	menu receiver:prevReceiver.
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6457
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6458	^ self
e02b0c6dec2f keep a menus receiver if #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 4184 diff changeset	6459	].
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6460	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6461
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6462	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6463	"/ old style static menu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6464	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6465	super activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6466
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	6467	"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	6468	"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	6469	!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6470
3241 e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	6471	dispatchMenuSelection:menuSelection to:aMenuPerformerOrNil
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6472	"dispatch a menu message.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6473	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	6474
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6475	\|actionSelector actionArg1 actionArg2 app menuPerformer\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6476
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6477	actionSelector := menuSelection.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6478
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6479	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6480	mhmh - kludge for selectors with argument
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6481	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6482	(menuSelection isMemberOf:Array) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6483	actionArg1 := menuSelection at:2.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6484	actionSelector := menuSelection at:1.
3241 e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	6485	].
e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	6486
e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	6487	menuPerformer := aMenuPerformerOrNil ? self menuPerformer.
1839 7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	6488
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6489	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6490	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	6491	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	6492	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	6493	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6494	actionSelector isSymbol ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6495	(menuPerformer respondsTo:actionSelector) ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6496	((app := self application) respondsTo:actionSelector) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6497	menuPerformer := app.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6498	actionArg1 := self model.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6499	actionArg2 := self controller.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6500	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6501	(self respondsTo:actionSelector) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6502	menuPerformer := self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6503	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6504	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6505	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6506	menuPerformer perform:actionSelector withOptionalArgument:actionArg1 and:actionArg2.
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6507	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6508
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6509	"Created: / 20.6.1997 / 11:47:42 / cg"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	6510	"Modified: / 1.11.1997 / 13:45:23 / cg"
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6511	!
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6512
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6513	menuFromSpec:aMenuOrMenuSpec
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6514	"create a menu for the receiver from a spec"
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6515
3559 bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	6516	\|spec\|
bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	6517
bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	6518	aMenuOrMenuSpec isNil ifTrue:[^ nil].
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6519
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6520	aMenuOrMenuSpec isArray ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6521	spec := aMenuOrMenuSpec decodeAsLiteralArray.
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6522	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6523	spec := aMenuOrMenuSpec.
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6524	].
3556 eaea177415b0 findGuiResources... now sets the receiver, if not yet set Claus Gittinger <cg@exept.de> parents: 3540 diff changeset	6525	"/ spec receiver:self. -- now done in findGuiResources ...
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6526	spec findGuiResourcesIn:self.
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	6527	^ spec.
3752 c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	6528	!
c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	6529
c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	6530	startUpMenu:aMenu
3753 e593d6729f4e can now specify if menu action is to be performed by ca parents: 3752 diff changeset	6531	^ aMenu startUpFor:self
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6532	! !
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	6533
140 0db355079dc4 . claus parents: 138 diff changeset	6534	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	6535
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6536	componentsContainingX:x y:y do:aBlock
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6537	components notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6538	components reverseDo:[:aComponent \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6539	\|thisFrame\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6540
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6541	thisFrame := aComponent bounds.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6542	(thisFrame containsPointX:x y:y) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6543	"/ prepare for masked/non-rectangular components ...
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6544	(aComponent perform:#containsPointX:y: with:x with:y ifNotUnderstood:true)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6545	ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6546	aBlock value:aComponent
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6547	value:x - thisFrame left
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6548	value:y - thisFrame top.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6549	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6550	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6551	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6552	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6553
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6554	"Created: 8.5.1996 / 23:40:59 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6555	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6556
140 0db355079dc4 . claus parents: 138 diff changeset	6557	computeInnerClip
0db355079dc4 . claus parents: 138 diff changeset	6558	"compute, but do not set the inside clip-area"
0db355079dc4 . claus parents: 138 diff changeset	6559
0db355079dc4 . claus parents: 138 diff changeset	6560	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	6561
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	6562	margin isNil ifTrue:[margin := 0].
140 0db355079dc4 . claus parents: 138 diff changeset	6563	(margin ~~ 0) ifTrue:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	6564	m2 := margin + margin.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6565	nX := nY := margin.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6566	nW := width - m2.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6567	nH := height - m2.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6568	"/ transformation notNil ifTrue:[
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6569	"/ nX := transformation applyInverseToX:nX.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6570	"/ nY := transformation applyInverseToY:nY.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6571	"/ nW := transformation applyInverseScaleX:nW.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6572	"/ nH := transformation applyInverseScaleY:nH.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6573	"/ ].
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	6574	innerClipRect := Rectangle
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6575	left:nX
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6576	top:nY
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6577	width:nW
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6578	height:nH
140 0db355079dc4 . claus parents: 138 diff changeset	6579	] ifFalse:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	6580	"no clipping"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	6581	innerClipRect := nil
140 0db355079dc4 . claus parents: 138 diff changeset	6582	]
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6583
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6584	"Modified: / 22.5.1999 / 16:50:58 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6585	!
0db355079dc4 . claus parents: 138 diff changeset	6586
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6587	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6588	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6589
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6590	^ self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6591	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6592
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6593	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6594	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6595
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6596	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6597
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6598	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6599
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6600	bw := borderWidth ? 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6601	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6602	bw == 0 ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6603	^ p
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6604	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6605	^ (p x - bw) @ (p y - bw)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6606	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6607	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6608	b := (insets at:4) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6610	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6611	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6612	"/ r := rightInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6613	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6614	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6615	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6616	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6617	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6618	^ (p x - r) @ (p y - b)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6619	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6620	^ p
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6621
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6622	"Modified: / 1.10.1998 / 13:21:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6623	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6624
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6625	detectViewAt:aPoint
3540 5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6626	"find the subView which contains aPoint - invisible components are ignored.
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6627	This is almost the same as #componentContainingX:y: (if that existed) "
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6628
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6629	^ self detectViewAt:aPoint ignoreInvisible:false
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6630	!
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6631
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6632	detectViewAt:aPoint ignoreInvisible:ignoreInvisible
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6633	"find the subView which contains aPoint - invisible components are ignored if
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	6634	the ignoreInvisible argument is false.
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6635	This is almost the same as #componentContainingX:y: (if that existed) "
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6636
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	6637	\|subViews\|
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6638
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6639	(subViews := self subViews) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6640	subViews do:[:v\| \|p\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6641	(ignoreInvisible or:[v shown]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6642	( (aPoint x between:(v left) and:(v right))
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6643	and:[aPoint y between:(v top) and:(v bottom)]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6644	) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6645	"/ found a subview - the point is there
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6646	p := device translatePoint:aPoint fromView:self toView:v.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6647	^ v detectViewAt:p ignoreInvisible:ignoreInvisible.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6648	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6649	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6650	]
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6651	].
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6652	"/ no subview - the point is here
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6653	^ self
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6654
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6655	"Modified: / 10.10.2001 / 13:45:26 / cg"
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6656	!
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6657
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6658	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6659	"compute & return pixel extent from relativeExtent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6660
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6661	^ self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6662	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6663
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6664	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6665	"compute & return pixel extent from relativeExtent, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6666
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6667	\|rel newX newY inRect bw2 i\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6668
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6669	superView isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6670	inRect := 0@0 extent:device extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6671	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6672	inRect := superView viewRectangle.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6673	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6674
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6675	bw2 := borderWidth * 2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6677	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6678	rel isInteger ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6679	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6680	(borderWidth ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6681	newX := newX - borderWidth
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6682	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6683	] ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6684	newX := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6685	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6686
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6687	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6688	rel isInteger ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6689	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6690	(borderWidth ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6691	newY := newY - borderWidth
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6692	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6693	] ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6694	newY := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6695	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6696
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6697	insets notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6698	i := insets at:1. "top"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6699	(i ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6700	newX := newX - i
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6701	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6702	i := insets at:3. "left"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6703	(i ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6704	newX := newX - i
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6705	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6706	i := insets at:2. "right"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6707	(i ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6708	newY := newY - i
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6709	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6710	i := insets at:4. "bottom"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6711	(i ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6712	newY := newY - i
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6713	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6714	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6715	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6716	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6717
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6718	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6719	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6720
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6721	^ self originFromRelativeOrigin:relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6722	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6723
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6724	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6725	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6726
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6727	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6728
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6729	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6730
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6731	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6732	^ p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6733	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6734	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6735	t := insets at:2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6736
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6737	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6738	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6739	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6740	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6741	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6742	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6743	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6744	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6745	^ (p x + l) @ (p y + t)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6746	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6747	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6748	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6750	pixelCorner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6751	"set the views corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6752
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6753	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6754
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6755	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6756	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6757	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6758
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6759	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6760	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6761
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6762	pixelExtent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6763	"set the views extent in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6764
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6765	self pixelOrigin:(left @ top) extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6766	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6767
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6768	pixelOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6769	"return the views origin in pixels. For subviews. the origin is relative
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6770	to the superviews top-left. For topViews, its the screen origin."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6771
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6772	^ self computeOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6773	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	6774
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6775	pixelOrigin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6776	"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	6777	to the superviews top-left. For topViews, its the screen origin."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6778
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6779	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6780
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6781	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6782	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6783	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6784	top := newTop.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6785	left := newLeft.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6786
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6787	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6788	if the receiver is visible, or is a topView, perform the
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6789	operation right away - otherwise, simply remember that the
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6790	origin has changed - will tell the display once we get realized
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6791	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6792	"/ (shown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6793	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6794
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6795	"/ no, have to do it if drawableId is there
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6796	"/ (otherwise, we could not move unmapped views around ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6797	"/
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6798	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6799	device moveWindow:drawableId x:left y:top
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6800	] ifFalse:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6801	self originChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6802	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6803	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6804	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6805
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6806	pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6807	"set the views origin and corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6808
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6809	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6810
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6811	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6812	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6813	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6814
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6815	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6816	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6817
140 0db355079dc4 . claus parents: 138 diff changeset	6818	pixelOrigin:origin extent:extent
0db355079dc4 . claus parents: 138 diff changeset	6819	"set the views origin and extent in pixels"
0db355079dc4 . claus parents: 138 diff changeset	6820
0db355079dc4 . claus parents: 138 diff changeset	6821	\|newLeft newTop newWidth newHeight how
0db355079dc4 . claus parents: 138 diff changeset	6822	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
3340 f810ebc6d836 preserve current paint when drawing edges martin parents: 3327 diff changeset	6823	mustRepaintRight sameOrigin oldWidth oldHeight oldPaint\|
140 0db355079dc4 . claus parents: 138 diff changeset	6824
0db355079dc4 . claus parents: 138 diff changeset	6825	newLeft := origin x.
0db355079dc4 . claus parents: 138 diff changeset	6826	newTop := origin y.
0db355079dc4 . claus parents: 138 diff changeset	6827	sameOrigin := ((newTop == top) and:[newLeft == left]).
0db355079dc4 . claus parents: 138 diff changeset	6828
0db355079dc4 . claus parents: 138 diff changeset	6829	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	6830	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	6831
0db355079dc4 . claus parents: 138 diff changeset	6832	"
0db355079dc4 . claus parents: 138 diff changeset	6833	X complains badly if you try to create/resize a view with
0db355079dc4 . claus parents: 138 diff changeset	6834	a dimension <= 0 ... (although I think that 0 maks sense ...)
0db355079dc4 . claus parents: 138 diff changeset	6835	"
0db355079dc4 . claus parents: 138 diff changeset	6836	newWidth < 1 ifTrue:[
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6837	newWidth := 1.
140 0db355079dc4 . claus parents: 138 diff changeset	6838	].
0db355079dc4 . claus parents: 138 diff changeset	6839	newHeight < 1 ifTrue:[
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6840	newHeight := 1
140 0db355079dc4 . claus parents: 138 diff changeset	6841	].
0db355079dc4 . claus parents: 138 diff changeset	6842
0db355079dc4 . claus parents: 138 diff changeset	6843	((newWidth == width) and:[newHeight == height]) ifTrue:[
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6844	sameOrigin ifTrue:[^ self].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6845	self changed:#origin.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6846	^ self pixelOrigin:origin
140 0db355079dc4 . claus parents: 138 diff changeset	6847	].
0db355079dc4 . claus parents: 138 diff changeset	6848	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	6849	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	6850
0db355079dc4 . claus parents: 138 diff changeset	6851	"/ shown ifTrue:[ "4-nov-94 actually correct,"
0db355079dc4 . claus parents: 138 diff changeset	6852	drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6853	mustRedrawBottomEdge := (level ~~ 0) and:[newHeight < height].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6854	mustRedrawRightEdge := (level ~~ 0) and:[newWidth < width].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6855
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6856	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6857	how := #smaller
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6858	] ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6859	((newHeight >= height) and:[newWidth >= width]) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6860	how := #larger
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6861	]
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6862	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6863
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6864	mustRepaintRight := false.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6865	mustRepaintBottom := false.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6866
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6867	oldWidth := width.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6868	oldHeight := height.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6869
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6870	shown ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6871	(level ~~ 0) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6872	"clear the old edges"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6873
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6874	newWidth > width ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6875	self clippingRectangle:nil.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6876	oldPaint := paint.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6877	self paint:viewBackground.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6878	self fillDeviceRectangleX:(width - margin)
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6879	y:0
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6880	width:margin
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6881	height:height.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6882	self paint:oldPaint.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6883	mustRepaintRight := true.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6884	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6885	newHeight > height ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6886	self clippingRectangle:nil.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6887	oldPaint := paint.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6888	self paint:viewBackground.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6889	self fillDeviceRectangleX:0
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6890	y:(height - margin)
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6891	width:width
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6892	height:margin.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6893	self paint:oldPaint.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6894	mustRepaintBottom := true.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6895	]
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6896	]
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6897	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6898
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6899	width := newWidth.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6900	height := newHeight.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6901
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6902	self setInnerClip.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6903
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6904	"if view becomes smaller, send sizeChanged first"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6905	true "(how == #smaller)" ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6906	self sizeChanged:how
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6907	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6908
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6909	"have to tell X, when extent of view is changed"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6910	sameOrigin ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6911	device resizeWindow:drawableId width:width height:height.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6912
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6913	] ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6914	"claus: some xservers seem to do better when resizing
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6915	first ...."
140 0db355079dc4 . claus parents: 138 diff changeset	6916	"
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6917	(how == #smaller) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6918	device resizeWindow:drawableId width:width height:height.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6919	device moveWindow:drawableId x:left y:top
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6920	] ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6921	device moveResizeWindow:drawableId x:left y:top width:width height:height
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6922	].
140 0db355079dc4 . claus parents: 138 diff changeset	6923	"
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6924	device moveResizeWindow:drawableId x:left y:top
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6925	width:width height:height.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6926	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6927
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6928	"if view becomes bigger, send sizeChanged after"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6929	false "(how ~~ #smaller)" ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6930	self sizeChanged:how
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6931	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6932
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6933	shown ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6934	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6935	self deviceClippingRectangle:nil.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6936	oldPaint := paint.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6937	mustRedrawBottomEdge ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6938	self drawBottomEdge
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6939	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6940	mustRedrawRightEdge ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6941	self drawRightEdge
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6942	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6943	self paint:oldPaint.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6944	self deviceClippingRectangle:innerClipRect
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6945	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6946	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6947
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6948	mustRepaintRight ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6949	self invalidateDeviceRectangle:(((oldWidth - margin) @ 0)
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6950	extent:margin@height)
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6951	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6952	"/ self redrawDeviceX:(oldWidth - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6953	"/ y:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6954	"/ width:margin
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6955	"/ height:height.
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6956	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6957	mustRepaintBottom ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6958	self invalidateDeviceRectangle:((0 @ (oldHeight - margin))
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6959	extent:width@margin)
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6960	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6961	"/ self redrawDeviceX:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6962	"/ y:(oldHeight - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6963	"/ width:width
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	6964	"/ height:margin.
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6965	].
140 0db355079dc4 . claus parents: 138 diff changeset	6966	] ifFalse:[
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6967	"otherwise memorize the need for a sizeChanged message"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6968
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6969	width := newWidth.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6970	height := newHeight.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6971	sameOrigin ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6972	self originChangedFlag:true.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6973	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6974	self extentChangedFlag:true.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6975	subViews size > 0 ifTrue:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6976	self extentChangedBeforeCreatedFlag:true.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6977	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6978	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6979	sameOrigin ifFalse:[
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6980	self changed:#origin.
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6981	].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	6982
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6983	"Modified: / 25.5.1999 / 14:49:56 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	6984	!
0db355079dc4 . claus parents: 138 diff changeset	6985
0db355079dc4 . claus parents: 138 diff changeset	6986	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	6987	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	6988
0db355079dc4 . claus parents: 138 diff changeset	6989	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	6990
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6991	bw := borderWidth ? 0.
140 0db355079dc4 . claus parents: 138 diff changeset	6992
0db355079dc4 . claus parents: 138 diff changeset	6993	superView isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6994	superWidth := device width + bw.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6995	superHeight := device height + bw.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6996	superLeft := superTop := 0.
140 0db355079dc4 . claus parents: 138 diff changeset	6997	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6998	inRect := superView viewRectangle.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6999	superWidth := inRect width.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7000	superHeight := inRect height.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7001	superLeft := inRect left.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7002	superTop := inRect top.
140 0db355079dc4 . claus parents: 138 diff changeset	7003	].
0db355079dc4 . claus parents: 138 diff changeset	7004
0db355079dc4 . claus parents: 138 diff changeset	7005	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	7006	rel isInteger ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7007	newX := rel
140 0db355079dc4 . claus parents: 138 diff changeset	7008	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7009	newX := (rel * superWidth) asInteger + superLeft.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7010	(bw ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7011	rel ~= 1.0 ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7012	newX := newX - bw
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7013	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7014	]
140 0db355079dc4 . claus parents: 138 diff changeset	7015	].
0db355079dc4 . claus parents: 138 diff changeset	7016
0db355079dc4 . claus parents: 138 diff changeset	7017	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	7018	rel isInteger ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7019	newY := rel
140 0db355079dc4 . claus parents: 138 diff changeset	7020	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7021	newY := (rel * superHeight) asInteger + superTop.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7022	(bw ~~ 0) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7023	rel ~= 1.0 ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7024	newY := newY - bw
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7025	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7026	]
140 0db355079dc4 . claus parents: 138 diff changeset	7027	].
0db355079dc4 . claus parents: 138 diff changeset	7028	^ newX @ newY
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7029
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7030	"Modified: / 1.10.1998 / 13:21:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7031	!
0db355079dc4 . claus parents: 138 diff changeset	7032
0db355079dc4 . claus parents: 138 diff changeset	7033	setBorderColor
0db355079dc4 . claus parents: 138 diff changeset	7034	"set my borderColor"
0db355079dc4 . claus parents: 138 diff changeset	7035
0db355079dc4 . claus parents: 138 diff changeset	7036	\|id dither\|
0db355079dc4 . claus parents: 138 diff changeset	7037
0db355079dc4 . claus parents: 138 diff changeset	7038	drawableId notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7039	borderColor := borderColor onDevice:device.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7040	id := borderColor colorId.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7041	id notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7042	device setWindowBorderColor:id in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7043	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7044	dither := borderColor ditherForm.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7045	dither notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7046	device setWindowBorderPixmap:(dither id) in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7047	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7048	'SimpleView [warning]: bad borderColor' errorPrintCR
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7049	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7050	]
135 cf8e46015072 . claus parents: diff changeset	7051	]
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	7052
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	7053	"Modified: 10.1.1997 / 18:06:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	7054	!
cf8e46015072 . claus parents: diff changeset	7055
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7056	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7057	"compute, and set the inside clip-area"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7058
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7059	self computeInnerClip.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7060	self deviceClippingRectangle:innerClipRect.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7061
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7062	"Modified: / 25.5.1999 / 14:45:53 / cg"
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7063	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7064
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	7065	setShown:aState
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7066	shown := aState
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7067
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7068	!
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7069
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7070	setViewShape
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7071	\|form\|
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7072
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7073	(form := viewShape borderShapeForm) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7074	device setWindowBorderShape:(form id) in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7075	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7076	(form := viewShape viewShapeForm) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7077	device setWindowShape:(form id) in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7078	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7079
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7080	"Created: 18.9.1997 / 11:09:00 / cg"
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	7081	!
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7082
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7083	windowGroupClass
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7084	^ WindowGroup
140 0db355079dc4 . claus parents: 138 diff changeset	7085	! !
0db355079dc4 . claus parents: 138 diff changeset	7086
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7087	!SimpleView methodsFor:'queries'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7088
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7089	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7090	"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	7091	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	7092	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7093
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7094	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7095	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7096
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7097	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7098	"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	7099	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7100	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	7101	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7102
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7103	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7104	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7105
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7106	cornerChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7107	"/ ^ cornerChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7108	^ flagBits bitTest:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7109	!
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7110
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7111	cornerChangedFlag:aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7112	"/ cornerChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7113	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7114	flagBits := flagBits bitOr:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7115	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7116	flagBits := flagBits bitClear:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7117	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7118	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7119
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7120	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7121	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7122
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7123	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7124	^ delegate delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7125	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7126
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7127	escapeIsCancel
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7128	"return the escapeIsCancel setting - defaults to true for popupViews here."
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7129
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7130	^ self isPopUpView
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7131	!
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7132
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7133	extentChangedBeforeCreatedFlag
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7134	^ flagBits bitTest:FlagExtentChangedBeforeCreated
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7135	!
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7136
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7137	extentChangedBeforeCreatedFlag:aBoolean
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7138	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7139	flagBits := flagBits bitOr:FlagExtentChangedBeforeCreated
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7140	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7141	flagBits := flagBits bitClear:FlagExtentChangedBeforeCreated
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7142	].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7143	!
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	7144
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7145	extentChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7146	"/ ^ extentChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7147	^ flagBits bitTest:FlagExtentChanged
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7148	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7149
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7150	extentChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7151	"/ extentChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7152	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7153	flagBits := flagBits bitOr:FlagExtentChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7154	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7155	flagBits := flagBits bitClear:FlagExtentChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7156	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7157	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7158
1748 24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7159	focusSequence
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7160	"return nil - for compatibility with StdSysView & SubCanvas.
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7161	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	7162	focusSequence may redefine this to return a list of their components."
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7163
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7164	^ nil
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7165	!
24df4421d72f added dummy focusSequence Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	7166
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7167	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7168	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7169	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7170	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7171
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7172	\|focusView delegate\|
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	windowGroup isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7175
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7176	(focusView := windowGroup focusView) == self ifTrue:[^ true].
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7177
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7178	focusView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7179	"mhmh - is there a delegation to me ?"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7180	(delegate := focusView delegate) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7181	delegate == self ifTrue:[^ true].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7182	^ delegate delegatesTo:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7183	]
135 cf8e46015072 . claus parents: diff changeset	7184	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7185	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7186	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7187
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7188	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7189	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7190	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7191
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7192	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7193	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	7194
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7195	isBorderedWrapper
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7196	^ false
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7197
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7198	"Created: 5.6.1996 / 14:11:15 / cg"
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7199	!
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7200
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7201	isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7202	"return true, if I am a (direct or indirect) component of aViewOrComponent"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7203
3362 6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	7204	\|sview\|
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	7205
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	7206	sview := self.
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	7207
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	7208	[ (sview := sview container) notNil ] whileTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7209	sview == aViewOrComponent ifTrue:[^ true].
3362 6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	7210	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7211	^ false
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7212	!
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7213
3711 f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7214	isCursorKeyConsumer
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7215	"return true, if the receiver can be controlled by cursor keys;
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7216	i.e. it can handle some keyboard input,
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7217	isCursorKeyConsumer are potential candidates for getting the keyboard
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7218	focus initially within dialogBoxes, or when the focus-follows-pointer
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7219	mode is off.
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7220	Return false here, this is redefined in SelectionInListView."
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7221
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7222	^ false
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7223	!
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	7224
2496 f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7225	isDefault
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7226	"return true, if I am a default widget;
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7227	Used with autoAccept. Currently only default buttons are supposed to return
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7228	true here"
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7229
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7230	^ false
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7231	!
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	7232
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	7233	isExternalTopView
2454 f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	7234	"return true, if this is an external topView - always false here"
f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	7235
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	7236	^ false
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	7237
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	7238
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	7239	!
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	7240
497 5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7241	isInputField
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7242	"return true, if the receiver is some kind of input view,
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7243	i.e. it should (can) be part of an enterGroup.
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7244	Return false here, this is redefined in EnterField."
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7245
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7246	^ false
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7247
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7248	"Created: 4.3.1996 / 11:34:07 / cg"
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7249	!
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	7250
2410 050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	7251	isJavaView
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	7252	^ false
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	7253
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	7254	"Created: / 4.12.1998 / 14:10:06 / cg"
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	7255	!
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	7256
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7257	isKeyboardConsumer
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	7258	"return true, if the receiver is a keyboard consumer;
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7259	i.e. it can handle (non-shortkey) keyboard input,
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7260	keyboardConsumer are potential candidates for getting the keyboard
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7261	focus initially within dialogBoxes, or when the focus-follows-pointer
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7262	mode is off.
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7263	Return false here, this is redefined in EditTextView and EditField."
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7264
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7265	^ false
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	7266
2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	7267	"Modified: / 22.5.1999 / 16:19:27 / cg"
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7268	!
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	7269
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	7270	isLayoutWrapper
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	7271	^ false
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	7272
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	7273	"Created: 19.7.1996 / 17:51:04 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	7274	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	7275
4184 1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7276	isModal
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7277	"return true, if the receiver has been opened modal.
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7278	For compatibility with topView (if regular views are the window of an application),
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7279	return false here."
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7280
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7281	^ false
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7282	!
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	7283
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	7284	isSameOrComponentOf:aView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	7285	"return true, if I am aView or a (direct or indirect) component of aView"
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	7286
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	7287	^ self == aView or:[self isComponentOf:aView].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	7288	!
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	7289
2161 46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7290	isScrollWrapper
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7291	^ false
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7292
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7293	"Created: / 5.6.1996 / 14:11:15 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7294	"Modified: / 20.6.1998 / 14:15:29 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7295	!
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	7296
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7297	isSubViewOf:aView
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7298	"return true, if I am a (direct or indirect) subview of aView"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7299
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	7300	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	7301
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7302	self obsoleteMethodWarning:'use #isComponentOf:'.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7303	^ self isComponentOf:aView.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7304
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	7305	"Modified: 5.6.1996 / 14:25:35 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7306	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7307
3754 e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	7308	isTextView
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	7309	"I am not showing text (showing lines)"
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	7310
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	7311	^ false
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	7312	!
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	7313
4151 a3f84166256d isTBox werner parents: 4150 diff changeset	7314	isTransparentBox
a3f84166256d isTBox werner parents: 4150 diff changeset	7315	^ false
a3f84166256d isTBox werner parents: 4150 diff changeset	7316	!
a3f84166256d isTBox werner parents: 4150 diff changeset	7317
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7318	isWrapper
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7319	^ false
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7320
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7321	"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	7322	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7323
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7324	originChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7325	"/ ^ originChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7326	^ flagBits bitTest:FlagOriginChanged
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7327	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7328
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7329	originChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7330	"/ originChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7331	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7332	flagBits := flagBits bitOr:FlagOriginChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7333	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7334	flagBits := flagBits bitClear:FlagOriginChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7335	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7336	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	7337
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7338	originOrExtentChanged
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7339	"/ ^ originChanged or:[extentChanged].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7340	^ flagBits bitTest:( FlagOriginChanged + FlagExtentChanged )
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7341	!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7342
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7343	originOrExtentOrCornerChanged
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7344	"/ ^ originChanged or:[extentChanged or:[cornerChanged]].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7345	^ flagBits bitTest:( FlagOriginChanged + FlagExtentChanged + FlagCornerChanged )
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7346	!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7347
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7348	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7349	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7350
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	7351	^ 0@0 extent:(self preferredExtent)
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	7352
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	7353	"Modified: 19.7.1996 / 20:41:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7354	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7355
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7356	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7357	"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	7358	If the preferredExtent has been set, that one is returned.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7359	Otherwise, if there are any components, a rectangle enclosing them
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7360	is returned. Otherwise, the actual extent is returned."
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7361
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	7362	\|maxX maxY\|
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7363
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	7364	"/ If I have an explicit preferredExtent ..
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	7365
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7366	preferredExtent notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7367	^ preferredExtent
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7368	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7369
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7370	"/ mhmh - if I have subViews, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7371	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7372
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7373	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7374	maxX := maxY := 0.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7375	subViews do:[:aSubView \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7376	\|org corn\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7377
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7378	org := aSubView computeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7379	corn := org + aSubView preferredExtent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7380	maxX := maxX max:corn x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7381	maxY := maxY max:corn y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7382	]
140 0db355079dc4 . claus parents: 138 diff changeset	7383	].
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7384
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7385	"/ mhmh - if I have components, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7386	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7387
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7388	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7389	maxX isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7390	maxX := maxY := 0.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7391	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7392	components do:[:aComponent \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7393	\|bounds org corn\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7394
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7395	bounds := aComponent preferredBounds.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7396	corn := bounds corner.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7397	maxX := maxX max:corn x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7398	maxY := maxY max:corn y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7399	]
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7400	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7401
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7402	"/ nothing found - return the actual size
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7403
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7404	maxX isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7405	^ self extent.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7406	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7407
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7408	^ maxX @ maxY.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	7409
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	7410	"Modified: 19.7.1996 / 20:43:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7411	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7412
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7413	reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7414	"return true, if the receiver is realized and all containers
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7415	are realized."
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7416
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7417	realized ifFalse:[^ false].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7418	superView isNil ifTrue:[^ true].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7419	^ superView reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7420
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7421
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7422	!
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	7423
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	7424	resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	7425	^ resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	7426
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	7427	"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	7428	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	7429
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7430	sizeFixed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7431	"return true, if this vew wants its size to remain unchanged.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7432	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	7433
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7434	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7435
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7436	"Created: 17.9.1995 / 20:29:20 / claus"
3901 88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7437	!
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7438
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7439	tabRequiresControl
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7440	"returns true, if a focus tabbing requires a control-key to be pressed.
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7441	The default is true for editTextView, false for other widgets,
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7442	to allow for easier text entry"
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7443
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	7444	^ false
4191 7f999428c830 * empty log message * ca parents: 4189 diff changeset	7445	!
7f999428c830 * empty log message * ca parents: 4189 diff changeset	7446
7f999428c830 * empty log message * ca parents: 4189 diff changeset	7447	window
7f999428c830 * empty log message * ca parents: 4189 diff changeset	7448	"for compatibility with applicationModels ... return the receiver"
7f999428c830 * empty log message * ca parents: 4189 diff changeset	7449
7f999428c830 * empty log message * ca parents: 4189 diff changeset	7450	^ self
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7451	! !
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7452
3266 4db6dd90cc17 category change Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	7453	!SimpleView methodsFor:'queries-events'!
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7454
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7455	buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7456	"return true, if a button motion event is pending.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7457	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	7458	(not even for mouse-tracking).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7459	Actually, its a historical leftover"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7460
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7461	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7462	^ windowGroup sensor hasButtonMotionEventFor:self
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7463	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7464	^ super buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7465
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7466	"Modified: 1.11.1996 / 17:04:38 / cg"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7467	! !
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	7468
3266 4db6dd90cc17 category change Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	7469	!SimpleView methodsFor:'queries-internal'!
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7470
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7471	nativeWindowType
1702 ba153bb6400b * empty log message * Claus Gittinger <cg@exept.de> parents: 1699 diff changeset	7472	"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	7473	(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	7474
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7475	^ nil
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7476	!
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7477
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7478	specClass
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7479	"fallback - heuristics to get a specClass for some viewClass.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7480	Based upon my className, look for a corresponding Spec-class.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7481	If there is none, return ArbiraryComponentSpec as a fallBack"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7482
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7483	\|myClass myName cls\|
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7484
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7485	myClass := self class.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7486	(myClass == View or:[myClass == SimpleView]) ifTrue:[
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7487	^ ViewSpec "/ CompositeSpecCollection
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7488	].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7489
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7490	"/ try: appending 'Spec' to my classes name
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	7491
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7492	myName := self class name.
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7493	cls := Smalltalk classNamed:(myName , 'Spec').
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7494	cls notNil ifTrue:[
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7495	cls := cls autoload.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7496	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7497	].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7498
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7499	(myName endsWith:'View') ifTrue:[
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7500	"/ "/ try name without 'View'
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7501	"/ cls := Smalltalk classNamed:(myName copyWithoutLast:4).
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7502	"/ cls notNil ifTrue:[
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7503	"/ cls := cls autoload.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7504	"/ (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7505	"/ ].
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7506
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7507	"/ try with 'View' replaced by 'Spec'
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7508	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7509	cls notNil ifTrue:[
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7510	cls := cls autoload.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7511	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7512	]
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7513	].
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7514
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	7515	"/ fall back for all others
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7516	^ ArbitraryComponentSpec
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7517
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7518
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7519	"
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7520	FramedBox new specClass
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	7521	"
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	7522
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7523	"Modified: / 31.10.1997 / 19:44:55 / cg"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7524	!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7525
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7526	windowStyle
3715 70eea03a8d8d comment Claus Gittinger <cg@exept.de> parents: 3711 diff changeset	7527	"return a symbol describing my style (one of: #dialog, #popUp or #normal)"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7528
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7529	self isPopUpView ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7530	^ #popUp
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7531	].
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7532
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7533	^ #normal
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7534
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7535	"Created: 2.5.1997 / 14:29:48 / cg"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	7536	"Modified: 2.5.1997 / 14:30:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7537	! !
0db355079dc4 . claus parents: 138 diff changeset	7538
0db355079dc4 . claus parents: 138 diff changeset	7539	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	7540
3459 d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	7541	closeCancel
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	7542	"for protocol compatibility with modal dialogs"
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	7543
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	7544	self hideRequest
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	7545	!
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	7546
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7547	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7548	"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	7549	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	7550
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7551	drawableId isNil ifTrue:[
3967 ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7552	"
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7553	make certain that superview is created also
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7554	"
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7555	superView notNil ifTrue:[
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7556	superView view create.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7557
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7558	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7559	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7560	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7561	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7562	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7563	"/ ]
3967 ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7564	] ifFalse:[
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7565	"/
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7566	"/ if the display is not already dispatching events,
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7567	"/ this starts the event process.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7568	"/
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7569	device startDispatch
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7570	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7571
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7572	cursor notNil ifTrue:[
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7573	cursor := cursor onDevice:device.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7574	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7575
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7576	self extentChangedBeforeCreatedFlag ifTrue:[
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7577	"/ this is true, if the extent was changed before
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7578	"/ this view was created (and therefore, no sizeChangeEvent
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7579	"/ was sent to me, which would notify children.)
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7580	"/ have to do this here.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7581	self sizeChanged:nil. "/ must tell children (if any)
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7582	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7583	explicitExtent ~~ true ifTrue:[
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7584	self resize
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7585	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7586
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7587	self physicalCreate.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7588
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7589	viewBackground notNil ifTrue:[
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7590	self setViewBackground
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7591	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7592
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7593	"/ self initializeMiddleButtonMenu.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7594	self initEvents.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7595
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7596	"
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7597	this is the first create,
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7598	force sizechange messages to be sent to the view
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7599	"
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7600	self extentChangedFlag:true.
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7601	self originChangedFlag:true
151 8123ec03c52f . claus parents: 145 diff changeset	7602	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7603
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	7604	"Modified: 28.3.1997 / 13:50:17 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	7605	!
8123ec03c52f . claus parents: 145 diff changeset	7606
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7607	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7608	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7610	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7611	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7612	subViews do:[:subView \| subView createWithAllSubViews]
269 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	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7615
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7616	fetchDeviceResources
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7617	"fetch all device specific resources. This is invoked,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7618	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	7619	time, to allocate device specific colors, fonts, bitmaps etc.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7620	The view may keep those in instance variables, to avoid reallocating
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7621	those with every redraw.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7622	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	7623	but possibly slower, since resources are reallocated over and over.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7624	If you redefine this method, make certain that 'super fetchDeviceResources'
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7625	is always sent."
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7626
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	7627	shadowColor notNil ifTrue:[shadowColor := shadowColor onDevice:device].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	7628	lightColor notNil ifTrue:[lightColor := lightColor onDevice:device].
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7629
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7630	"Created: 13.1.1997 / 21:51:59 / cg"
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7631	!
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7632
140 0db355079dc4 . claus parents: 138 diff changeset	7633	fixSize
0db355079dc4 . claus parents: 138 diff changeset	7634	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	7635	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	7636	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	7637	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	7638	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	7639
151 8123ec03c52f . claus parents: 145 diff changeset	7640	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	7641
8123ec03c52f . claus parents: 145 diff changeset	7642	"
8123ec03c52f . claus parents: 145 diff changeset	7643	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	7644	"
8123ec03c52f . claus parents: 145 diff changeset	7645	layout notNil ifTrue:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	7646	superView notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7647	(self originOrExtentOrCornerChanged) ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7648	r := (layout rectangleRelativeTo:(superView viewRectangle)
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7649	preferred:[self preferredBounds]).
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7650	org := r origin rounded.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7651	ext := r extent rounded.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7652	self pixelOrigin:org extent:ext.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7653	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7654	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7655	^ self.
151 8123ec03c52f . claus parents: 145 diff changeset	7656	].
8123ec03c52f . claus parents: 145 diff changeset	7657
140 0db355079dc4 . claus parents: 138 diff changeset	7658	"if the extent is not the one we created the window with ..."
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7659	"/ self extentChangedFlag ifTrue:[
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	7660	"/ self sizeChanged:nil.
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7661	"/ self extentChangedFlag:false
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	7662	"/ ].
140 0db355079dc4 . claus parents: 138 diff changeset	7663
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7664	self originChangedFlag ifTrue:[
140 0db355079dc4 . claus parents: 138 diff changeset	7665	"/ org := self computeOrigin.
0db355079dc4 . claus parents: 138 diff changeset	7666	"/ self pixelOrigin:org.
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	7667	originRule notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7668	self pixelOrigin:self computeOrigin
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7669	] ifFalse:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7670	relativeOrigin notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7671	self originFromRelativeOrigin:relativeOrigin
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7672	] ifFalse:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7673	shown ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7674	device moveWindow:drawableId x:left y:top.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7675	] ifFalse:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7676	self pixelOrigin:left@top
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7677	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7678	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7679	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	7680	self originChangedFlag:false
140 0db355079dc4 . claus parents: 138 diff changeset	7681	]
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	7682
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	7683	"Modified: 18.6.1996 / 21:44:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7684	!
0db355079dc4 . claus parents: 138 diff changeset	7685
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7686	hide
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7687	"only useful with modal views: hide the view and return control
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7688	back to the suspended main view. Ignored for non-modal views."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7689
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	7690	\|masterGroup\|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7691
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7692	realized ifFalse:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7693	windowGroup isNil ifTrue:[^ self].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7694	windowGroup isModal ifFalse:[^ self].
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	7695	masterGroup := windowGroup previousGroup.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7696
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7697	windowGroup notNil ifTrue:[windowGroup focusView:nil].
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7698
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7699	self unmap.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7700	device flush.
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	7701
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	7702	masterGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7703	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7704	this is a kludge for IRIS and others which do not provide backingstore:
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7705	when we hide a modalbox (such as a searchbox) which covered
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7706	a scrollbar, the scrollbars bitblt-method will copy from the
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7707	not-yet redrawn area - effectively clearing the scroller.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7708	We need a short delay here, since at this time, the expose event has
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7709	not yet arrived.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7710	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7711	Delay waitForSeconds:0.05.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7712	masterGroup processExposeEvents
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	7713	].
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	7714
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	7715	"/ WindowGroup leaveSignal raise.
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	7716	"/ "/ not reached
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	7717	"/ ^ self
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7718	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7719
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7720	hideForAction
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7721	"for popUpMenu compatibility;
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7722	this is invoked to hide a when it is going to perform its action
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7723	(in contrast to the generic hide)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7724
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7725	^ self hide
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7726	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7727
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7728	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7729	"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	7730	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7731
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7732	self isPopUpView ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7733	self hide
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	7734	].
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7735	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7736	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	7737
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7738	map
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7739	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7740	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	7741	views position on the screen.
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	7742	Notice:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7743	Actually, this method is only valid for topViews;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7744	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	7745
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7746	self mapAt:nil iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7747
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7748	"Modified: 24.7.1997 / 13:44:25 / cg"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7749	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7750
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7751	mapAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7752	"make the view visible on the screen.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7753	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	7754	(unless you have a dictator as windowManager ;-)
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	7755	Notice:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7756	Actually, this method is only valid for topViews;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7757	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	7758
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7759	self mapAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7760
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7761	"Modified: 24.7.1997 / 13:45:02 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7762	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7763
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7764	mapAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7765	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7766	For topViews, if aPoint is nonNil, the views origin is located there
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7767	(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	7768	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	7769	Notice:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7770	Actually, this method is only valid for topViews;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7771	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	7772
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	7773	\|subs\|
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	7774
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7775	realized ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7776	drawableId isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7777	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7778	first time ?
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7779	yes, realize (implies a map)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7780	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7781	self realizeKeepingGroup:false at:aPoint iconified:iconified
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7782	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7783	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7784	no, map only
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7785	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7786	realized := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7787	aPoint isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7788	iconified ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7789	device
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7790	mapView:self id:drawableId iconified:iconified
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7791	atX:0 y:0
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7792	width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7793	minExtent:(self minExtent) maxExtent:(self maxExtent).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7794	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7795	device mapWindow:drawableId.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7796	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7797	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7798	left := aPoint x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7799	top := aPoint y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7800	device
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7801	mapView:self id:drawableId iconified:iconified
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7802	atX:left y:top
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7803	width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7804	minExtent:(self minExtent) maxExtent:(self maxExtent).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7805	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7806
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7807	"/
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7808	"/ implies that all realized subviews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7809	"/ are now also mapped
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7810	"/
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7811	"/ not needed for topViews - the mapped event does exactly the same
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7812	"/ however, X does not generate mapped events for non-topViews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7813	"/ when a view gets deiconified.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7814
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7815	superView notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7816	(subs := self subViews) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7817	subs do:[:v \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7818	v shown ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7819	v mapped
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7820	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7821	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7822	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7823	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7824	].
140 0db355079dc4 . claus parents: 138 diff changeset	7825	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	7826
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	7827	"Modified: 23.8.1996 / 14:53:55 / stefan"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7828	"Created: 24.7.1997 / 13:43:23 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7829	"Modified: 24.7.1997 / 13:46:21 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7830	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7831
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7832	mapIconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7833	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7834	For topViews, the view is created in iconified state"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7835
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7836	self mapAt:nil iconified:true
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7837
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7838	"Modified: 24.7.1997 / 13:44:25 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7839	"Created: 24.7.1997 / 13:47:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7840	!
0db355079dc4 . claus parents: 138 diff changeset	7841
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7842	physicalCreate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7843	"common code for create & recreate:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7844	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7845
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	7846	\|sv isInputOnly\|
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7847
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7848	sv := superView isNil ifTrue:[superView] ifFalse:[superView view].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7849
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	7850	"/ give global eventListeners a chance to intercept windowCreation
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	7851	"/ 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	7852	WindowSensor preViewCreateNotification:self.
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	7853
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	7854	isInputOnly := self isInputOnly.
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	7855
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7856	drawableId := device
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7857	createWindowFor:self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7858	type:nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7859	origin:(left @ top)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7860	extent:(width @ height)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7861	minExtent:nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7862	maxExtent:nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7863	borderWidth:borderWidth
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7864	subViewOf:sv
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7865	style:(self windowStyle)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7866	inputOnly:isInputOnly
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7867	label:nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7868	owner:nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7869	icon:nil iconMask:nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7870	iconView:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7871
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7872	Lobby registerChange:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	7873
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7874	"/ if there is a global eventListener,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7875	"/ give it a chance to track views
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	7876
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	7877	"/ give global listeners a chance to track views
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	7878	WindowSensor postViewCreateNotification:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	7879
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7880	self extentChangedFlag:false.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7881	self originChangedFlag:false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7882
1201 6e990cfdd66d dont use Black/White when drawing; Claus Gittinger <cg@exept.de> parents: 1193 diff changeset	7883	(borderColor notNil and:[borderColor ~= Black]) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7884	isInputOnly ifFalse:[
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	7885	"/ borderColor := borderColor on:device.
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7886	self setBorderColor
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7887	]
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	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7890	device setWindowGravity:viewGravity in:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7891	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7892	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7893	isInputOnly ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7894	device setBitGravity:bitGravity in:drawableId
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7895	]
269 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	viewShape notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7898	self setViewShape
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7899	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7900	(backed notNil and:[backed ~~ false]) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7901	device setBackingStore:backed in:drawableId
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7902	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7903	self saveUnder ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7904	device setSaveUnder:true in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	7905	].
1960 aa9ef6e21f15 * empty log message * Claus Gittinger <cg@exept.de> parents: 1943 diff changeset	7906	cursor notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7907	self setCursor
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	7908	].
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	7909
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	7910	"Modified: / 9.4.1998 / 20:18:12 / cg"
269 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
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7913	postRealize
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7914	"invoked after a view was realized.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7915	Can be redefined in subclasses to perform delayed actions."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7916
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7917	"/ nothing done here
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7918
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7919	"Created: 24.7.1997 / 14:35:36 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7920	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	7921
4126 34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7922	preRealize
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7923	"invoked right before a view is realized.
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7924	Can be redefined in subclasses to perform delayed actions."
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7925
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7926	"/ nothing done here
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7927
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7928	"Created: 24.7.1997 / 14:35:36 / cg"
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7929	!
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	7930
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7931	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7932	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7933	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7934	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7935
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7936	self realizeKeepingGroup:false at:nil iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7937
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7938	"Modified: 24.7.1997 / 13:14:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7939	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7940
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7941	realizeAllSubViews
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7942	"realize all my subviews - but not myself."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7943
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7944	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7945	subViews do:[:subView \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7946	subView realize
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7947	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7948	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	7949	components notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7950	components do:[:component \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7951	component realize
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7952	]
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7955	"Modified: 5.9.1995 / 23:30:47 / claus"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	7956	"Modified: 13.1.1997 / 21:25:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7957	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7958
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7959	realizeAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7960	"realize - make visible;
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7961	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	7962	visible rearranging of windows on the screen"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7963
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7964	self realizeKeepingGroup:false at:aPoint iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7965
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7966	"Modified: 24.7.1997 / 13:14:28 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7967	"Created: 24.7.1997 / 13:21:04 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7968	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7969
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7970	realizeInGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7971	"special realize - leave windowgroup as is;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7972	This allows a view to be realized in any windowgroup;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7973	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	7974	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	7975
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7976	windowGroup isForModalSubview:true.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7977	"/ self realize.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7978
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7979	self realizeKeepingGroup:true at:nil iconified:false
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7980
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7981	"Modified: 20.8.1997 / 14:56:20 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7982	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7983
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7984	realizeKeepingGroup:keepGroupAsIs at:position iconified:iconified
151 8123ec03c52f . claus parents: 145 diff changeset	7985	"common helper for realize and realizeInGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7986	Create the view; if the keepGroupAsIs argument is not true,
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	7987	assign my windowGroup."
140 0db355079dc4 . claus parents: 138 diff changeset	7988
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	7989	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	7990
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7991	"/ fetch device colors, to avoid reallocation at redraw time
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7992	self fetchDeviceResources.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	7993
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	7994	drawableId isNil ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	7995	self create.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	7996	drawableId isNil ifTrue:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	7997	('SimpleView [warning]: could not create view: ' , self class name) errorPrintCR.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	7998	^ self
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	7999	]
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	8000	].
140 0db355079dc4 . claus parents: 138 diff changeset	8001
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	8002	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	8003
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	8004	(windowGroup notNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	8005	and:[superView isNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	8006	and:[windowGroup isForModalSubview]]) ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8007	keep := true.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	8008	] ifFalse:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8009	keep := keepGroupAsIs
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	8010	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	8011
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	8012	keep ifFalse:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8013	"
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8014	put myself into superviews windowgroup if there is a superview
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8015	This is the default behavior, which may be suppressed by
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8016	passing true as keepGroupAsIs-argument.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8017	(it may be useful to assign a separate windowGroup to
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8018	a childView to have it execute independent of the parent
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8019	-> an example is found in the fileBrowsers kill-button)
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8020	"
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8021	superView notNil ifTrue:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8022	superGroup := superView windowGroup.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8023	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8024	"
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8025	mhmh - seems that the windowgroup has changed ....
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8026	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	8027	"/ 'oops - wgroup change on realize' printNL.
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8028	groupChange := true.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8029
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8030	"/
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8031	"/ recursively change the windowGroup of
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8032	"/ myself and all of my children
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8033	"/
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8034	self windowGroup:superGroup.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8035	] ifFalse:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8036	windowGroup isNil ifTrue:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8037	"/
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8038	"/ only change the group of myself -
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8039	"/ subviews will fetch it when realized.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8040	"/
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8041	windowGroup := superGroup.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8042	superGroup notNil ifTrue:[superGroup addView:self].
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8043	]
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8044	].
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8045	].
140 0db355079dc4 . claus parents: 138 diff changeset	8046	].
0db355079dc4 . claus parents: 138 diff changeset	8047
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8048	(self originOrExtentChanged) ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8049	self fixSize.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8050	self sizeChanged:nil.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8051	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8052	position notNil ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8053	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	8054	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	8055
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	8056	(subViews notNil or:[components notNil]) ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8057	(realized not or:[groupChange]) ifTrue:[
2558 9639b8a1c166 do not realize children if inVisible. tm parents: 2549 diff changeset	8058	hiddenOnRealize ifFalse:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8059	self realizeAllSubViews.
2558 9639b8a1c166 do not realize children if inVisible. tm parents: 2549 diff changeset	8060	].
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8061	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8062	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	8063
4126 34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	8064	self preRealize.
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	8065
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8066	iconified ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8067	realized ifFalse:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8068	self mapIconified
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8069	]
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8070	] ifFalse:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8071	hiddenOnRealize ifFalse:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8072	self setInnerClip.
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8073
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8074	realized ifFalse:[
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8075	"
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8076	now, make the view visible
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8077	"
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8078	self mapAt:position
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8079	]
0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8080	]
140 0db355079dc4 . claus parents: 138 diff changeset	8081	].
0db355079dc4 . claus parents: 138 diff changeset	8082
0db355079dc4 . claus parents: 138 diff changeset	8083	controller notNil ifTrue:[
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8084	controller startUp
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8085	].
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8086
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8087	self postRealize
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8088
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	8089	"Modified: / 23.8.1996 / 15:07:16 / stefan"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	8090	"Created: / 24.7.1997 / 13:10:17 / cg"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	8091	"Modified: / 27.7.1998 / 20:01:02 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8092	!
0db355079dc4 . claus parents: 138 diff changeset	8093
0db355079dc4 . claus parents: 138 diff changeset	8094	recreate
3301 1bcebb26ecbb * empty log message * Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	8095	"recreate (i.e. tell X about me) after a snapin or a migration"
140 0db355079dc4 . claus parents: 138 diff changeset	8096
0db355079dc4 . claus parents: 138 diff changeset	8097	drawableId isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8098	super recreate.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8099	self physicalCreate.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8100
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8101	viewBackground notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8102	self setViewBackground
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8103	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8104
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8105	"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8106	XXX has to be changed: eventmasks are device specific -
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8107	XXX will not allow restart on another Workstation-type.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8108	XXX event masks must become symbolic
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8109	"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8110	eventMask isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8111	eventMask := device defaultEventMask
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8112	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8113	device setEventMask:eventMask in:drawableId
140 0db355079dc4 . claus parents: 138 diff changeset	8114	]
0db355079dc4 . claus parents: 138 diff changeset	8115	!
0db355079dc4 . claus parents: 138 diff changeset	8116
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8117	remap
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8118	"make the view visible on the screen at its previous position.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8119	In contrast to map, this asks the windowManager to show the view
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8120	immediately (instead of asking for a frame). However, some windowManagers
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8121	are known to ignore this ..."
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8122
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8123	realized ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8124	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8125	now, make the view visible
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8126	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8127	realized := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8128	device
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8129	mapView:self id:drawableId iconified:false
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8130	atX:left y:top width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8131	minExtent:(self minExtent) maxExtent:(self maxExtent)
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8132	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8133
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8134	"Created: 8.5.1996 / 09:33:06 / cg"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	8135	"Modified: 25.2.1997 / 22:44:33 / cg"
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8136	!
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	8137
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8138	rerealize
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8139	"rerealize at old position in (a possibly different) windowGroup."
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8140
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8141	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8142
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8143	self rerealizeInGroup:windowGroup.
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8144
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8145	"Created: 7.11.1996 / 16:27:09 / cg"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8146	"Modified: 13.1.1997 / 21:53:18 / cg"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8147	!
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	8148
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8149	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8150	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8151
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	8152	drawableId isNil ifTrue:[self create].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8153	drawableId notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8154	aWindowGroup ~~ windowGroup ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8155	windowGroup notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8156	windowGroup removeView:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8157	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8158	windowGroup := aWindowGroup.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8159	aWindowGroup addTopView:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8160	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8161	self remap.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8162	]
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	8163
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	8164	"Modified: 3.5.1996 / 23:59:30 / stefan"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	8165	"Modified: 28.7.1997 / 18:53:01 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8166	!
0db355079dc4 . claus parents: 138 diff changeset	8167
0db355079dc4 . claus parents: 138 diff changeset	8168	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	8169	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	8170
0db355079dc4 . claus parents: 138 diff changeset	8171	drawableId notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8172	realized := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8173	self realizeAllSubViews.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8174	device
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8175	mapView:self id:drawableId iconified:false
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8176	atX:left y:top width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8177	minExtent:(self minExtent) maxExtent:(self maxExtent)
140 0db355079dc4 . claus parents: 138 diff changeset	8178	]
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	8179
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	8180	"Modified: 28.1.1997 / 17:59:28 / cg"
180 0b3a8658d55e . claus parents: 176 diff changeset	8181	!
0b3a8658d55e . claus parents: 176 diff changeset	8182
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8183	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8184	"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	8185	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	8186	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	8187
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	8188	explicitExtent ~~ true ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8189	layout isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8190	self extent:(self preferredExtent).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8191	explicitExtent := false.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8192	].
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	8193	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	8194
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	8195	"Modified: 15.7.1996 / 11:20:27 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8198	unmap
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	8199	"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	8200
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8201	realized ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8202	realized := false.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8203	drawableId notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8204	device unmapWindow:drawableId.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8205
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8206	"/ make it go away immediately
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8207	"/ (this hides the subview killing)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8208	device flush.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8209	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8210
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8211	"/ Normally, this is not correct with X, where the
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8212	"/ unmap is an asynchronous operation.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8213	"/ (shown is cleared also in unmapped event)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8214	"/ Do it anyway, to avoid synchronisation problems.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8215
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8216	shown := false.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8217	self changed:#visibility.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8218	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	8219
4c49bdd5b80f . claus parents: 189 diff changeset	8220	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8221	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8222
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8223	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8224	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8225
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8226	sub := View
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8227	origin:0.2@0.2
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8228	corner:0.8@0.8
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8229	in:top.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8230
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8231	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8232	sub hiddenOnRealize:true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8233
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8234	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8235	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8236	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8237	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8238	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8239	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8240	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8241	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	8242	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	8243
2465 193a96bd94d7 clear shown when unmapped notification arrives Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	8244	"Modified: / 22.2.1999 / 20:10:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8245	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8246
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8247	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8248	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8249
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	8250	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	8251
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	8252	self obsoleteMethodWarning:'use unmap'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8253	self unmap.
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	8254
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	8255	"Modified: 4.5.1996 / 00:07:48 / stefan"
151 8123ec03c52f . claus parents: 145 diff changeset	8256	! !
8123ec03c52f . claus parents: 145 diff changeset	8257
8123ec03c52f . claus parents: 145 diff changeset	8258	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	8259
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8260	flash
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8261	"flash the view - fill it black, then white, finally
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8262	redraw completely.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8263	Can be used to wakeup the user :-)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8264	when problem or warning conditions arise.
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	8265	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	8266
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8267	self fill:Black.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8268	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8269	self fill:White.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8270	Delay waitForSeconds:0.1.
2173 0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	8271	self fill:viewBackground.
0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	8272	"/ self clear.
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8273	self invalidate
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8274
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8275	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8276	\|v\|
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8277
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8278	v := View new openAndWait.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8279	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8280	v flash.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8281	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8282	v destroy
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8283	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8284
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	8285	"Modified: / 16.7.1998 / 18:46:48 / cg"
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8286	!
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	8287
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8288	invalidate
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8289	"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	8290	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	8291	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	8292	multiple damage rectangles into single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8293	However, be aware, that the redrawing may be delayed for some time,
4057 32596bdb0e1a Fix typo in comment Stefan Vogel <sv@exept.de> parents: 4054 diff changeset	8294	until the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8295
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8296	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8297	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8298	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8299	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8300	].
2451 c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	8301	self
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8302	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8303	repairNow:false
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	8304
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	8305	"Modified: / 9.11.1998 / 21:04:16 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8306	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8307
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8308	invalidate:aRectangle
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8309	"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	8310	This is preferable to calling redraw directly,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8311	in that the drawing is done by the views process itself,
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8312	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	8313	single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8314	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	8315	intil the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8316
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8317	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8318	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8319	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8320	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8321	].
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	8322	self invalidate:aRectangle repairNow:false
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	8323
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	8324	"Modified: / 9.11.1998 / 21:03:14 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8325	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8326
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8327	invalidate:aRectangle repairNow:doRepairNow
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8328	"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	8329	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	8330	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	8331	The given rectangle is in logical coordinate space."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8332
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8333	\|r\|
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8334
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8335	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8336	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8337	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8338	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8339	].
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8340
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8341	r := aRectangle.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8342	transformation notNil ifTrue:[
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8343	r := transformation applyTo:r.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8344	].
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8345	self sensor addDamage:r view:self.
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8346	doRepairNow ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8347	self repairDamage
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8348	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8349
2395 93846300ef6f oops Claus Gittinger <cg@exept.de> parents: 2394 diff changeset	8350	"Modified: / 10.11.1998 / 01:55:03 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8351	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8352
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8353	invalidateDeviceRectangle:aRectangle repairNow:doRepairNow
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8354	"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	8355	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	8356	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	8357	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	8358
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8359	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8360	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8361	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8362	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8363	].
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8364
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	8365	self sensor addDamage:aRectangle view:self.
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8366	doRepairNow ifTrue:[
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	8367	self repairDamage
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8368	]
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8369
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8370	"Modified: / 10.11.1998 / 01:55:03 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8371	"Created: / 10.11.1998 / 19:02:01 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8372	!
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	8373
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8374	invalidateRepairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8375	"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	8376	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	8377	damaged areas right now."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8378
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8379	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8380	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8381	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8382	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8383	].
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8384	self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8385	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8386	repairNow:doRepair
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8387
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8388	"Created: 19.4.1997 / 11:58:04 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8389	"Modified: 19.4.1997 / 12:00:00 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8390	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	8391
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8392	invalidateX:x y:y width:w height:h
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8393	"add a damage to redraw all of the receiver, to its input event queue."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8394
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8395	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8396	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8397	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8398	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8399	].
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8400	self invalidate:(Rectangle left:x top:y width:w height:h)
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8401	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8402
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8403	invalidateX:x y:y width:w height:h repairNow:doRepair
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8404	"add a damage to redraw all of the receiver, to its input event queue.
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8405	and (if repairNow is true), force the receiver to repair all of its
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8406	damaged areas right now."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8407
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8408	shown ifFalse:[
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8409	"/ no need to add damage - will get a full-redraw anyway,
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8410	"/ when I will be shown again.
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8411	^ self
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	8412	].
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8413	self invalidate:(Rectangle left:x top:y width:w height:h) repairNow:doRepair
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8414	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8415
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8416	redraw
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	8417	"redraw myself completely - this is sent by redrawX:y:width:height:
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	8418	as a fallback.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	8419	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	8420	updating regions but instead update everything."
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	8421
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	8422	"Modified: 29.5.1996 / 18:02:52 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8423	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8424
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8425	redraw:aRectangle
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8426	"redraw a part of the view immediately."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8427
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8428	self
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8429	redrawX:(aRectangle left)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8430	y:(aRectangle top)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8431	width:(aRectangle width)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8432	height:(aRectangle height)
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8433
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8434	"Modified: 19.4.1997 / 11:54:23 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8435	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8436
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8437	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8438	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8439	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8440	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8441	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8442
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8443	\|lx ly lw lh\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8444
2822 b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	8445	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8446	lx := x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8447	ly := y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8448	lw := w.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8449	lh := h.
2822 b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	8450	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8451	lx := transformation applyInverseToX:x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8452	ly := transformation applyInverseToY:y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8453	lw := transformation applyInverseScaleX:w.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8454	lh := transformation applyInverseScaleY:h.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8455	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8456	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8457	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8458
151 8123ec03c52f . claus parents: 145 diff changeset	8459	redrawX:x y:y width:w height:h
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8460	"redraw part of myself immediately, given logical coordinates
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8461	(if transformation is nonNil)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8462	The default here is to redraw everything
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8463	- subclasses usually redefine this, adding more intelligence"
151 8123ec03c52f . claus parents: 145 diff changeset	8464
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8465	\|area oldClip\|
151 8123ec03c52f . claus parents: 145 diff changeset	8466
8123ec03c52f . claus parents: 145 diff changeset	8467	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	8468
8123ec03c52f . claus parents: 145 diff changeset	8469	area := Rectangle left:x top:y width:w height:h.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8470	oldClip := clipRect.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8471	self clippingRectangle:area.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8472
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8473	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8474	self clearRectangleX:x y:y width:w height:h.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8475	components do:[:aComponent \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8476	\|thisFrame is\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8477
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8478	thisFrame := aComponent bounds.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8479	(thisFrame intersects:area) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8480	aComponent displayOn:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8481	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8482	]
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8483	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8484	"/ redraw everything - a fallBack for lazy views.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8485	self redraw
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8486	].
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8487
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8488	self clippingRectangle:oldClip.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	8489
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8490	"Modified: 19.4.1997 / 11:55:08 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8491	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8492
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8493	repairDamage
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8494	"force the receiver to repair all of its
2095 7aaac9675f97 checkin from browser ca parents: 2094 diff changeset	8495	damaged areas right now."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8496
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8497	\|wg\|
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8498
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8499	shown ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8500	(wg := self windowGroup) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8501	"/ wg processRealExposeEventsFor:self. "/ this ignores map/unmap
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8502	wg processExposeEventsFor:self. "/ this handles map/unmap
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8503	]
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8504	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	8505
2138 1800e9b5afe3 also handle map/unmap events in repairDamage. Claus Gittinger <cg@exept.de> parents: 2130 diff changeset	8506	"Created: / 19.4.1997 / 12:01:13 / cg"
2406 8f6f579901ac checkin from browser Claus Gittinger <cg@exept.de> parents: 2405 diff changeset	8507	"Modified: / 3.12.1998 / 14:02:06 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	8508	!
8123ec03c52f . claus parents: 145 diff changeset	8509
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8510	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8511	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8512	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8513
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8514	^ self
135 cf8e46015072 . claus parents: diff changeset	8515	!
cf8e46015072 . claus parents: diff changeset	8516
cf8e46015072 . claus parents: diff changeset	8517	showPassive
cf8e46015072 . claus parents: diff changeset	8518	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	8519	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	8520
cf8e46015072 . claus parents: diff changeset	8521	^ self
cf8e46015072 . claus parents: diff changeset	8522	! !
cf8e46015072 . claus parents: diff changeset	8523
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8524	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8525
2559 6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8526	halfPageDown
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8527	"scroll down half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8528	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8529	self scrollDown:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8530
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8531
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8532	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8533
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8534	halfPageUp
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8535	"scroll up half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8536	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8537	self scrollUp:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8538
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8539	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	8540
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8541	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8542	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8543	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8544
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8545	^ (device horizontalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8546	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8547
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8548	pageDown
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8549	self scrollDown:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8550
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8551	"Created: 13.9.1996 / 14:06:54 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8552	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8553
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8554	pageUp
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8555	self scrollUp:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8556
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8557	"Created: 13.9.1996 / 14:07:01 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8558	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8559
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8560	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8561	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8562	scroll-step down button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8563
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8564	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8565	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8566
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8567	scrollDown:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8568	"change origin to scroll down some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8569
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8570	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8571
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8572	nPixels ~~ 0 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8573	viewOrigin := self viewOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8574	self scrollTo:(viewOrigin x @ (viewOrigin y + nPixels))
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8575	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8576
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8577	"Modified: / 20.8.1996 / 17:34:36 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8578	"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	8579	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8580
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8581	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8582	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8583
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8584	\|orgY\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8585
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8586	orgY := self viewOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8587	^ self scrollTo:(aPixelOffset @ orgY).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8588
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8589	"Modified: 8.7.1996 / 15:34:54 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	8590	!
0db355079dc4 . claus parents: 138 diff changeset	8591
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8592	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8593	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8594
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8595	\|wCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8596
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8597	wCont := self widthOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8598	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8599	wCont := transformation applyScaleX:wCont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8600	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8601	self scrollHorizontalTo:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8602	((((wCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8603	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8604
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8605	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8606	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8607	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8608
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8609	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8610	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8611
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8612	scrollLeft:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8613	"change origin to scroll left some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8614
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8615	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8616
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8617	nPixels ~~ 0 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8618	viewOrigin := self viewOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8619	self scrollTo:((viewOrigin x - nPixels) @ viewOrigin y).
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8620	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8621
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8622	"Modified: / 20.8.1996 / 17:35:09 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8623	"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	8624	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8625
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8626	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8627	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8628	scroll-step right button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8629
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8630	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8631	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8632
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8633	scrollRight:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8634	"change origin to scroll right some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8635
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8636	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8637
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8638	nPixels ~~ 0 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8639	viewOrigin := self viewOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8640	self scrollTo:((viewOrigin x + nPixels) @ viewOrigin y)
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8641	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8642
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8643	"Modified: / 20.8.1996 / 17:35:37 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8644	"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	8645	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8646
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8647	scrollToBottom
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8648	self scrollTo:0 @ (self heightOfContents - self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8649
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8650	"Created: 13.9.1996 / 14:08:03 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8651	"Modified: 13.9.1996 / 14:09:32 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8652	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	8653
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8654	scrollToLeft
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8655	"move viewOrigin to the left"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8656
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8657	self scrollHorizontalTo:0
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8658	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8659
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8660	scrollToPercent:originAsPercent
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8661	"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	8662
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8663	\|wCont hCont percent\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8664
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8665	percent := originAsPercent asPoint.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8666
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8667	wCont := self widthOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8668	hCont := self heightOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8669
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8670	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8671	wCont := transformation applyScaleX:wCont.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8672	hCont := transformation applyScaleY:hCont.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8673	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8674	self scrollTo:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8675	((((wCont * percent x) / 100.0) + 0.5) asInteger) @
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8676	((((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	8677
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8678	"Created: 5.8.1996 / 12:15:53 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8679	"Modified: 5.8.1996 / 12:42:57 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8680	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8681
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8682	scrollToRight
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8683	"move viewOrigin to the right"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8684
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8685	\|wCont\|
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8686
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8687	wCont := self widthOfContents.
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8688	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8689	wCont := transformation applyScaleX:wCont.
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8690	].
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8691	self scrollHorizontalTo:((wCont - self innerWidth) max:0)
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8692
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8693	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	8694
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8695	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8696	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8697
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8698	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8699	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8700
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8701	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8702	"move viewOrigin to top/left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8703
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8704	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8705	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8706
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8707	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8708	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8709	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8710
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8711	self scrollUp:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8712	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8713
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8714	scrollUp:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8715	"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	8716
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8717	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	8718
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8719	nPixels ~~ 0 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8720	viewOrigin := self viewOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8721	self scrollTo:(viewOrigin x @ (viewOrigin y - nPixels)).
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8722	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8723
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8724	"Modified: / 20.8.1996 / 17:36:16 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	8725	"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	8726	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8727
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8728	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8729	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8730
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8731	\|orgX\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8732
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8733	orgX := self viewOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8734	^ self scrollTo:(orgX @ aPixelOffset).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8735
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8736	"Modified: 8.7.1996 / 15:35:40 / stefan"
135 cf8e46015072 . claus parents: diff changeset	8737	!
cf8e46015072 . claus parents: diff changeset	8738
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8739	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8740	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8741
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8742	\|hCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8743
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8744	hCont := self heightOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8745	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8746	hCont := transformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	8747	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8748	self scrollVerticalTo:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8749	((((hCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8750	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8751
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8752	verticalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8753	"return the amount to scroll when stepping up/down.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8754	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8755
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8756	^ (device verticalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8757	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8758
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8759	widthForScrollBetween:yStart and:yEnd
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8760	"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	8761	- 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	8762	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	8763	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	8764	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	8765	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8766
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8767	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	8768	! !
cf8e46015072 . claus parents: diff changeset	8769
cf8e46015072 . claus parents: diff changeset	8770	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	8771
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8772	scrollTo:newOrigin
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8773	"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	8774	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	8775	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8776
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8777	^ self scrollTo:newOrigin redraw:true
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8778
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8779	"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	8780	"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	8781	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8782
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8783	scrollTo:newOrigin redraw:doRedraw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8784	"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	8785	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	8786	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8787
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8788	^ self
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8789	scrollTo:newOrigin
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8790	redraw:doRedraw
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8791	allowScrollBehondContents:false
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8792	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8793
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8794	scrollTo:newOrigin redraw:doRedraw allowScrollBehondContents:allowScrollBehondContents
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8795	"change origin to have newOrigin be visible at the top-left.
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8796	The argument defines the integer device coordinates of the new top-left
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8797	point."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8798
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8799	\|dX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8800	dY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8801	orgX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8802	orgY "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8803	x y iw ih
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8804	hCont wCont fromX toX fromY toY copyWidth copyHeight
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	8805	redrawX redrawY wg\|
135 cf8e46015072 . claus parents: diff changeset	8806
cf8e46015072 . claus parents: diff changeset	8807	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	8808	wCont := self widthOfContents.
cf8e46015072 . claus parents: diff changeset	8809	transformation isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8810	orgY := orgX := 0
135 cf8e46015072 . claus parents: diff changeset	8811	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8812	wCont := (transformation applyScaleX:wCont) rounded.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8813	hCont := (transformation applyScaleY:hCont) rounded.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8814	orgY := transformation translation y negated.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8815	orgX := transformation translation x negated
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8816	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8817
135 cf8e46015072 . claus parents: diff changeset	8818	iw := self innerWidth.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8819	ih := self innerHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8820
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8821	"don't scroll outside of displayed area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8822
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8823	x := newOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8824	y := newOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8825
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8826	allowScrollBehondContents ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8827	x + iw > wCont ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8828	x := wCont - iw.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8829	].
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8830	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8831	x < 0 ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8832	x := 0
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8833	].
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	8834	allowScrollBehondContents ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8835	y + ih > hCont ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8836	y := hCont - ih.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8837	].
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8838	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8839	y < 0 ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8840	y := 0.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8841	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8842
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8843	dX := x - orgX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8844	dY := y - orgY.
135 cf8e46015072 . claus parents: diff changeset	8845
1066 bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	8846	(dX == 0 and:[dY == 0]) ifTrue:[
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	8847	^ self
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	8848	].
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	8849
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	8850	(wg := self windowGroup) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8851	wg processRealExposeEventsFor:self.
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	8852	].
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	8853
135 cf8e46015072 . claus parents: diff changeset	8854	self originWillChange.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	8855	(shown and:[doRedraw]) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8856	copyWidth := iw - dX abs.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8857	copyHeight := ih - dY abs.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8858	((copyWidth > 0) and:[copyHeight > 0]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8859	"/ some of the currently displayed pixels
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8860	"/ remain visible. Copy them
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8861
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8862	dX < 0 ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8863	fromX := margin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8864	toX := margin - dX.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8865	redrawX := margin
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8866	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8867	fromX := margin + dX.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8868	toX := margin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8869	redrawX := margin + copyWidth.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8870	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8871	dY < 0 ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8872	fromY := margin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8873	toY := margin - dY.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8874	redrawY := margin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8875	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8876	fromY := margin + dY.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8877	toY := margin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8878	redrawY := margin + copyHeight.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8879	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8880	self catchExpose.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8881	self setViewOrigin:(x @ y).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8882	self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8883	copyFrom:self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8884	x:fromX y:fromY
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8885	toX:toX y:toY
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8886	width:copyWidth
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8887	height:copyHeight
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8888	async:true.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8889
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8890	self setInnerClip.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8891
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8892	"first redraw the rectangle above/below the
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8893	copied area (with full width)."
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8894
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8895	copyHeight < ih ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8896	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	8897	"/ self
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	8898	"/ redrawDeviceX:margin y:redrawY
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	8899	"/ width:iw height:(ih - copyHeight).
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8900	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8901
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8902	"second redraw the rectangle left/right of the
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8903	copied area"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8904
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8905	copyWidth < iw ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8906	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	8907	"/ 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	8908	"/
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	8909	"/ width:iw - copyWidth
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	8910	"/ height:copyHeight.
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8911	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8912	self waitForExpose.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8913	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8914	"redraw everything"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8915
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8916	self setViewOrigin:(x @ y).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8917	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	8918	"/ 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	8919	"/ width:iw
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	8920	"/ height:ih.
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8921	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8922	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8923	self setViewOrigin:(x @ y).
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8924	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8925
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	8926	self originChanged:(dX negated @ dY negated).
6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	8927
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	8928	"Modified: / 5.8.1996 / 11:57:09 / stefan"
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	8929	"Modified: / 1.12.1998 / 22:35:18 / cg"
135 cf8e46015072 . claus parents: diff changeset	8930	! !
cf8e46015072 . claus parents: diff changeset	8931
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8932	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8933
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8934	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8935	"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	8936	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8937	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	8938	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8939	can be opened as a topView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8940	This is redefined in ModalBox, which comes up modal (i.e.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8941	control is under the current process, so that interaction with the
4131 30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	8942	current group is blocked while the modalBox is active).
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	8943
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	8944	Notice: after the open, you cannot be sure that the view is really open and
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	8945	visible, since #open forks a new process, which does the actual window opening.
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	8946	To ensure visibility, use #openAndWait or waitUntilVisible after the open."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8947
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8948	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8949
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8950	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8951	View new open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8952	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8953
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8954	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8955	(Button label:'hello') open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8956	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8957
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8958	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8959	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8960	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8961	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8962	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8963	top open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8964	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8965
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8966	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8967	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8968	"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8969
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8970	"Modified: 24.7.1997 / 13:26:42 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8971	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8972
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8973	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8974	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8975	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	8976	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	8977	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8978	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	8979	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	8980	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8981
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8982	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8983	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8984
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8985	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8986
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8987	\|v\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8988
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8989	v := View new open.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8990	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8991
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8992	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8993
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8994	\|v\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8995
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8996	v := View new openAndWait.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8997	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8998	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8999	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9000
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9001	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9002	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9003
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9004	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9005
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9006	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9007	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9008
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9009	(Button label:'hello') openAt:(100@100)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9010	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9011
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9012	"Modified: 24.7.1997 / 13:26:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9013	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9014
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9015	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9016	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9017
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9018	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9019
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9020	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9021	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9022
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9023	(Button label:'hello') openAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9024	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9025
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9026	"Modified: 24.7.1997 / 13:01:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9027	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9028
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9029	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9030	"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	9031	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	9032	parallel.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9033	Notice:
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9034	This entry is for NON-topviews, which want to be served
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9035	autonomous from their real topview.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9036	(see the fileBrowsers kill-button
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9037	when executing unix commands as an example)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9038
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9039	\|wg mainGroup\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9040
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9041	wg := self windowGroupClass new.
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	9042	self windowGroup:wg.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9043
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9044	mainGroup := WindowGroup activeGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9045	mainGroup notNil ifTrue:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9046	mainGroup := mainGroup mainGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9047	].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9048
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9049	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	9050	wg startupWith:[wg mainGroup:mainGroup. self realizeInGroup].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9051
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9052	"/ wg startupModal:[true] forGroup:mainGroup
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9053	"/ self realizeInGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9054
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9055	"Modified: 20.8.1997 / 17:57:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9056	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9057
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9058	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9059	"special open within another windowGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9060	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	9061	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9062	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9063
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9064	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9065	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9066
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9067	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9068	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9069	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9070	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9071
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9072	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9073	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9074	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	9075	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9076	(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	9077
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9078	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9079
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9080	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9081	the same:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9082	YesNoBox new open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9083
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9084	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9085
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9086	different:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9087	(Button label:'hello') open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9088
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9089	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9090	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9091	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9092
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9093	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9094	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9095	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9096	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	9097	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9098	(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	9099	This makes any interaction with the current window impossible -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9100	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9101
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	9102	\|masterGroup\|
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9103
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9104	"/ mainGroup := WindowGroup activeGroup.
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9105	"/ mainGroup notNil ifTrue:[mainGroup := mainGroup mainGroup].
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9106
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9107	masterGroup := WindowGroup activeGroup.
3345 1d7c4a14bd06 cursor restore: not only in mainGroup, but also ca parents: 3340 diff changeset	9108	[masterGroup notNil and:[masterGroup isPopUp or:[masterGroup isModal]]] whileTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9109	masterGroup := masterGroup previousGroup.
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9110	].
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9111	^ self openModal:aBlock inGroup:masterGroup "/ mainGroup.
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9112
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	9113	"Created: / 10.12.1995 / 14:06:45 / cg"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9114	"Modified: / 9.7.1998 / 01:20:57 / cg"
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9115	!
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9116
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9117	openModal:aBlock inGroup:mainGroup
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9118	"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	9119	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	9120	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	9121	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9122	(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	9123	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	9124	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	9125
3345 1d7c4a14bd06 cursor restore: not only in mainGroup, but also ca parents: 3340 diff changeset	9126	\|tops mainView mainViewID previousGroup \|
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	9127
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	9128	self isPopUpView ifFalse:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9129	ModalBox usingTransientViews ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9130	"make view only transient, if there is a visible topView.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9131	If none of them is visible, we do want an icon for ourself"
3202 d455f6300f96 openModal:inGroup: makes view transient only if there are visible top views. Stefan Vogel <sv@exept.de> parents: 3196 diff changeset	9132
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9133	mainGroup notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9134	(tops := mainGroup topViews) notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9135	tops notEmpty ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9136	mainView := tops detect:[:v\| v shown] ifNone:nil.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9137	mainView notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9138	mainViewID := mainView id.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9139	]
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9140	]
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9141	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9142	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9143
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9144	mainViewID isNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9145	self origin:(device center - (self extent//2))
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9146	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9147
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9148	drawableId isNil ifTrue:[self create].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9149	mainView notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9150	device setTransient:drawableId for:mainViewID.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9151	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9152	].
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	9153	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	9154
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	9155	self raise.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9156
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9157	Processor activeProcessIsSystemProcess ifTrue:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9158	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9159	put myself into the modal group, let it handle events for
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9160	me as well. This is only a half way solution, since the view
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9161	is not modal at all ... however, the only situation
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9162	where this happens is with modal boxes popped while in a
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9163	modal browser. You will forgive me for that inconvenience.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9164	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9165	windowGroup := mainGroup.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9166	mainGroup notNil ifTrue:[mainGroup addTopView:self].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9167	self realize
135 cf8e46015072 . claus parents: diff changeset	9168	] ifFalse:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9169	previousGroup := WindowGroup activeGroup.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9170
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9171	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9172	show a stop-cursor in the main group
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9173	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9174	mainGroup notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9175	self isPopUpView ifFalse:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9176	mainGroup showCursor:(Cursor stop).
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9177	(previousGroup notNil and:[previousGroup ~~ mainGroup]) ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9178	previousGroup showCursor:(Cursor stop).
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9179	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9180	]
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9181	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9182
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9183	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9184	create a new window group and put myself into it
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9185	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9186	windowGroup := self windowGroupClass new.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9187	windowGroup addTopView:self.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9188	windowGroup setPreviousGroup:previousGroup.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9189
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9190	superView notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9191	"/
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9192	"/ special: this is a modal subview,
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9193	"/ prevent the view from reassigning its windowGroup when realized
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9194	"/ (subviews normally place themself into the superviews group)
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9195	"/
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9196	windowGroup isForModalSubview:true.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9197	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9198
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9199	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9200	go dispatch events in this new group
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9201	(thus current windowgroup is blocked from interaction)
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9202	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9203	AbortSignal handle:[:ex \|
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9204	self hide.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9205	ex return.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9206	] do:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9207	[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9208	[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9209	windowGroup startupModal:[realized and:aBlock] forGroup:mainGroup
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9210	] ifCurtailed:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9211	self hide.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9212	]
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9213	] ensure:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9214	mainGroup notNil ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9215	mainGroup graphicsDevice sync. "thats a round trip - make sure that all drawing has been processed"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9216	"/ ensure that eventListener runs here ...
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9217	Delay waitForSeconds:0.05.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9218	mainGroup processExposeEvents.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9219
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9220	ReturnFocusWhenClosingModalBoxes ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9221	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9222	return input focus to previously active groups top.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9223	This helps with windowmanagers which need an explicit click
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9224	on the view for the focus.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9225	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9226	tops := mainGroup topViews.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9227	(tops notNil and:[tops notEmpty]) ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9228	tops first getKeyboardFocus
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9229	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9230	].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9231
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9232	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9233	restore cursors in the main group & flush its buffered key & mouse events
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9234	"
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9235	mainGroup restoreCursors.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9236	(previousGroup notNil and:[previousGroup ~~ mainGroup]) ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9237	previousGroup restoreCursors.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9238	].
1329 4cc65306f73f care to not delay focusIn/focusOut processing of ca parents: 1327 diff changeset	9239	"/ mainGroup sensor flushUserEvents.
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9240	]
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9241	]
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9242	].
135 cf8e46015072 . claus parents: diff changeset	9243	]
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9244
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	9245	"Created: 10.12.1995 / 14:06:14 / cg"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9246	"Modified: 20.8.1997 / 15:14:44 / cg"
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9247	!
135 cf8e46015072 . claus parents: diff changeset	9248
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9249	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9250	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9251	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9252
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9253	self origin:aPoint.
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	9254	drawableId isNil ifTrue:[self create].
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	9255	"/ device setTransient:drawableId for:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9256	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9257
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9258	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9259	View new openModal
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9260	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9261	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9262	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9263	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9264
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9265	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9266	"Modified: 18.9.1995 / 23:32:26 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	9267	"Modified: 28.7.1997 / 18:52:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9268	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9269
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9270	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9271	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9272	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9273
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9274	^ self openModalAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9275
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9276	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9277	View new openModal
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9278	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9279	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9280	View new openModalAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9281	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9282
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9283	"Modified: 24.7.1997 / 13:27:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9284	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9285
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9286	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9287	"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	9288	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	9289	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9290
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9291	self openModelessAt:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9292
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9293	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9294	the same:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9295	(Button label:'hello') open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9296
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9297	(Button label:'hello') openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9298
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9299	different:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9300	YesNoBox new open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9301
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9302	YesNoBox new openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9303	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9304	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9305	(almost) the same:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9306	YesNoBox new open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9307
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9308	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9309
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9310	different:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9311	(Button label:'hello') open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9312
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9313	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9314	"
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	9315
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9316	"Modified: 24.7.1997 / 13:17:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9317	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9318
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9319	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9320	"open up the view modeless - positions the view
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9321	(i.e. tries to circumvent the window managers positioning)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9322	Notice: some windowManagers seem to ignore this and always
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9323	ask the user to position the view."
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9324
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9325	self openModelessAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9326
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9327	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9328	View new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9329
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9330	View new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9331	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9332
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9333	"Created: 18.9.1995 / 23:21:42 / claus"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9334	"Modified: 24.7.1997 / 13:48:52 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9335	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9336
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9337	openModelessAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9338	"open up the view modeless - positions the view
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9339	(i.e. tries to circumvent the window managers positioning)
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9340	Notice: some windowManagers seem to ignore this and always
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9341	ask the user to position the view."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9342
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9343	\|newGroup\|
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9344
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	9345	drawableId isNil ifTrue:[self create].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9346
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9347	windowGroup isNil ifTrue:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9348	newGroup := true.
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9349	windowGroup := self windowGroupClass new.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9350	] ifFalse:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9351	newGroup := false.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9352	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9353
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9354	windowGroup addTopView:self.
3745 8456462f2ac0 code beautifaction Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	9355	newGroup ifTrue:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9356	(aPoint isNil and:[iconified not]) ifTrue:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9357	windowGroup startupWith:[self realize].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9358	] ifFalse:[
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9359	windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9360	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9361	] ifFalse:[
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9362	self realizeInGroup.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9363	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9364
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9365	"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9366	StandardSystemView new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9367
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9368	StandardSystemView new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9369
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9370	StandardSystemView new openModelessAt:100@100 iconified:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9371	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9372
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9373	"Created: 18.9.1995 / 23:21:42 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	9374	"Modified: 28.7.1997 / 18:52:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9375	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9376
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9377	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9378	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9379	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9380
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9381	^ self openModelessAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9382
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9383	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9384	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9385
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9386	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9387	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9388
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9389	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9390	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9391
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9392	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9393	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9394	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	9395	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	9396	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9397	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	9398	in doIt expressions), or subsequent views depend on some state of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9399	another view (which is only available once visible),
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9400	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	9401	Caveat:
4121 e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9402	we poll here for the view to be shown - we need a semaphore
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9403	which is raised by the view in order to do it right."
3522 a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	9404
a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	9405	\|wg n\|
a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	9406
a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	9407	n := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9408	[self shown] whileFalse:[
4121 e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9409	(device notNil and:[device isOpen not]) ifTrue:[^ self].
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9410
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9411	"/ this was added to avoid a deadlock, when called from within
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9412	"/ the event dispatch process (as when doing foo inspect there).
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9413	n > (10 / 0.05) ifTrue:[
4122 e82d5d1db4c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	9414	'SimpleView [info]: View not visible after 10 seconds - will not wait any longer in waitUntilVisible' infoPrintCR.
4121 e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9415	^ self
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9416	].
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9417	n := n + 1.
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9418	Delay waitForSeconds:0.05.
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9419	(wg := self windowGroup) ifNotNil:[
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9420	wg processExposeEvents.
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9421	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9422	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9423
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9424	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9425	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	9426	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9427
4121 e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9428	\|v\|
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9429
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9430	v := View new open.
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9431	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9432
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9433	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9434	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9435
4121 e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9436	\|v\|
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9437
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9438	v := View new open.
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9439	v waitUntilVisible.
e97c5c4493bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	9440	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9441	"
135 cf8e46015072 . claus parents: diff changeset	9442	! !
cf8e46015072 . claus parents: diff changeset	9443
3276 9ed39f7e7282 category change Claus Gittinger <cg@exept.de> parents: 3266 diff changeset	9444	!SimpleView methodsFor:'user interaction & notifications'!
135 cf8e46015072 . claus parents: diff changeset	9445
cf8e46015072 . claus parents: diff changeset	9446	warn:aString
cf8e46015072 . claus parents: diff changeset	9447	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	9448	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	9449
151 8123ec03c52f . claus parents: 145 diff changeset	9450	super warn:(resources string:aString) withCRs
135 cf8e46015072 . claus parents: diff changeset	9451	!
cf8e46015072 . claus parents: diff changeset	9452
cf8e46015072 . claus parents: diff changeset	9453	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	9454	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	9455	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	9456
151 8123ec03c52f . claus parents: 145 diff changeset	9457	super warn:(resources string:aString with:argument) withCRs
8123ec03c52f . claus parents: 145 diff changeset	9458	!
8123ec03c52f . claus parents: 145 diff changeset	9459
8123ec03c52f . claus parents: 145 diff changeset	9460	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	9461	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	9462	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	9463
8123ec03c52f . claus parents: 145 diff changeset	9464	super warn:(resources string:aString with:arg1 with:arg2) withCRs
3182 6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9465	!
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9466
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9467	warn:aString with:arg1 with:arg2 with:arg3
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9468	"like Objects warn, but translates the string via the
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9469	resourcePack, thus giving a translated string automatically"
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9470
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	9471	super warn:(resources string:aString with:arg1 with:arg2 with:arg3) withCRs
135 cf8e46015072 . claus parents: diff changeset	9472	! !
cf8e46015072 . claus parents: diff changeset	9473
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	9474	!SimpleView::ViewShape methodsFor:'queries'!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	9475
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9476	isRoundShape
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9477	^ false
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9478	! !
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	9479
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9480	!SimpleView::RoundViewShape methodsFor:'queries'!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9481
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9482	isRoundShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9483	^ true
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9484
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9485
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9486	! !
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9487
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	9488	!SimpleView::ArbitraryViewShape methodsFor:'accessing'!
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9489
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9490	borderShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9491	"return the value of the instance variable 'borderShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9492
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9493	^ borderShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9494
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9495	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9496	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9497
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9498	borderShapeForm:something
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9499	"set the value of the instance variable 'borderShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9500
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9501	borderShapeForm := something.
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9502
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9503	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9504	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9505
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9506	viewShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9507	"return the value of the instance variable 'viewShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9508
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9509	^ viewShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9510
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9511	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9512	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9513
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9514	viewShapeForm:something
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9515	"set the value of the instance variable 'viewShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9516
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9517	viewShapeForm := something.
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9518
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9519	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	9520	! !
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9521
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	9522	!SimpleView class methodsFor:'documentation'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9523
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9524	version
4196 ceb52e442de3 Remove method #maxExtent inherited from super. Stefan Vogel <sv@exept.de> parents: 4193 diff changeset	9525	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.507 2004-07-03 17:04:22 stefan Exp $'
135 cf8e46015072 . claus parents: diff changeset	9526	! !
3745 8456462f2ac0 code beautifaction Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	9527
135 cf8e46015072 . claus parents: diff changeset	9528	SimpleView initialize!

author	Stefan Vogel <sv@exept.de>
	Sat, 03 Jul 2004 19:04:22 +0200
changeset 4196	ceb52e442de3
parent 4193	7156e834b5d8
child 4209	af2ef9ba90c5
permissions	-rw-r--r--